JPEG

← →
MaxN (2004-08-25 21:13) [0]

Здравствуйте мастера! Подскажите пожалуйста у меня в БД хранятся рисунки в формате JPEG, но отобразить их не удается в стандартном DBImage, что делать?

← →
Desdechado © (2004-08-25 22:40) [1]

подключить модуль jpeg

← →
MaxN (2004-08-25 23:32) [2]

Как в созданую переменую запихнуть картинку из БД?

← →
Ozone © (2004-08-26 06:48) [3]

SaveToStream

допустим Q - открытый запрос с полем - картинкой
BS: TStream;
ImJp:TJPEGImage;(создан где то раньше )
Image:TImage - лежит на форме

if not Q.Eof then
BS:=Q.CreateBlobStream(TBlobField(Q.FieldByName("PICTURE")),bmRead);
try
if BS.Size<>0 then
begin
ImJp.LoadFromStream(BS);
ImJp.DIBNeeded;
Image.Picture.Bitmap.Assign(ImJp);
end;
finally
BS.Free;
end;

← →
MaxN (2004-08-26 12:23) [5]

Большое большое спасибо!!!!!

JPEG Найти похожие ветки