Bitmap aus Clipboard laden

[Amateurprofi]

Ich habe eine .bmp-Datei
Die öffne ich mit Paint.
In Paint wird das Bild korrekt angezeigt (Bild_1).
Mit Ctrl-A und Ctrl-C kopiere ich die ins Clipboard,
Dann lade ich die aus dem Clipboard (siehe unten) und speichere sie.
Die gespeicherte Datei öffne ich mit Paint.
Die Datei wird angezeigt, aber mit verfälschten Farben (Bild_2).
Ähnliches passiert, wenn ich die Originaldatei mit Paint öffne, ins Clipboard kopiere und mit Photoshop aus dem Clipboard lade (Bild_3).
2 Fragen
1) Was ist der Fehler?
2) Wie kann ich herausfinden, welche Daten (Speicherauszug) tatsächlich im Clipboard sind?

Hab gerade gemerkt, das man die Bilder nicht in vergrößerter Form anzeigen kann.
Die Farben der aus dem Clipboard geladenen Bilder scheinen Systemfarben (clActiveBorder .. clWindowText) zu sein.

Prozedur zum Laden aus dem Clipboard:

Delphi-Quellcode:

PROCEDURE TMain.Test;
FUNCTION FullPath(const Dsn:String):String;
begin
   Result:=ExtractFilePath(ParamStr(0))+Dsn;
end;
var Bmp:TBitmap; Data:THandle; Palette:HPalette;
begin
   if ClipBoard.HasFormat(CF_Bitmap) then begin
      Bmp:=TBitmap.Create;
      ClipBoard.Open;
      try
         Data:=GetClipboardData(CF_BITMAP);
         Palette:=GetClipboardData(CF_PALETTE);
         Bmp.LoadFromClipboardFormat(CF_BITMAP,Data,Palette);
      finally
         ClipBoard.Close;
      end;
      Bmp.SaveToFile(FullPath('Test.bmp'));
      Bmp.Free;
   end;
end;

[Sinspin]

Das ist jetzt keine Antwort auf deine Frage, aber warum öffnest Du mit Paint?

[Gausi]

Im Beispiel-Code für LoadFromClipboardFormat in der Delphi-Hilfe wird mit "0" für den Paletten-Parameter gearbeitet. Liegt es vielleicht daran?

Für ein TPicture ist der Beispielcode ja einfach nur
Picture.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);

[Amateurprofi]

Zitat von Gausi:

Im Beispiel-Code für LoadFromClipboardFormat in der Delphi-Hilfe wird mit "0" für den Paletten-Parameter gearbeitet. Liegt es vielleicht daran?

Für ein TPicture ist der Beispielcode ja einfach nur
Picture.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);

Danke, Gausi.

Nein ,daran liegt es nicht.
Mit 0 statt Palette machte ich es ursprünglich.
Dann sah ich dieses:

Delphi-Quellcode:

procedure TClipboard.AssignToBitmap(Dest: TBitmap);
var
  Data: THandle;
  Palette: HPALETTE;
begin
  Open;
  try
    Data := GetClipboardData(CF_BITMAP);
    Palette := GetClipboardData(CF_PALETTE);
    Dest.LoadFromClipboardFormat(CF_BITMAP, Data, Palette);
  finally
    Close;
  end;
end;

Zur Vollständigkeit:
Nach Palette := GetClipboardData(CF_PALETTE); ist Palette = 0.

[Amateurprofi]

Zitat von Sinspin:

Das ist jetzt keine Antwort auf deine Frage, aber warum öffnest Du mit Paint?

Aus unterschiedlichen Gründen.
Zum Bespiel, um bestimmte Bereiche eines Bildes zu entfernen.

[Sinspin]

Zitat von Amateurprofi:

Zitat von Sinspin:

Das ist jetzt keine Antwort auf deine Frage, aber warum öffnest Du mit Paint?

Aus unterschiedlichen Gründen.
Zum Bespiel, um bestimmte Bereiche eines Bildes zu entfernen.

Das geht aber auch in Delphi auch. Nur halt eventuell nicht mit Canvas, sondern der Gr32 oder was in der Art.

[jaenicke]

Mit InsideClipboard kannst du die Formate sehen und den Inhalt direkt als Binärdatei speichern:
https://www.nirsoft.net/utils/inside_clipboard.html

[Amateurprofi]

Zitat von Sinspin:

Zitat von Amateurprofi:

Zitat von Sinspin:

Das ist jetzt keine Antwort auf deine Frage, aber warum öffnest Du mit Paint?

Aus unterschiedlichen Gründen.
Zum Bespiel, um bestimmte Bereiche eines Bildes zu entfernen.

Das geht aber auch in Delphi auch. Nur halt eventuell nicht mit Canvas, sondern der Gr32 oder was in der Art.

Das geht auch mit Canvas, aber warum erst eine Prozedur schreiben, wenn Paint das Zuschneiden von Bildern perfekt macht?
Ich könnte auch alles mit Buntstiften abmalen. Will ich aber nicht.

[Amateurprofi]

Zitat von jaenicke:

Mit InsideClipboard kannst du die Formate sehen und den Inhalt direkt als Binärdatei speichern:
https://www.nirsoft.net/utils/inside_clipboard.html

Danke jaenicke.
Hab ich runtergeladen.
Aber das Programm will unbedingt meinen PC reparieren und ist von dieser Idee nicht abzubringen.
Deshalb wieder gelöscht.
Gibt es keine Möglichkeit, mit Delphi an die Binärdaten heranzukommen?

[Sinspin]

Zitat von Amateurprofi:

Zitat von Sinspin:

Das geht aber auch in Delphi auch. Nur halt eventuell nicht mit Canvas, sondern der Gr32 oder was in der Art.

Das geht auch mit Canvas, aber warum erst eine Prozedur schreiben, wenn Paint das Zuschneiden von Bildern perfekt macht?
Ich könnte auch alles mit Buntstiften abmalen. Will ich aber nicht.

Weil es einfacher ist eine Bmp-Datei mit einem externen Programm zu öffnen, darin mit dem externen Programm rumzumalen, es in die Zwischenablage zu kopieren und von dort dann endlich in Delphi zu öffnen?
Das sind keine Buntstifte, das sind Tanklaster voller Farbe.

Abgesehen davon dass Du nicht steuern kannst wie Paint das Bild in die Zwischenablage schreibt, können auch alle Programm die eine Zwischenablage implementiert haben sich das Bild "heimlich" ziehen. Inclusive offene Remote Sessions (soweit nicht deaktiviert).