No Logro grabar una imagen desde Clipboard hacia la BD

[ecfisa]

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