Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.18;
Скачать: 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 вся ветка

Текущий архив: 2002.11.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
6-59309
goldzoloto
2002-09-21 13:28
2002.11.18
SOS SOS SOS., откликнетесь кто может.


1-59197
siliks330
2002-11-09 09:27
2002.11.18
Как сделать текст.редактор, для работы с очень большими текстами?


1-59130
Acorus
2002-11-07 19:57
2002.11.18
Integer и Longint в D2


4-59499
Дмитрий Иванов
2002-10-04 16:24
2002.11.18
HOT-KEY в чужом окне


1-59223
Ghost!
2002-11-06 16:20
2002.11.18
тайна покрытая мраком