| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
не получается загрузить JPG картинку из TStream в TImage
Prohodil Mimo © (2005-10-03 16:29:00)
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.
Prohodil Mimo (2005-10-03 19:22:00) [1]Сделал так:
Bl := ADDataSet.CreateBlobStream(ADDataSet.FieldByName(ADDataField), BmRead);
Picture.Graphic := TJpegImage.Create;
(Picture.Graphic As TJpegImage).LoadFromStream(Bl);
работает.
Prohodil Mimo (2005-10-03 16:34:00) [2]stone © (03.10.05 16:32) [1]
incompatible types: 'TBlobStream' and 'TStream'
stone (2005-10-03 16:32:00) [3]Для начала Bl : TBlobStream;
| |
