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

Как вытащить Jpeg in BLOB   Найти похожие ветки 

← →
- Andrew -   (2002-10-29 13:47) [0]

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

---

← →
sask ©   (2002-10-29 13:58) [1]

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

---

← →
- Andrew -   (2002-10-29 14:08) [2]

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

---

← →
sask ©   (2002-10-29 14:13) [3]

если не принципиально, используй 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:14) [4]

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

---

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

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



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