Image aus der DB "resizen" und ins ClipBoard kopieren

[Reinhardtinho]

Nach ein bisschen Suchen habe ich die Prozedur Assign gefunden und somit ist das Problem gelöst.
Vielen Dank an alle die geholfen haben.

Hier noch schnell meine Lösung:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Bitmap1, Bitmap2 : TBitmap;
  AFormat  : Word;
  AData    : THandle;
  APalette : HPALETTE;
begin
  Bitmap1 := TBitmap.Create;
  Bitmap2 := TBitmap.Create;

  try
    Bitmap1.Width  := 100;
    Bitmap1.Height := 100;

    Bitmap2.Assign(Image1.Picture.Graphic);
    Bitmap1.Canvas.StretchDraw(Rect(0,0,100,100), Bitmap2);

    Bitmap1.SaveToClipboardFormat(AFormat, AData, APalette);
    ClipBoard.SetAsHandle(AFormat, AData);
  finally
    Bitmap1.Free;
    Bitmap2.Free;
  end;
end;

MFG
Lorenz

*** GELÖST ***