I obtained success making "a bridge", using TStream. See you the way that I made:
TO SHOW:
//procedure to show date
:
:
var
Stream: TStream;
begin
:
:
ZQuery1.open;
Stream:= TMemoryStream.Create;
Stream := ZQuery1.CreateBlobStream(ZQuery1.FieldByName('image'), bmRead); //Transferring the field image to the Stream
Stream.Position:=0;
DBImage1.Picture.Bitmap.LoadFromStream(Stream); //Loading the stream image to the DBImage
Stream.Free; //I think that is better to use TImage, not TDBImage
:
:
end;
TO SAVE:
//procedure to save date
:
:
var
Stream: TStream;
begin
:
:
Stream:= TMemoryStream.Create;
DBImage_logotipo.Picture.Bitmap.SaveToStream(Stream); //Transferring the field image to the Stream
//I think that is better to use TImage, not TDBImage
with ZUpdateSQL1 do
begin
ModifySQL.Text := 'update table_image ' +
' set image_id = :image_id, ' +
' image = :param_iamge';
Params.ParamByName('param_image').DataType := ftBlob;
Params.ParamByName('param_image').ParamType := ptInput;
Params.ParamByName('param_image').LoadfromStream(Stream,ftBlob); //Loading the stream image to the parameter
end;
ZQuery1.Post;
:
:
end;
However this code worket with PostgreSQL.
Recent
