| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
BLOB считать в TImage не могу = прикол [D7, IB6.x]
Прямой © (2004-11-22 16:20:00)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 19:04:00) [1]Прямой, ты когда свои вопросы решаешь скажи другим как ты их решил. Может кому пригодится.
Здеьс похоже нужно было просто вместо B : TIBBlobStream; написать B : TStream; .
Johnmen (2004-11-22 17:57:00) [2]>Снимается вопрос!
А я думал, кино.
Прямой (2004-11-22 17:49:00) [3]Снимается вопрос!
| |
