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

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

Как вытащить Jpeg in BLOB [D5, IB6.x]

- Andrew - ©   (2002-10-29 13:47:00) 

Подскажите, плиз!!!
Делаю так:
var
ImageGraph : TJpegImage;
begin
ImageGraph := TJpegImage.Create;
DataModule2.IBQuery1.Open;
ImageGraph.Assign(DataModule2.IBQuery1.FieldByName("FIELD"));
возникает ошибка cannot assign TBlobField to THpegImage

---

- Andrew -   (2002-10-29 14:14:00) [1]

ОГРОМНОЕ СПАСИБО!!!

---

sask   (2002-10-29 14:13:00) [2]

если не принципиально, используй TIBSQL вместо TIBQuery
у TIBSQL есть SaveToStream. Т.е. примерно так:

var Stream: TMemoryStream;
....
Stream := TMemoryStream.Create(nil);
try
DataModule2.IBSQL1.ExecSQL;
DataModule2.IBSQL1.FieldByName("FIELD").SaveToStream(Stream);
ImageGraph.LoadFromStream(Stream);
finally
Stream.Free;
end;


---

- Andrew -   (2002-10-29 14:08:00) [3]

Спасибо!
А как в Stream перекинуть, ато чего тоже не вышло :-(

---

sask   (2002-10-29 13:58:00) [4]

Содержимое BLOBа в Stream, затем
ImageGraph.LoadFromStream(Stream);

---

Наверх