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

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

---

← →
data ©   (2004-08-26 10:46) [4]

допустим 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]

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

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.038 c