No Logro grabar una imagen desde Clipboard hacia la BD

[[AgustinOrtu]]

Si queres guardar una imagen de manera "normal" es decir sacando todo lo del portapapeles, funciona?
Cual es el tipo del campo en la BD?

[darkamerico]

El tipo del campo es Longblob amigo.

[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

[darkamerico]

GRACIAS ECFISA!!!

Es una real satisfacción comunicarles que al fin salio el código, aquí lo comparto con ustedes:

Código Delphi [-]
procedure TForm3.Inserta(Sender: TObject);
var
  nomArch: string;
  BlobFieldValue: TMemoryStream;
  bmp, BMPdestino:TBitmap;
  Rect: TRect;
begin
  if imgEnClipBoard = false then
    tab.PageIndex := 0
  else
  begin
    if Clipboard.HasFormat(CF_BITMAP) then
    begin
      BlobFieldValue := TMemoryStream.Create;
      try
        bmp:=TBitmap.Create;
        BMPdestino:=TBitmap.Create;
        try
          bmp.Assign(Clipboard);
          BMPdestino.Width := 100;
          BMPdestino.Height := 100;
          Rect:= TRect.Create(0, 0, 100, 100);
          BMPdestino.Canvas.StretchDraw(Rect, bmp);
          BMPdestino.SaveToStream(BlobFieldValue);
        finally
          bmp.Free;
          BMPdestino.Free;
        end;
        BlobFieldValue.Seek(0, soBeginning);
        dm.q_UPDFoto.Close;
        dm.q_UPDFoto.Params[0].LoadFromStream(BlobFieldValue, ftblob);
        dm.q_UPDFoto.ParamByName('IDPerx').AsInteger := StrToInt(txtID.Text);
        dm.q_UPDFoto.ExecSQL;
      finally
        BlobFieldValue.Free;
      end;
    end;
  end;
end;