Форум: "Базы";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Вниз
не получается загрузить 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"
← →
Prohodil Mimo © (2005-10-03 19:22) [3]Сделал так:
Bl := ADDataSet.CreateBlobStream(ADDataSet.FieldByName(ADDataField), BmRead);
Picture.Graphic := TJpegImage.Create;
(Picture.Graphic As TJpegImage).LoadFromStream(Bl);
работает.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.04 c