DELPHI 7 如何从存贮在SQL库的图片调出来(0分)

S

szseawind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-23

• #1

DELPHI 7 如何从存贮在SQL库的图片调出来
字段名为: ABC
表名ICTURE
库名IC

 

X

xlim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-23

• #2

不知道能不能帮你
var tempstream:TStringStream;
tempjpeg:TJPEGImage;
begin
try
ADOQuery1.Open;
tempstream:=TStringStream.Create(' ');
TBlobField(ADOQuery1.FieldByName('photos')).SaveToStream(tempstream);
tempstream.Position:=0;
tempjpeg:=TJPEGImage.Create;
tempjpeg.LoadFromStream(tempstream);
Image1.Picture.Bitmap.Assign(tempjpeg);
finally
tempstream.Free;
tempjpeg.Free;
end;
end;

 

D

delphi5198

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-23

• #3

就是这样做了

 

S

szseawind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-10

• #4

TBlobField(ADOQuery1.FieldByName('photos')).SaveToStream(tempstream); 出错

 

S

szseawind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-10

• #5

sos

 

B

BrainYang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-10

• #6

把TStringStream改成TMemoryStream绝对没问题。
下面这句
TBlobField(ADOQuery1.FieldByName('photos')).SaveToStream(tempstream);
中的'photos'是xlim的数据库某个表中的一个图像字段名。
换成你的那个图像字段，是'ABC'吗？
以上是流的形式。
下面是文件的形式。
http://www.2ccc.com/article.asp?articleid=1020
http://www.6ic.com/downloads/simples/database/SQL.Blob.Test.rar

 

S

szseawind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-25

• #7

good