Hola darkamerico.
No mencionaste con que componentes estas trabajando y hay diferencias al operar entre ellos.
Pero para darte un ejemplo orientativo, de este modo copiarias un
TBitmap desde el clipboard a un
TBlobField usando los componentes
IBX:
Código Delphi
[-]
...
var
Stream: TStream;
bmp : TBitmap;
begin
if Clipboard.HasFormat(CF_BITMAP) then
begin
Stream := TMemoryStream.Create;
try
bmp := TBitmap.Create;
try
bmp.Assign(Clipboard);
bmp.SaveToStream(Stream);
finally
bmp.Free;
end;
Stream.Seek(0, soBeginning);
IBQuery1.SQL.Clear;
IBQuery1.SQL.Text := 'UPDATE LA_TABLA SET CPO_IMAGE = :IMAGE WHERE ID = :ID';
IBQuery1.ParamByName('ID').AsInteger := un_ID;
IBQuery1.ParamByName('IMAGE').LoadFromStream(Stream, ftBlob);
IBQuery1.ExecSQL;
finally
Stream.Free;
end;
end;
end;
Saludos