RGB Farben eines Bildes auslesen und in matrix speichern

Heider · Verfasst: Do 20.07.06 15:04

hi!

hab mal ne Fragen zu meinen Quelltext (siehe unten). Ich will ein Bild mit Scanline auslesen und in ne Matrix schreiben um damit berechnungen (Fouriertransformation, etc) durchzuführen. Doch das Programm brich immer beim zweiten Pixel ab, der erste wird noch, so wie es aussieht korrekt in die matrix geschrieben.

Deklaration der Matrix Global

markieren

Delphi-Quelltext

1:	imagematrix: array of array of array of Byte;

Programmteil mit Fehler (so wies aussieht)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

function TfrmMain.GetColorMatrix(): Boolean;
type
 PixArray = array[1..3] of Byte;
var
  X, Y, I, J: Integer;
  pData: ^PixArray;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  GetColorMatrix:= False;
  try
    with bmp do begin
      // 24 Bit Pixelformat
      PixelFormat := pf24bit;
      bmp.assign(imgOrig.Picture);
      Width := bmp.Width;
      Height := bmp.Height;
      SetLength(imagematrix,Height);
      for I := Low(imagematrix) to High(imagematrix) do
        begin
          SetLength(imagematrix[I], Width);
        for J := Low(imagematrix[I]) to High(imagematrix[I]) do
          SetLength(imagematrix[I,J], 3);
        end;
      // Zeile holen
      for Y := 0 to Height -1 do begin
        pData := bmp.ScanLine[Y];

        // Spalte
        for X := 0 to Width -1 do begin

          // im Matrix schreiben
          imagematrix[X][Y][0] := pData^[1]; //Rotwert
          imagematrix[X][Y][1] := pData^[2]; //Grünwert
          imagematrix[x][Y][2] := pData^[3]; //Blauwert
          // Pointer aufs nächste Pixel setzen.
         Inc(pData);
        end;
      end;
    end;
  finally
    // frei geben
    bmp.Free;
    GetColorMatrix:= True
  end;

end;

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Ach wie ging das nochmal? RGB() war es nicht, ColourToRGB. Ohh diese Hitze...

Darf man fragen, wass du genau vor hast? Weil TBitmap.Canvas.Pixels[x,y]bzw. Scanlinewäre doch vielleicht optimaler?

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Erstens: Er benutzt doch ScanLine ^^ Zweitens: Wo ist denn der Fehler und welcher tritt auf? Drittens würde ich das Result nicht im FINALLY (Das auch bei einer exception ausgelöst wird, also egal, ob eine auftritt oder nicht) auf True setzen, sondern im EXCEPT auf false!

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

Heider · Verfasst: Do 20.07.06 16:26

Also der Fehler tritt in zeile 33 bis 35 auf und ist ein Speicherzugriffsfehler, aber erst nachdem der erste Pixel ausgelesen und in die Matrix geschrieben wurde.

Ps. Danke für den Hinweis mit dem Except

F34r0fTh3D4rk · Verfasst: Do 20.07.06 18:24

warum benutzt du ein 3d array ? warum machst du net:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

  type
    TRGBColor = record
      R,
      G,
      B: byte;
{...}

markieren

Delphi-Quelltext

1:
2:

var
  colormatrix: array of array of TRGBColor;

? steigert die übersicht

Heider · Verfasst: Do 20.07.06 23:26

Also ich hab mir erstmal alle Tips zu herzen genommen und den Quelltext entsprechend geändert und aufeinmal scheints zu gehen.

hier der neue Quelltext

Globale Deklaration

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

type
  TRGBColor = record
    R,
    G,
    B: byte;
  end;

var
 imagematrix: array of array of TRGBColor;

und hier der Programmteil

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

function TfrmMain.GetColorMatrix(): Boolean;
type
 PixArray = array[1..3] of Byte;
var
  I,J : Integer;
  pData: ^PixArray;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  GetColorMatrix:= False;
  try
    with bmp do begin
      // 24 Bit Pixelformat
      PixelFormat := pf24bit;
      bmp.assign(imgOrig.Picture);
      Width := bmp.Width;
      Height := bmp.Height;
      SetLength(imagematrix,Height);
      for I := Low(imagematrix) to High(imagematrix) do
          SetLength(imagematrix[I], Width);
      // Zeile holen
      for I := 0 to Height -1 do begin
        pData := bmp.ScanLine[I];
        // Spalte
        for J := 0 to Width -1 do begin
          // im Matrix schreiben
          imagematrix[I][J].R := pData^[1]; //Rotwert
          imagematrix[I][J].G := pData^[2]; //Grünwert
          imagematrix[I][J].B := pData^[3]; //Blauwert
          // Pointer aufs nächste Pixel setzen.
         Inc(pData);
        end;
      end;
      bmp.Free;
      GetColorMatrix:= True;
    end;
  Except
    // frei geben
    bmp.Free;
    GetColorMatrix:= False;
  end;
end;

Vielen Dank für eure Hilfe!

Phantom1 · Beiträge: 390

der Grund warum es bei dir mit dem ersten Quellcode oben nicht ging ist weil du:

markieren

Delphi-Quelltext

1:
2:
3:

          imagematrix[X][Y][0] := pData^[1]; //Rotwert
          imagematrix[X][Y][1] := pData^[2]; //Grünwert
          imagematrix[x][Y][2] := pData^[3]; //Blauwert

du hast dort die X und Y dimension vertauscht gehabt.

so hätte es funktioniert:

markieren

Delphi-Quelltext

1:
2:
3:

          imagematrix[Y][X][0] := pData^[1]; //Rotwert
          imagematrix[Y][X][1] := pData^[2]; //Grünwert
          imagematrix[Y][X][2] := pData^[3]; //Blauwert

Achja noch ein Tipp:

markieren

Delphi-Quelltext

1:
2:
3:

      SetLength(imagematrix,Height);
      for I := Low(imagematrix) to High(imagematrix) do
          SetLength(imagematrix[I], Width);

Die function SetLength unterstützt mehrere Dimensionen, du brauchst also nur:

markieren

Delphi-Quelltext

1:	SetLength(imagematrix, Height, Width);

das bewirkt das gleiche wie dein Quellcode

Heider · Verfasst: Fr 21.07.06 12:45

Leider funktionierte es nur eine kurze Zeit, ich hab gestern abend noch den Quelltext um eine weitere Funktion ergänzt, aber die Funktion nicht weiter verändert, trotzdem funktionert es nun nicht mehr. Es gibt einen Speicherzugriffsfehler und die Zeile 29 der funktion wird markiert. Wieder wird nur der erste Pixel ausgelesen und danach kommt der Abbruch. Es ist zum verzweifeln.

Phantom1 · Beiträge: 390

Heider hat folgendes geschrieben:

Leider funktionierte es nur eine kurze Zeit, ich hab gestern abend noch den Quelltext um eine weitere Funktion ergänzt, aber die Funktion nicht weiter verändert, trotzdem funktionert es nun nicht mehr. Es gibt einen Speicherzugriffsfehler und die Zeile 29 der funktion wird markiert. Wieder wird nur der erste Pixel ausgelesen und danach kommt der Abbruch. Es ist zum verzweifeln.

Tja iss schwer zu sagen, kann an vielen dingen liegen, zb wenn man ein jpg in das Image lädt, dann stürzt deine function auch ab.

Ansonsten probiere es mal so hier, habe nur kleine änderungen vorgenommen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

function TForm1.GetColorMatrix: Boolean;
var
  X, Y: Integer;
  pData: ^TRGBColor;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.assign(imgOrig.Picture.Bitmap);
    // 24 Bit Pixelformat
    bmp.PixelFormat := pf24bit;
    SetLength(imagematrix, Height, Width);
    // Zeile holen
    for Y := 0 to Height -1 do begin
      pData := bmp.ScanLine[I];
      // Spalte
      for X := 0 to Width -1 do begin
        // im Matrix schreiben
        imagematrix[Y, X] := pData^; // Rot & Grün & Blau
        // Pointer aufs nächste Pixel setzen.
        Inc(pData);
      end;
    end;
    bmp.Free;
    Result := True;
  except
    // frei geben
    bmp.Free;
    Result := False;
  end;
end;

Heider · Verfasst: Sa 22.07.06 02:31

Danke Phantom1, ich hab deine Variante des Quelltextes benutzt und jetzt geht es. Könnte sein, dass die Deklaration von Pdata, die entscheidende Änderung war, oder halt doch irgendein dummer indexfehler.

Nochmals vielen Dank an alle die geholfen haben das Problem zu lösen!

_________________
"Zwei Dinge sind undendlich, das Universum und die Menschliche Dummheit, obwohl ich mir beim Universum nicht sicher bin." Albert Einstein

Phantom1 · Beiträge: 390

Heider hat folgendes geschrieben:

Danke Phantom1, ich hab deine Variante des Quelltextes benutzt und jetzt geht es. Könnte sein, dass die Deklaration von Pdata, die entscheidende Änderung war, oder halt doch irgendein dummer indexfehler.

Ne das war auch bei deiner Variante in Ordnung, ich habe es nur etwas vereinfacht.

Was mir jetzt noch eingefallen war, ist das du das Pixelformat an der richtigen stelle hättest setzen müssen.
Bei dir war es so:

markieren

Delphi-Quelltext

1:
2:

bmp.pixelformat:=pf24bit;
bmp.assign(img.picture.bitmap);

Beim Assign wird jetzt alles vom img übernommen, das wären die Bilddaten, Größe und auch das Pixelformat! Daher muss das pixelformat nach dem assign gesetzt werden.

mfg

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme