Delphi 5 image字段问题

Question

Delphi 5中用 Timage控件将 jpg或 bmp图形存入SQL中的image字段，如何在Timage控件中将这个字段读出来？
现在的情况是因为数据库有 2种图形格式，没有办法读出来，请帮忙。问题解决后立刻给分！！！

Answer 1

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