| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

JPEG [D6, IB6.x]

MaxN ©   (2004-08-25 21:13:00) 

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

---

MaxN   (2004-08-26 12:23:00) [1]

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

---

data   (2004-08-26 10:46:00) [2]

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

---

Ozone   (2004-08-26 06:48:00) [3]

SaveToStream

---

MaxN   (2004-08-25 23:32:00) [4]

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

---

Desdechado   (2004-08-25 22:40:00) [5]

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

---

Наверх