2 Dimensionales Array übergeben

[Neutral General]

Funktion um ein 2D ByteArray in ein 1D ByteArray zu konvertieren:

Delphi-Quellcode:

type
  TArray2D = Array of Array of Byte;
  TArray1D = Array of Byte;

function Array2DTo1D(AArray: TArray2D): TArray1D;
var y,x: Integer;
    n: Integer;
begin
  SetLength(Result, Length(AArray) * Length(AArray[0]));

  n := 0;
  for y := 0 to High(AArray) do
  begin
    for x := 0 to High(AArray[y]) do
    begin
      Result[n] := AArray[y,x];
      inc(n);
    end;
  end;
end;

Test:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var arr2: TArray2D;
    arr1: TArray1D;
    y,x: Integer;
begin
  // Arr2 mit Testdaten befüllen
  SetLength(arr2, 3, 3);
  for y := 0 to High(arr2) do
    for x := 0 to High(arr2[y]) do
      arr2[y,x] := random(100);
  // arr2 in 1D Array konvertieren
  arr1 := Array2DTo1D(arr2);
end;

Am Ende der Testmethode sehen die Arrays aus wie im Anhang

[EWeiss]

Kann die also nachher als normale 2 Dimensionale Arrays weiter behandeln?
Oder ändert sich da was.

Danke übrigens für deine Arbeit.

gruss

[Neutral General]

Weiß nicht genau was du alles noch machst.
Aber in der Theorie kannst du dein Array nur für den Aufruf in ein 1D konvertieren.
Dein 2D-Array kannst du ja behalten und weiterhin benutzen, wenn du das danach noch brauchst.

[EWeiss]

Zitat von Neutral General:

Weiß nicht genau was du alles noch machst.
Aber in der Theorie kannst du dein Array nur für den Aufruf in ein 1D konvertieren.
Dein 2D-Array kannst du ja behalten und weiterhin benutzen, wenn du das danach noch brauchst.

Das 2 Dimensionale Array beinhaltet doch die Daten des erstellten Image.. also in dem fall sind alle werte 0,0 für weite und höhe (Farben)
Wenn ich dieses nun in einem normalen Array lege kann ich doch nicht mehr auf dieses Array 2 Dimensional zugreifen.

Verstehe ich irgendwie nicht.

Hmmm…. sieht auf jeden fall besser aus wie vorher.. Danke nochmal.

gruss

[Neutral General]

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

Delphi-Quellcode:

// Daten aus arr1 auslesen, als wäre es 2D:
w := 3;
h := 3;
for y := 0 to h-1 do
begin
  line := '';
  for x := 0 to w-1 do
    line := line + IntToStr(arr1[y*w + x]) + ',';
  Memo1.Lines.Add(line);
end;

Ergibt: Siehe Anhang.

[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