Delphi 5 image字段有关问题
Delphi 5 image字段问题
Delphi 5中用 Timage控件将 jpg或 bmp图形存入SQL中的image字段,如何在Timage控件中将这个字段读出来?
现在的情况是因为数据库有 2种图形格式,没有办法读出来,请帮忙。问题解决后立刻给分!!!
------解决方案--------------------
Image类型在DataSet中为TBlobField类型,可以将该字段内容保存到流,然后从流中读出你的图像数据,其中的‘BlobFile’是你数据表中Image类型字段的名字。包含JPEG单元后,Image1.Picture会自动根据图像格式选择装入的。没测试,供参考
uses JPEG;
var
s: TStream;
begin
s := TMemoryStream.Create;
try
TBlobField(DataSet.FieldByName( 'BlobField ')).SaveToStream(s);
s.Position := 0;
Image1.Picture.LoadFromStream(s);
finally
s.Free;
end;
end
Delphi 5中用 Timage控件将 jpg或 bmp图形存入SQL中的image字段,如何在Timage控件中将这个字段读出来?
现在的情况是因为数据库有 2种图形格式,没有办法读出来,请帮忙。问题解决后立刻给分!!!
------解决方案--------------------
Image类型在DataSet中为TBlobField类型,可以将该字段内容保存到流,然后从流中读出你的图像数据,其中的‘BlobFile’是你数据表中Image类型字段的名字。包含JPEG单元后,Image1.Picture会自动根据图像格式选择装入的。没测试,供参考
uses JPEG;
var
s: TStream;
begin
s := TMemoryStream.Create;
try
TBlobField(DataSet.FieldByName( 'BlobField ')).SaveToStream(s);
s.Position := 0;
Image1.Picture.LoadFromStream(s);
finally
s.Free;
end;
end