Как правильно записать картинку из TImage в базу FB-1.5 ?
Prohodil Mimo © (2005-10-03 14:02:00)
Как правильно записать картинку из 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:00) [1]
оказалось
Bl := TStream.Create;
надо было заменить на
Bl := TMemoryStream.Create;
Наверх 
ЧАТ |
Орешник |
|
