Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#32

AW: 2 Dimensionales Array übergeben

  Alt 25. Mär 2019, 09:58
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
  Mit Zitat antworten Zitat