Direct2D.Canvas in einer Bitmap speichern

[TiGü]

Wild, in Win64 geht's bei mir auch nicht.
Ich kann aber auch nur die ersten 3307 Bytes von MappedRect.bits auslesen, danach ist Zugriffsverletzung.

Delphi-Quellcode:

...
                HR := CopyBitmap.Map(MapOptions, MappedRect);
                if Succeeded(HR) then
                begin
                    SetLength(NewPtr, MappedRect.pitch * SizeU.Height);
                    Stream := TBytesStream.Create(NewPtr);
                    Stream.Write(MappedRect.bits, (3 * 1024) + 235);
...