Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c