2 Dimensionales Array übergeben

[Neutral General]

Mach doch einfach alles wie gehabt mit dem 2D Array.
Ausnahme: Der Aufruf von GdipCreateBitmapFromScan0.
Vor dem Aufruf erstellst du dir aus deinem 2D Array ein 1D Array (Das ist eine Kopie, das 2D Array bleibt wie es ist) und übergibst das GdipCreateBitmapFromScan0.
Dann funktioniert der Aufruf und all deine Berechnungen vorher und nachher kannst du ja wie gewohnt mit deinem 2D-Array machen.

[EWeiss]

Zitat von Neutral General:

Mach doch einfach alles wie gehabt mit dem 2D Array.
Ausnahme: Der Aufruf von GdipCreateBitmapFromScan0.
Vor dem Aufruf erstellst du dir aus deinem 2D Array ein 1D Array (Das ist eine Kopie, das 2D Array bleibt wie es ist) und übergibst das GdipCreateBitmapFromScan0.
Dann funktioniert der Aufruf und all deine Berechnungen vorher und nachher kannst du ja wie gewohnt mit deinem 2D-Array machen.

ok denke ist das einfachste. .Danke dir.

gruss

[TiGü]

Beschäftige dich nochmal grundlegend, wie die Daten von Bitmaps im Speicher liegen und was so Begriffe wie Stride bedeuten.

Wie ein paar Beiträge vorher richtig geschrieben, sind Bitmaps im rohen Speicher keine 2D-Arrays, sondern liegen hintereinander weg.
Die nächste Zeile wird durch den Stride/Pitch angegeben.

Für pures GDI+ wirst du wenig Quellen finden, aber viele .NET Quelltextbeispiele, die sich mit den Elementen aus System.Drawing beschäftigen, wären ratsam anzuschauen.
Bsp.:
http://mapw.elte.hu/elek/bmpinmemory.html

[EWeiss]

Probeversion zum reinschnuppern gibt es hier.

Zitat:

Für pures GDI+ wirst du wenig Quellen finden, aber viele .NET Quelltextbeispiele, die sich mit den Elementen aus System.Drawing beschäftigen, wären ratsam anzuschauen.

Du hast dich extra schlau gemacht? Danke!

gruss

[EWeiss]

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

[Neutral General]

Mach das nicht!
FALLS das klappt, dann nur mit Glück und an jedem ersten Mittwoch des Monats!

Dein Code kopiert gar nichts. Es ist das Gleiche als würdest du direkt @SpectrumData2D[0, 0] übergeben.

[EWeiss]

Zitat:

FALLS das klappt, dann nur mit Glück und an jedem ersten Mittwoch des Monats!

Test es doch bitte..
Ich kann Hunderte von Images speichern und alle sind korrekt.
Kannst du gerne glauben.

Und zwar nach jedem Draw..

Delphi-Quellcode:

  if FSymmetrical then
  begin
    GDIP_DrawImageRectI(grWindow, imgSpectrum, round(Sh), 0, round(-Sh), round(Sh * 2 + 1));
    GDIP_DrawImageI(grWindow, imgSpectrum, round(Sh), 0);
  end else
  GDIP_DrawImageI(grWindow, imgSpectrum, 0, 0);

//  GDIP_SaveImageToFile(ExtractFilePath(ParamStr(0)) + '\Text.png', imgSpectrum, Ord(QualityModeHigh));

gruss