Форум: "Базы";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];
ВнизBLOB считать в TImage не могу = прикол Найти похожие ветки
← →
Прямой (2004-11-22 16:20) [0]procedure TFrame1.IBDataSet1BeforeScroll(DataSet: TDataSet);
var
B : TIBBlobStream;
MemStrm : TMemoryStream;
ImgJPG : TJpegImage;
begin
ImgJPG:=TJpegImage.Create;
MemStrm:=TMemoryStream.Create;
B:=IBDataSet1.CreateBlobStream(IBDataSet1.FieldByName("JPG") as TBlobField, bmRead);
B.SaveToStream(MemStrm);
ImgJPG.LoadFromStream(MemStrm);
Frame1.Image1.Picture.Assign(ImgJPG);
Frame1.Image1.Invalidate;
ImgJPG.Free;
MemStrm.Free;
B.Free;
end;
говорит:
Incompatible types: "TIBBlobStream" and "TStream"
Прошу учесть D7 FB 1.5
Что не так уважаемые?
← →
Прямой (2004-11-22 17:49) [1]Снимается вопрос!
← →
Johnmen © (2004-11-22 17:57) [2]>Снимается вопрос!
А я думал, кино.
← →
афвуд (2004-11-22 19:04) [3]Прямой, ты когда свои вопросы решаешь скажи другим как ты их решил. Может кому пригодится.
Здеьс похоже нужно было просто вместо B : TIBBlobStream; написать B : TStream; .
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c