Картинки в БД ...

← →
_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;

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

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