Текущий архив: 2002.06.20;
Скачать: CL | DM;
Вниз
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]>Black Cat © (29.05.02 10:47)
признаюсь, у меня "ума далеко не палата", чтоб таким заниматься
народ, мне бы попроще...
← →
Black Cat © (2002-05-29 11:13) [6]Сходи на http://www.utilmind.com, там нечто было
Страницы: 1 вся ветка
Текущий архив: 2002.06.20;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
