Скачать: CL | DM;

Как правильно записать картинку из TImage в базу FB-1.5 ?   Найти похожие ветки 

← →
Prohodil Mimo ©   (2005-10-03 14:02) [0]

Как правильно записать картинку из TImage в базу FB-1.5 в поле блоб?

пробую так:

Var
  Bl : TStream;
  Query : TpFIBQuery;
Begin

Bl := TStream.Create;
Query.SQL.Clear;
Query.SQL.Add("INSERT INTO Darbniek (Dar_Foto) VALUES (:DarFoto)");

Image1.Picture.Graphic.SaveToStream(Bl);
Query.ParamByName("DarFoto").LoadFromStream(Bl);

Query.ExecQuery;

Bl.Free;
End;

в итоге получаю ошибку "abstract Error"

---

← →
Prohodil Mimo ©   (2005-10-03 14:51) [1]

оказалось
Bl := TStream.Create;
надо было заменить на
Bl := TMemoryStream.Create;

---

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

Скачать: CL | DM;



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