Как вытащить 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]

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

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