Форум: "Базы";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
ВнизКак вытащить 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 вся ветка
Форум: "Базы";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c