Wir haben uns so viel Kopf gemacht das Array zu kopieren eigentlich ganz einfach.
Eine Variable definieren.
ImgData2D: TBytes;
Das Array reinkopieren.
ImgData2D := @SpectrumData2D[0, 0];
übergeben
Delphi-Quellcode:
if GDIP_CreateBitmapFromScan0(w, rc.Bottom, w * 4, PixelFormat32bppARGB,
PByte(ImgData2D[0]), imgSpectrum) <> OK then
zum testen speichern
GDIP_SaveImageToFile(ExtractFilePath(ParamStr(0)) + '\Text.png', imgSpectrum, Ord(QualityModeHigh));
Anschauen! Fertig.
gruss