Bildanalyse/-vergleich

[Bummi]

wenn Du
wert:= (farbe1 AND clRed) - (farbe2 AND clRed); verwendest bist Du diesbezüglich näher an den Vorgaben.

[Slashmob]

Zitat von Bummi:

wenn Du
wert:= (farbe1 AND clRed) - (farbe2 AND clRed); verwendest bist Du diesbezüglich näher an den Vorgaben.

Das heißt bei der Differenz hab ich dann automatisch die Rotmaske drinnen,richtig?

[Bummi]

Ja ...

[Slashmob]

Nun möchte ich den "wert" mit dem schwellwert vergleichen und ihn im stringgrid ausgeben, aber das klappt nicht. Dann kommt folgende Fehlermeldung:
Error: Incompatible type for arg no.3: Got "LongInt", expected "AnsiString"

Delphi-Quellcode:

For i:=1 to image1.width do             // Erstes Bild pixelweise auslesen
         Begin
              For j:=1 to image1.height do
                  Begin
                       farbe1:= image1.canvas.pixels[i,j];
                    end;
           end;

      For i:=1 to image2.width do       // Zweites Bild pixelweise auslesen
         Begin
              For j:=1 to image2.height do
                  Begin
                       farbe2:= image2.canvas.pixels[i,j];
                    end;
           end;

     wert:= (farbe1 and clred)-(farbe2 and clred);   // Differenzwert bilden

     If wert > schwellwert then
        Begin
             stringgrid1.cells[1,1]:=inttostr(wert);   // Edit
        end;

Und wie bekomm ich raus an welchen Stellen X und Y er die Unterschiede im Bild gefunden hat?

[DeddyH]

Wie wandelt man denn eine Ganzzahl in einen String um? Format oder IntToStr könnten da ganz hilfreich sein.

[Slashmob]

Zitat von DeddyH:

Wie wandelt man denn eine Ganzzahl in einen String um? Format oder IntToStr könnten da ganz hilfreich sein.

Ach logisch, stimmt! (Bin noch Anfänger )
Jetzt ist der Fehler weg, aber es wird kein Wert angezeigt, stattdessen ändert sich die zeilenanzahl
Kriegt er denn mit dem obigen code einen Wert? Bin mir nicht ganz sicher...

[DeddyH]

Irgendwie passen Deine Schleifen überhaupt nicht zusammen.

[edit] Da die Bilder ja gleich groß sind, müsste das auch so gehen:

Delphi-Quellcode:

For i:=1 to image1.width do
  Begin
    For j:=1 to image1.height do
      Begin
        farbe1 := image1.canvas.pixels[i,j];
        farbe2 := image2.canvas.pixels[i,j];
        wert:= (farbe1 and clred)-(farbe2 and clred);               
      end;
  end;

[/edit]

[Bummi]

DeddyH war wieder mal schneller, da ich es schon habe poste ich es trotzdem mal ...


BTW.: wenn Du es es optimieren willst steig von Pixels auf Scanline um, Beiträge hierzu liefert die Forensuche bis zum Abwinken

Die bildest im Moment die Differenz nur für das letzte Pixel Deiner Schleifen, man könnte es so lösen

Delphi-Quellcode:

var
 i,j,z:Integer;
begin
 z := 0;
 For i:=0 to image1.width - 1 do // Erstes Bild pixelweise auslesen
         Begin
              For j:=0 to image1.height -1 do
                  Begin
                       farbe1:= image1.canvas.pixels[i,j];
                       farbe2:= image2.canvas.pixels[i,j];
                       wert:= (farbe1 and clred)-(farbe2 and clred); // Differenzwert bilden
                       inc(z);
                       AddFound(z , i, j, wert);
                    end;
           end;

Zahlen müssen in Strings umgewandelt werden wenn Du sie in einem Stringgrid darstellen willst

Delphi-Quellcode:

procedure TForm1.AddFound(nr, x, y, wert :Integer);
begin
  if StringGrid1.Rowcount < (nr + 1) then StringGrid1.Rowcount := (nr + 1);
  StringGrid1.Cells[0, nr ] := IntToStr(Nr);
  StringGrid1.Cells[1, nr ] := IntToStr(x);
  StringGrid1.Cells[2, nr ] := IntToStr(y);
  StringGrid1.Cells[3, nr ] := IntToStr(wert);
end;

[DeddyH]

Was mir gerade erst auffällt: ist Pixels nicht 0-indiziert?

[Bummi]

Doch ..... ich habe die Schleife ungeprüft kopiert und angepasst ...