Scanline Schleife sehr langsam!?

[chrizl08]

Hi,
ich habe folgende Funktion um einen bestimmten Farbwert in einem Bitmap zu lokalisieren:

Delphi-Quellcode:

Function FindColor(bmp:TBitmap):TPoint;
type
  PixArray = array[1..3] of Byte;
var
  i, iMax, x, y, w, h: Integer;
  p : ^PixArray;
begin

  Result:=Point(-1,-1);

  Form1.ProgressBar1.Max := bmp.Height-1;

  for y := 0 to bmp.Height-1 do begin
    p := bmp.ScanLine[y];
    Form1.ProgressBar1.Position := y;
    for x := 0 to bmp.Width-1 do begin
      if( (p^[3]=255) AND (p^[2]=0) AND (p^[1]=0) ) then begin
        Showmessage('Gefunden');
        Result := Point(x, y);
        exit;
      end;
    end;
  end;
end;

Das Bitmap wird mit folgendem Code erzeugt:

Delphi-Quellcode:

var DC: HDC;
begin
DC := GetDC(GetDesktopWindow);
bmp:=TBitmap.Create;
try
bmp.Width := GetDeviceCaps(DC, HORZRES);
bmp.Height := GetDeviceCaps(DC, VERTRES);
BitBlt(bmp.Canvas.Handle,0,0,bmp.Width, bmp.Height, DC,0,0,SRCCOPY );
Finally
ReleaseDC(GetDesktopWindow, DC);
end;
end;

Meine Frage nun: Ist es möglich diesen Code zu optimieren (und ich hoffe es ist möglich =) ) und schneller zu machen???

Vielen Dank für Eure Tipps :)

[Neutral General]

Ja, es ist möglich.

Entferne das

Delphi-Quellcode:

Form1.ProgressBar1.Position := y;

aus der Schleife.

[chrizl08]

ok Danke :) aber gibt es noch Möglichkeiten? Ich hatte das ganze davor mit Canvas.Pixels gelöst und es war zwar auch langsam aber deutlich schneller als Scanline. Hatte gelesen das Scanline aber schneller als Pixels ist und dachte ich hätte nen Fehler?!?

[smallsmoker]

[ot]
habe ne andere idee zu deinem problem
habe ich hier gepostet
[/ot]

[Neutral General]

Hi,

Folgendes geht bei mir ziemlich schnell:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
var i,j: Integer;
    p: PRGBQuad;
    bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.Assign(Image1.Picture.Bitmap);
    bmp.PixelFormat := pf32Bit;
    for i:= 0 to bmp.Height-1 do
    begin
      p := bmp.ScanLine[i];
      for j:= 0 to bmp.Width-1 do
      begin
        if PCardinal(p)^ = $00FF0000 then // farbe = clred, wobei clred <> $00FF0000. :stupid:
          ShowMessage('Rot gefunden');
        inc(p);
      end;
    end;
  finally
    bmp.Free;
  end;
end;

[Flips]

Zitat:

Zitat von chrizl08

Delphi-Quellcode:

Function FindColor(bmp:TBitmap):TPoint;
type
  PixArray = array[1..3] of Byte;
var
  i, iMax, x, y, w, h: Integer;
  p : ^PixArray;
begin

  Result:=Point(-1,-1);

  Form1.ProgressBar1.Max := bmp.Height-1;

  for y := 0 to bmp.Height-1 do begin
    p := bmp.ScanLine[y];
    Form1.ProgressBar1.Position := y;
    for x := 0 to bmp.Width-1 do begin
      if( (p^[3]=255) AND (p^[2]=0) AND (p^[1]=0) ) then begin
        Showmessage('Gefunden');
        Result := Point(x, y);
        exit;
      end;
    end;
  end;
end;

Der Code kann auch gar nicht ordentlich funktionieren,
in die innere Schleife muss noch ein inc(p)!


[Edit]
Mit einer Schleife gehts auch, was folglich auch schneller sein sollte (nur als Beispiel):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
p:^TRGBTriple;
begin
image1.picture.bitmap.PixelFormat := pf24Bit;
with image1.picture.bitmap do
  begin
    p := scanline[height-1];
    for i := 0 to (height*width)-1 do
      begin
        if p^.rgbtRed = $FF then
          ShowMessage('ja');
        inc(p);
      end;
  end;
end;

[/Edit]

[chrizl08]

Super, vielen Dank!!! Geht echt sehr fix!
Aber eine Frage hab ich noch bzw. ein Problem:
Die Funktion übergibt anscheinend falsche Koordinaten. Ich liege ca. immer 300 Pixel rechts von dem Farbpunkt. Woher kommt das, irgendeine Idee?

[Neutral General]

@Flips: Du weißt schon, dass

Delphi-Quellcode:

if p^.rgbtRed = $FF then

nicht zwangsweise "Rot" (clred) sein muss?

[chrizl08]

hehe ja :)

hab aber das if aber auch so gemacht:

Delphi-Quellcode:

( (p^[3]=200) AND (p^[2]=140) AND (p^[1]=60) )

[Flips]

Zitat:

Zitat von Neutral General

@Flips: Du weißt schon, dass

Delphi-Quellcode:

if p^.rgbtRed = $FF then

nicht zwangsweise "Rot" (clred) sein muss?

Jaja schon klar, war ja auch nur ein schnell hingeschludertes Beispiel ;-)
Natürlich müsste man auch noch den G und B Wert prüfen!

[chrizl08]

um noch einmal auf mein Problem zurückzukommen :)
Die ganze Schleife geht Dank dem inc(p) inzwischen wirklich sehr schnell :) allerdings stimmen die Koordinaten x und y leider nicht ganz!? Die x Koordinate ist immer ca. 300px zu groß, weiß jemand woran das liegen könnte?
Danke für die Mühen :)

[chrizl08]

kann es etwas damit zu tun haben dass scanlines andersrum aufgebaut sind??

[Namenloser]

Ein Tipp. Nimm pf32Bit statt pf24Bit, respektive PRGBQuad statt PRGBTriple. Dann entspricht die Datengröße eines Pixels genau der Wortbreite eines 32 Bit Prozessors, sodass schneller darauf zugegriffen werden kann. ich würde außerdem empfehlen, nicht die RGB-Werte einzeln, sondern den gesamten Farbwert zu vergleichen, weil du hier die Rechenzeit für zwei vergleiche sparst.