TBitmap in die Zwischenablage kopieren

[Christian18]

Hallo,

ich habe ein Bild in einer Variablen.

Delphi-Quellcode:

  var bitmap : TBitmap;

Wie kann ich das Bild in die Zwischenablage kopieren?

LG Chris

[Christian18]

Hallo,

man soll es so machen können:

Bitmap.SaveToClipboardFormat();

welche parameter müssen da rein?

[Luckie]

Zitat:

Zitat von Christian18

welche parameter müssen da rein?

Steht in der Hilfe.

[Christian18]

Hi,

ja das habe ich gesehen. Ich kann damit aber gerade gar nichts anfangen.


procedure SaveToClipboardFormat(var Format: Word; var Data: Cardinal; var APalette: HPALETTE); override;

[Luckie]

In der Hilfe ist auch ein Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  MyFormat : Word;
  Bitmap : TBitMap;
  AData,APalette : THandle;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('c:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp');
    Bitmap.SaveToClipBoardFormat(MyFormat,AData,APalette);
    ClipBoard.SetAsHandle(MyFormat,AData);
  finally
    Bitmap.Free;
  end;
end;

[Christian18]

Hallo,

leider funktioniert das nicht.

Fehler:
Bitmap.SaveToClipBoardFormat(MyFormat,AData,APalet te);
[Pascal Fehler] UProgramm.pas(120): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

ClipBoard.SetAsHandle(MyFormat,AData);
[Pascal Fehler] UProgramm.pas(121): E2003 Undefinierter Bezeichner: 'ClipBoard'

LG Chris

[bitsetter]

Moin,

so müsste es funktionieren:

Delphi-Quellcode:

 uses
  Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyFormat : Word;
  Bitmap : TBitMap;
  AData : THandle;
  APalette : HPALETTE;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('c:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp');
    Bitmap.SaveToClipBoardFormat(MyFormat,AData,APalette);
    ClipBoard.SetAsHandle(MyFormat,AData);
  finally
    Bitmap.Free;
  end;
end;

[MarioTheKing]

Es geht noch einfacher:

[delphi]

procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap : TBitMap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('c:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp');
clipboard.Assign(Bitmap);
finally
Bitmap.Free;
end;
end;