怎样传输图象(二进制)信息???(100分)

G

geluyx

Unregistered / Unconfirmed
GUEST, unregistred user!
[8D]怎样传输图象(二进制)信息???
我在一个数据库中要用到图象信息,在数据库的导入,导出信息时,
怎样传送图象(二进制)信息??
大家帮帮忙!谢谢!!!!!!
 
可以用数据流啊,再说delphi6直接可以向sql中存储图片啊.
 
给分吧。!!!!!!!!!1

保存---------------------------
var
aStream1: TStream;
bmp : TBitmap;
begin
bmp := TBitmap.Create();
try
ADOTable1.append;
aStream1 := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('photo'), bmReadWrite);
bmp.LoadFromFile('d:/My Documents/1212.bmp');
bmp.SaveToStream(aStream1);
// Image1.Picture.Assign(bmp);
aStream1.Free;
ADOTable1.Post;
ADOTable1.Next;
finally
bmp.Free;
end;
读取-------------------------------------
var
aStream1: TStream;
bmp: TBitmap;
begin
if ADOTAble1.State <>dsBrowse then exit;
if ADOTable1.FieldByName('photo').IsNull then Exit;

aStream1 := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('photo'), bmRead);
try
aStream1.Position := 0;
bmp:= TBitmap.Create();
try
bmp.LoadFromStream(aStream1);
Image1.Picture.Assign(bmp);

finally
bmp.Free;
end;
finally
aStream1.Free;
end;
end;
 
多人接受答案了。
 

Similar threads

回复
0
查看
738
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部