三層構中怎樣保存Ico等圖片文件到數據庫中!(65分)

A

autojet

Unregistered / Unconfirmed
GUEST, unregistred user!
做了一個三層程序,需要將客戶端的圖片文件保存到數據庫中去,請問不用Appserver.AS_records
方法,怎樣可以保存數據,并且可以查詢出來在客戶端顯示!
全部分數奉上,不夠來日方長!
 
加入你有这样的字段BlodIcon1
procedure SaveIcon;
var
s:TMemoryStream;
begin
s:=TMemoryStream.Create;
S.LoadFromFile('...Ico');
BlocIcon1.LoadFromStream(s);
s.Free;
Table.Post
end;
这个方法可以保存任何类型的数据。
不过要显示的时候把DBImage的的AutoDiaplay设置为False,然后自己处理!
我曾经这样保存过JPG文件,
如果你不懂的话,发Email To NeutronBoy@sohu.com,
我作个Demo给你!
 
if ClientDataSet1.State = dsBrowse then
ClientDataSet1.Edit;
if (OpenPictureDialog1.Execute) and (OpenPictureDialog1.FileName <> '') then
ClientDataSet1F23.LoadFromFile(OpenPictureDialog1.FileName)
 
多人接受答案了。
 
顶部