2 Dimensionales Array übergeben

[Neutral General]

Warum hast du denn TSpectrumArray als 2 Dimensionales Array definiert, statt auch wie in VB als eindimensionales?
Das sind natürlich 2 verschiedene Dinge. Kann also so ja gar nicht funktionieren.
Kannst du dein TSpectrumArray nicht einfach als Array of Integer deklarieren?

[EWeiss]

Zitat von Neutral General:

Warum hast du denn TSpectrumArray als 2 Dimensionales Array definiert, statt auch wie in VB als eindimensionales?
Das sind natürlich 2 verschiedene Dinge. Kann also so ja gar nicht funktionieren.
Kannst du dein TSpectrumArray nicht einfach als Array of Integer deklarieren?

Es ist zweidimensional.

Code:

imgSpectrumData(x + dx, y + dy)

Das erste für die weite das zweite für die Höhe.
Du kannst also ein Bitmap in einem einfachen Array wohlgemerkt zwei werte Höhe, Weite verwalten? Jo eventuell über einen Record nur das ist hier nicht vorgesehen.
Wie?

gruss

[Neutral General]

Es sieht ja so aus als wäre das mit den 2 Dimensionen doch richtig.
Generell geht das aber auch in einem 1D Array mit der Länge (Widht * Height).
Dann schreibst du die Zeilen einfach hintereinander, statt "untereinander".
Aber das scheint ja soweit ich das sehe für den Fall nicht relevant zu sein.

Edit: Habe gerade mal GdipCreateBitmapFromScan0 gegoogelt und das klingt schon sehr danach als müsste man für den Scan0 parameter einen zusammenhängenden Speicherblock übergeben.
D.h. ein eindimensionales Array. Wodurch das was ich oben geschrieben habe wieder relevant wird.

[EWeiss]

Zitat von Neutral General:

Es sieht ja so aus als wäre das mit den 2 Dimensionen doch richtig.
Generell geht das aber auch in einem 1D Array mit der Länge (Widht * Height).
Dann schreibst du die Zeilen einfach hintereinander, statt "untereinander".
Aber das scheint ja soweit ich das sehe für den Fall nicht relevant zu sein.

Da gebe ich dir recht oder über einen Record in dem ich die weite und höhe angebe.
Aber leider geht das so nicht denn dann müsste ich alles komplett umschreiben.

Zitat:

D.h. ein eindimensionales Array.

Das wird schwierig.
Seltsam nur das in VB6 auch so funktioniert.
Wie kann ich das am besten angehn?

gruss

[EWeiss]

Hier ein Beispiel wie die ImageDaten übergeben werden.. Wie soll das gehen bei einem ein Dimensionalen Array.

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;

würde das gehen?
imgSpectrumData[x][y] ist aber auch 2 dimensional.

EDIT:
Nein geht nicht! Siehe shot

gruss

[hoika]

Hallo,
ich habe auch mal gegoogelt

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

[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