Sofern dein Stream ein MemoryStream ist und PSaveArray einfach nur ein Pointer auf ein ByteArray ist, müsste folgendes funktionieren:
Delphi-Quellcode:
SetPixelData(
Pointer(NativeUInt(Stream.Memory) + SizeOf(TBitmapFileHeader)),
Pointer(NativeUInt(Stream.Memory) + SizeOf(TBitmapFileHeader) + SizeOf(TBitmapInfoHeader)));
Danke werde es mal versuchen.
Habe das Speicherleck auch gefunden
Nach jeden Durchlauf habe ich das Array von "posin" mit FillChar wieder auf 0 gesetzt.
Das führte dazu das der Speicher alle 1- 2 Min sich um 1 MB erhöht hat.
Hatte ich vorher auch noch nie so ein Problem.
gruss