Bitmap aus Clipboard laden

[Amateurprofi]

Zitat von Redeemer:

Ich benutze aktuellen den Befehl Image1.Picture.Bitmap.Assign(Clipboard) . Was passiert in diesem Fall bei dem Bild?

Danke Redeemer.
Hab ich probiert. Auch hier sind die Farben auf gleiche Weise verfälscht.
Hab noch einmal die Bilder in vergrößerter Form hochgeladen (Bild_5).
Links das Original, rechts das verfälschte Bild.

[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?

[jaenicke]

Ich vermute einmal, dass das Problem die Konvertierung als Bitmap ist, denn Paint legt in die Zwischenablage unter anderem CF_DIB und PNG ab, aber nicht CF_Bitmap. Wenn du also CF_Bitmap abrufst, muss Windows den Inhalt der Zwischenablage zuerst konvertieren.

Zitat von Amateurprofi:

Aber das Programm will unbedingt meinen PC reparieren und ist von dieser Idee nicht abzubringen.

Solch eine Funktion hat das Tool gar nicht. Was meinst du damit? Hast du vielleicht auf einen Werbebanner auf der Seite geklickt statt auf den Download?

Zitat von Amateurprofi:

Gibt es keine Möglichkeit, mit Delphi an die Binärdaten heranzukommen?

Doch, aber dann hast du auch wirklich nur die reinen Bildinformationen:

Delphi-Quellcode:

function GetClipboardDIBData(const ATarget: TMemoryStream): Boolean;
var
  ClipboardHandle: THandle;
  Src: Pointer;
  Size: Integer;
begin
  if Clipboard.HasFormat(CF_DIB) then
  begin
    OpenClipboard(0);
    try
      ClipboardHandle := GetClipboardData(CF_DIB);
      if ClipboardHandle <> 0 then
      begin
        Src := GlobalLock(ClipboardHandle);
        try
          Size := GlobalSize(ClipboardHandle);
          if Size > 0 then
          begin
            ATarget.WriteBuffer(Src^, Size);
            ATarget.Position := 0;
            Result := True;
          end
          else
            Result := False;
        finally
          GlobalUnlock(ClipboardHandle);
        end;
      end
      else
        Result := False;
    finally
      CloseClipboard;
    end;
  end
  else
    Result := False;
end;

procedure TForm290.FormCreate(Sender: TObject);
var
  Data: TMemoryStream;
begin
  Data := TMemoryStream.Create;
  try
    if GetClipboardDIBData(Data) then
      Data.SaveToFile('c:\temp\clipboarddata.bin');
  finally
    Data.Free;
  end;
end;

[Amateurprofi]

@jaenicke

Vielen Dank, Sebastian.

Zu "Solch eine Funktion hat das Tool gar nicht. ...":
Ich bin eigentlich recht vorsichtig mit dem Klicken, möchte das aber nicht ausschließen.
Werde es also noch einmal versuchen.

Zu "Paint legt in die Zwischenablage unter anderem CF_DIB und PNG ab, aber nicht CF_Bitmap."
Doch, auch CF_Bitmap ist enthalten (Siehe Bild_4).
Ups, gerade sehe ich das CF_Bitmap zwar vorhanden ist, aber mit Size=0.

Zu "... aber dann hast du auch wirklich nur die reinen Bildinformationen":
Ja, genau das möchte ich ja auch.
Ich möchte einfach wissen, welche Daten da wirklich stehen.
Vielleicht finde ich ja heraus, was der Grund für die verfälschten Farben ist.
Vielen Dank auch für die Programm-Codes. Werde ich mir im Laufe der Woche anschauen.

[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).

[Amateurprofi]

Zitat von 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).

Zu "Weil es einfacher ist ..."
Ja

Zu "dass Du nicht steuern kannst wie Paint das Bild in die Zwischenablage schreibt"
Ich bin dabei das herauszufinden.

Zu "können auch alle Programm"
Hab ich nichts dagegen.

[Amateurprofi]

Ich habe jetzt geprüft welche Daten unter CF_DIB im Clipboard stehen, nachdem eine .bmp-Datei mit dem Pixelformat pf8bit mit Paint geöffnet wurde und mit Ctrl-A und Ctrl-C ins Clipboard kopiert wurde.

In Kürze (Komplette Auswertung im Anhang)
Im Clipboard stehen unter CF_DIB folgende Daten:
1) Der komplette BitmapInfoHeader (40 Bytes).
Die Daten sind korrekt.
2) Die Palette mit 256 Einträgen. (1024 Bytes).
Warum eine Palette mit 256 Einträgen gespeichert wird, wenn nur 26 verschiedene Farben in der Bitmap enthalten sind, erschließt sich mir nicht.
Von den 26 Farben der Bitmap sind nur 4 in der Palette enthalten-
3) Die Farbinformationen (Indizes in die Palette) (256 Bytes).
4) Daten, deren Bedeutung (mir) unklar sind. (2776 Bytes).

Wenn ich die Datei mit Photoshop üffne und ins Clipboard kopiere sieht das anders aus,
Dann sind unter CF_DIB gespeichert:
1) Der komplette BitmapInfoHeader (40 Bytes).
Anders als bei Paint sind biClrUsed und biClrImportant = 239 (statt 0 bei Paint).
2) Die Palette mit 239 Einträgen. (956 Bytes).
Warum die Palette gerade 239 Einträge hat, ist mir nicht klar, denn 26 Einträge wären ausreichend.
3) Die Farbinformationen (Indizes in die Palette) (256 Bytes).
Wenn ich dann z.B. in Paint ein Paste mache, wird das Bild korrekt angezeigt.

[Sinspin]

Hast Du mal probiert auszulesen was unter "Embed Source"

Was hat Du eigentlich für ein Windows / Revision ... würde das gerne mal selber probieren mit anderen Tools auszulesen.
Und, schonmal auf einem anderen Windows probiert?

[Amateurprofi]

Zitat von Sinspin:

Hast Du mal probiert auszulesen was unter "Embed Source"

Was hat Du eigentlich für ein Windows / Revision ... würde das gerne mal selber probieren mit anderen Tools auszulesen.
Und, schonmal auf einem anderen Windows probiert?

Zu "Hast Du mal probiert"
Nein.

Zu "Was hat Du eigentlich für ein Windows"
Windows 7 Professional

Zu "schonmal auf einem anderen Windows probiert?"
Nein. (Hab nur dieses Windows.)