2 Dimensionales Array übergeben

[EWeiss]

Zitat von hoika:

Hallo,
ich habe auch mal gegoogelt

Hilft das hier weiter?
https://www.delphipraxis.net/156268-...e-mit-gdi.html

Leider nicht!

Das imgSpectrum wird ja über das Array imgSpectrumData im Speicher erstellt.
Es ist quasi ein leeres Bitmap.

Bei deinem Beispiel wird ein HBitmap eingeladen das wäre kein Problem.
Danke.

gruss

[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