Текущий архив: 2002.03.14;
Скачать: CL | DM;
Вниз
Картинки в БД ... Найти похожие ветки
← →
_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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.012 c
