我想把数据库里的jpeg图象显示出来,怎么不行啊?(20分)

  • 主题发起人 wanglong
  • 开始时间
W

wanglong

Unregistered / Unconfirmed
GUEST, unregistred user!
我已经在uses中加入了jpeg,并且数据库中有图象!
var
MyJpeg:TJpegImage;
MyStm:TMemoryStream;
begin

if not Table.FieldByName('图象').IsNull then
begin
try
MyJpeg:=TJpegImage.Create;
MyStm:=TMemoryStream.Create;
MyStm.Clear;
TBlobField(Table.FieldByName('图象')).SaveToStream(MyStm);
MyStm.Position:=0;
MyJpeg.LoadFromStream(MyStm);
FootImage.Picture.BitMap.Assign(MyJpeg);
finally
MyJpeg.Free;
MyStm.Free;
end;

end;
 
你的程序好象没有问题呀。
 
不过你可以试试另外的方法:
Var
B:TBlobStream;
M:TMemoryStream;
begin
B:=TBlobStream.create(xxx,bmRead);
M:=TMemoryStream.create;
M.CopyFrom(B,B.size);
M.positon:=0;
然后再接着做
....
....
....
end;

试试行不行!!!
 
xxx是什么意思?
 
xxx 为你定义的TBlobFiled字段
 
多人接受答案了。
 
顶部