не получается загрузить JPG картинку из TStream в TImage

← →
Prohodil Mimo © (2005-10-03 16:29) [0]

Var Bl : TStream; ADDataSet : TpFIBDataSet; Begin Bl := ADDataSet.CreateBlobStream(ADDataSet.FieldByName(ADDataField), BmRead); Picture.Bitmap.LoadFromStream(Bl); Bl.Free; End;

если в базе BMP, то всё работает, если JPG - ругается что не правильный формат.
Что делать, что бы он знал что там JPG и открывал его?

JPeg в USES присутствует.

Delphi 3.

← →
stone © (2005-10-03 16:32) [1]

Для начала Bl : TBlobStream;

← →
Prohodil Mimo © (2005-10-03 16:34) [2]

stone © (03.10.05 16:32) [1]
incompatible types: "TBlobStream" and "TStream"

Сделал так:
Bl := ADDataSet.CreateBlobStream(ADDataSet.FieldByName(ADDataField), BmRead); Picture.Graphic := TJpegImage.Create; (Picture.Graphic As TJpegImage).LoadFromStream(Bl);

работает.

не получается загрузить JPG картинку из TStream в TImage Найти похожие ветки