Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c