Bild mit Transparenz aus Zwischenablage / Drag&Drop bekommen

Niko Ortner · 9. August 2013, 21:21

Ich ärgere mich schon längere Zeit damit, dass Bilder, die aus der Zwischenablage mit diesem Code:

VB.NET-Quellcode

If Clipboard.ContainsImage Then
DoSomething(Clipboard.GetImage)
End If

herausgeholt werden, die Transparenz verlieren.

Ich habe mich deshalb auf die Suche nach einer Lösung gemacht. Weil das relativ lange gedauert hat und ich keine komplette Lösung gefunden habe, habe ich mich entschlossen, die Lösung hier zu posten, damit es andere leichter haben.

Den Schlüssel habe ich von diesem Blog:
hecgeek.blogspot.co.at/2007/04/converting-from-dib-to.html

Nachfolgend der Code. Hoffentlich ausreichend kommentiert.

VB.NET-Quellcode

Sub ...()
'Das IDataObject stellt den Zugriff auf das Bild bereit.
'Die Zwischenablage kann über ClipBoard.GetDataObject() angesprochen werden.
'Per Drag&Drop gezogene Daten über die Data-Property der gelieferten DragEventArgs.
Dim DataObject As IDataObject = ...
Dim Bytes As Byte()
'DIB steht für "Device Independent Bitmap".
'Das IDataObject gibt für dieses Format einen MemoryStream zurück. Wir benötigen aber die rohen Bytes als Array.
Using Stream = DirectCast(DataObject.GetData(DataFormats.Dib), System.IO.MemoryStream)
If Stream Is Nothing Then
'Wenn der Stream Nothing ist, kann kein Bild abgerufen werden. Das trifft z.B. zu, wenn sich Text in der Zwischenablage befindet.
End If
'Stream.Length ist vom Typ Int64. Ich ignoriere an dieser Stelle mal, dass es theoretisch so große Bilder geben könnte, denn da geht vorher der Arbeitsspeicher aus.
Dim ByteCount = CInt(Stream.Length)
Bytes = New Byte(ByteCount - 1) {}
Stream.Read(Bytes, 0, ByteCount)
End Using
'Der Header der DIB-Daten enthält am Anfang einen 32Bit-Wert und dann die Breite und Höhe des Bildes, angegeben als vorzeichenlose 32Bit-Werte (UInt32) im Big-Endian-Format (Höchstwertigstes Byte zuletzt).
'Der <<-Operator auf ein Byte angewandt, gibt ein Byte zurück. Das würde für diesen Zweck nicht funktionieren (Die Bits würden links abgeschnitten werden). Deshalb wird jedes Byte gleich zu UInt32 konvertiert. Das Ergebnis wird dann zu Int32 konvertiert (auch hier angenommen, dass kein normales Bild breiter als 2^31 Pixel ist).
Dim Width = CInt(CUInt(Bytes(7)) << 24 Or CUInt(Bytes(6)) << 16 Or CUInt(Bytes(5)) << 8 Or CUInt(Bytes(4)))
Dim Height = CInt(CUInt(Bytes(11)) << 24 Or CUInt(Bytes(10)) << 16 Or CUInt(Bytes(9)) << 8 Or CUInt(Bytes(8)))
'Per GCHandle wird das Byte-Array im Arbeitsspeicher "festgepinnt".
Dim Handle = System.Runtime.InteropServices.GCHandle.Alloc(Bytes, System.Runtime.InteropServices.GCHandleType.Pinned)
'Der dritte Parameter (stride) gibt an, wie viele Bytes eine Zeile des Bildes benötigt. Da ein Pixel 4 Bytes groß ist (ARGB), ist Stride Width * 4.
'Der letzte Parameter (scan0) gibt die Adresse des Byte-Arrays an. Der Header der DIB-Daten ist 40 Bytes groß und wird übersprungen. Deshalb + 40.
Dim Bpm As New Bitmap(Width, Height, Width * 4, Imaging.PixelFormat.Format32bppArgb, Handle.AddrOfPinnedObject + 40)
'Komischerweise ist das Bild vertikal gespiegelt. Deshalb muss noch RotateFlip angewandt werden.
Bpm.RotateFlip(RotateFlipType.RotateNoneFlipY)
'Anschließend noch das GCHandle freigeben.
Handle.Free()
'Hier kann mit Bpm weitergearbeitet werden.
'Disposen nicht vergessen ;)
End Sub

Edit:
Ich habe Probleme, einen Bildausschnitt, der aus Paint kopiert ist, so zu bekommen. Das gibt einer AccessViolationException bei Bpm.RotateFlip().
Wenn ich dazu komme, das genauer zu testen, werde ich versuchen, eine Lösung zu finden.
(Windows 8 64bit)

Bild mit Transparenz aus Zwischenablage / Drag&Drop bekommen

Bild mit Transparenz aus Zwischenablage / Drag&Drop bekommen

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

1 Benutzer hat hier geschrieben