| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Картинки в БД ... [D5, IB6.x]

_Oleg_ ©   (2002-02-15 08:33:00) 

Проблема в следующем: необходимо считать картинку из таблицы и внести ее в TImage. Подскажите, что не правильно?
var
bs: TBlobStream;
begin
bs:=Query.CreateBlobStream(TBlobField(Query.FieldByName("Field"), bmRead);
Image.Picture.Bitmap.LoadFromStream(bs);
bs.Free;
end;

---

Desdechado   (2002-02-15 10:23:00) [1]

а что говорит?
не хватает скобки явно
и лучше так:
bs:=Query.CreateBlobStream( Query.FieldByName("Field") AS TBlobField, bmRead);

---

sunwheel   (2002-02-15 10:01:00) [2]

Попробуй так:

Var bs : TStream;
begin
bs := TBlobStream.Create(TBlobField(Query.FieldByName("Field"), bmRead);
Image.Picture.Bitmap.LoadFromStream(bs);
bs.Free;
end;

---

Наверх