2 Dimensionales Array übergeben

[EWeiss]

Zitat:

Nein, du kannst nicht mehr 2 dimensional darauf zugreifen (mit 2 Indices), aber du du kannst im Zweifelsfall so tun als ob:

Hmm da ist schlecht.
Wie machen denn andere Leute das ich muss doch die werte auswerten können als Bsp. nochmal das hier.

Delphi-Quellcode:

          for x := 0 to w do
           begin
             if (x >= h) or (y >= w) then
               continue;

             a := (((imgSpectrumData[x, y] and 4278190080) div 16777216) and 255);
             a := a - d;
             if a < 0 then
               a := 0;

             c := imgSpectrumData[x, y] and 16777215;
             if a > 127 then
                 imgSpectrumData[x, y] := c or ((a - 256) * 16777216)
             else
             imgSpectrumData[x, y] := c or (a * 16777216);
           end;

Das ist ja mein Dilemma.
Siehe Anhang die unterschiede. Links Original.
Es sollte schon genauso aussehen wie das Original.

gruss

[EWeiss]

Vielleicht ne blöde frage..
Kann ich das normale Array nachdem ich es übergeben habe nicht wieder zurück in das 2 Dimensionale konvertieren.
Macht das sinn?

Wenn es gehen würde hast vielleicht ein Beispiel?
KA ob das was bringt.

Die beste Lösung wäre das 2 Dimensionale Array zusammenzuführen und dann als 2 Dimensionales zu übergeben. Also ein 2 Dimensionales zusammenhängendes Array
Oder ist das quatsch.

Ich brauche das 2 Dimensionale sonst ist die rechte und linke Seite bei der Visualisierung nicht synchron.
Wenn ich symmetrical einstelle.

Warum kann man das mit VB6 so übergeben aber mit Delphi nicht. Verstehe ich nicht.

oder muss ich mir ein neues 2D Array vom erstellten Image erstellen?
Wider mal sehr verworren das ganze.

gruss

[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