Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

не получается загрузить 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
3-1128152089
FH
2005-10-01 11:34
2005.11.13
Возврат значения поля Identity


14-1129896563
Prohodil Mimo
2005-10-21 16:09
2005.11.13
Где скачать сервис паки и апдейты на Delphi 2005?


5-1109098399
olookin
2005-02-22 21:53
2005.11.13
Свойства self-made компонента - ничего не понимаю!


4-1126507725
Ландграф Павел
2005-09-12 10:48
2005.11.13
Перехват всех критических ситуаций (ошибок) в приложении


2-1129539802
kyn66
2005-10-17 13:03
2005.11.13
Как корректно закрыть файл лога?