Форум: "Базы";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Вниз

Картинки в БД ...   Найти похожие ветки 

← →
_Oleg_   (2002-02-15 08:33) [0]

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

---

← →
sunwheel   (2002-02-15 10:01) [1]

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

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

---

← →
Desdechado   (2002-02-15 10:23) [2]

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

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.004 c