DBImage: как вывести в него JPEG или чем заменить?

← →
kserg@ukr.net (2002-05-29 10:22) [0]

Спасибо

← →
vasilly © (2002-05-29 10:26) [1]

Не используя DBImage:

Q:TQuery; //Запрос с Blob полем
BS:TStream;
Jpi:TJPEGImage;
Image:TImage;

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

← →
kserg@ukr.net (2002-05-29 10:36) [2]

>vasilly © (29.05.02 10:26)
спасибо, принято

какие вар-ты есть ещё? :)

← →
Lusha © (2002-05-29 10:39) [3]

Переопределить TDBImage.Paint...

← →
Black Cat © (2002-05-29 10:47) [4]

> vasilly ©
Можно пойти дальше, по первым символам определять тип рисунка. Я себе замастырил т.о. поддержку гифов,икон,вмф,бмп,jpg

← →
kserg@ukr.net (2002-05-29 10:59) [5]

Сходи на http://www.utilmind.com, там нечто было

DBImage: как вывести в него JPEG или чем заменить? Найти похожие ветки