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; .

BLOB считать в TImage не могу = прикол Найти похожие ветки