Hallo, ich habe jetzt den ganzen Tag gesucht, aber keine Lösung gefunden; deshalb wüsste ich gerne, ob hier jemand eine Lösung für dieses Problem hat:

Wenn ich ein Bild aus der Zwischenablage in ein TImage bzw. in eine Bitmap einfüge, gehen dabei offenbar die Bittiefe-Informationen verloren:

zusammenfalten · markieren

Delphi-Quellcode:

MyImage.Picture.Bitmap.Assign(Clipboard);
PF := MyImage.Picture.Bitmap.PixelFormat;
// Fehler: PF ist immer pfDevice!!!
case PF of
  pf1bit: PFStr := '1 BPP';
  pf4bit: PFStr := '4 BPP';
  pf8bit: PFStr := '8 BPP';
  pf15bit: PFStr := '15 BPP';
  pf16bit: PFStr := '16 BPP';
  pf24bit: PFStr := '24 BPP';
  pf32bit: PFStr := '32 BPP';
  pfDevice: PFStr := 'Device';
  pfCustom: PFStr := 'Custom';
else
  PFStr := 'else';
end;

Wie kann man die Bittiefe-Informationen des Bildes in der Zwischenablage erhalten? Wenn ich in einem Grafikprogramm (Irfanview) ein Bild in die Zwischenablage kopiere und dann wieder einfüge, bleibt die jeweilige Bittiefe des Bildes erhalten. Also muss diese Information im Zwischenablage-Bild irgendwie enthalten sein. Wer weiß einen Rat?

Wie kommt das Bild in die Zwischenablage und bist du dir ganz sicher, daß es dort auch als Bitmap drinnen ist?

Ist Clipboard das Clipboard aus der Unit Clipbrd?
Wenn ja, dann sollte das Bild am Ende über TBitmap.LoadFromClipboardFormat geladen werden und ich hätte erwartet, daß dort die Bildinformationen erhalten bleiben.

Zitat von himitsu:

Wie kommt das bild in die Zwischenablage und bist du dir ganz sicher, daß es dort auch als Bitmap drinnen ist?

Hallo himitsu, durch Kopieren z.B. in Irfanview (Strg-C). Die Formate in der Zwischenablage sind DIB, BITMAP, und MAX. (Nach Kopieren aus Irfanview). Das Bitmap-Format ist also in der Zwischenablage enthalten.

Zitat von himitsu:

Ist Clipboard das Clipboard aus der Unit Clipbrd?

Ja, Vcl.Clipbrd in Delphi XE2.

Zitat von himitsu:

Wenn ja, dann sollte das Bild am Ende über TBitmap.LoadFromClipboardFormat geladen werden und ich hätte erwartet, daß dort die Bildinformationen erhalten bleiben.

LoadFromClipboardFormat habe ich auch schon versucht, mit dem gleichen Ergebnis: Pixelformat ist immer pfDevice.

Ich hab mir mal TBitmap angeguckt.

Du bekommst ein Bild im bmDDB-Format, aber du benötigst eigentlich bmDIB,
denn PixelFormat liefert bei bmDDB immer nur pfDevice.

Versuch mal

markieren

Delphi-Quellcode:

MyImage.Picture.Bitmap.Assign(Clipboard);
MyImage.Picture.Bitmap.HandleType := bmDIB;
PF := MyImage.Picture.Bitmap.PixelFormat;
....

PS: Genau dafür hat man sich die Quellcodes vom Delphi gekauft.

Zitat von himitsu:

markieren

Delphi-Quellcode:

MyImage.Picture.Bitmap.Assign(Clipboard);
MyImage.Picture.Bitmap.HandleType := bmDIB;
PF := MyImage.Picture.Bitmap.PixelFormat;
....

Vielen Dank für den Rat, den ich befolgt habe. Aber jetzt ist MyImage.Picture.Bitmap.PixelFormat immer pf32bit anstatt wie vorher pfDevice, unabhängig davon welches Format (24BPP, 8BPP usw.) ich in die Zwischenablage kopiere! Nur bei 1-Bit Format wird richtig pf1bit erkannt!

Kann es sein, dass die Bitmap das PixelFormat des Clipboard-Bildes gar nicht annimmt, sondern immer sein eigenes verwendet?

Edit: Mir geht es ja nur darum, die Bittiefe des Bildes in der Zwischenablage zu erfahren, die Bitmap des Timage kann ruhig im 32BPP Format sein. Gibt es keine Möglichkeit, die Bittiefe des Bildes in der Zwischenablage zu erfahren?

Gute Frage.
TBitmap.SetHandleType sieht jedenfalls nicht danach aus, als wenn dort die Pixelgröße verändert wird ... sieh ehern so aus, als wenn die eigentlich so bleiben müßte, wie sie ist.

Problem ist halt, daß du beim DDB eben nie das Format rausbekommst, jedenfalls nicht über das PixelFormat.

markieren

Delphi-Quellcode:

function TBitmap.GetPixelFormat: TPixelFormat;
begin
  Result := pfCustom;
  if HandleType = bmDDB then
    Result := pfDevice
  else

Bitmaps kennen auch noch viele andere Farbkodierungen, als nur die paar aus TPixelFormat.
Also nur über dieses TPixelFormat kannst du eh nicht alles rausbekommen.

Du könntest nachsehn, ob du über die WinAPI an mehr Infos rankommst.
http://msdn.microsoft.com/en-us/library/dd183561.aspx


http://www.codeguru.com/cpp/g-m/bitm...DDB-to-DIB.htm

Oder such mal im MSDN und in den Delphi-Codes nach bmBitsPixel und bmPlanes. (Bits = bmPlanes * bmBitsPixel)
bmPlanes = Anzahl der Farbkanäle
bmBitsPixel = Anzahl der Pixel pro Kanal

Hallo himitsu, ich habe inzwischen die Lösung gefunden:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
  DIB: PBitmapInfoHeader;
begin
  if Clipboard.HasFormat(CF_DIB) then
  begin
    DIB := Pointer(Clipboard.GetAsHandle(CF_DIB));
    if (DIB <> nil) then
      Form1.Caption := IntToStr(DIB^.biBitCount);
  end;
end;