Kreise und Linien Erkennen , jetzt mit FMX (LINUX)

[bernhard_LA]

ich versuche mich gerade ein einer Portierung des VCL Projekts zur Kreis und Linien Erkennung https://sourceforge.net/projects/houghtransforma/
von VCL auf FMX

die Funktion IsPixel() prüft ob der Mittelwert aus r,g,b-Kanal größer als ein Schwellwert ist und gibt dafür ein true / false zurück.
Unter VCL gehts perfekt, Schnell ( < Sekunde) , die FMX
Variante rechnet ca. 10 min .... und vermutlich noch nicht mal richtig

Delphi-Quellcode:

{$IFDEF  FRAMEWORK_VCL}

function IsPixel(xpos, ypos: integer; aBitmap: TBitMap;
  ThresHold: integer): boolean;
var
  p: pbyteArray;
  r, g, b, mean: integer;
begin

  aBitmap.PixelFormat := pf24bit;

  if (ypos <= aBitmap.Height - 1) and (xpos <= aBitmap.Width - 1) then

  begin
    p := aBitmap.ScanLine[ypos];

    r := p[3 * xpos];
    g := p[3 * xpos + 1];
    b := p[3 * xpos + 2];
    mean := ((round(r) + round(g) + round(b)) div 3);

    if (mean > ThresHold) then
      result := true
    else
      result := false;

  end
  else
  begin
    result := false
  end;

end;

{$ENDIF}
{$IFDEF  FRAMEWORK_FMX}

function IsPixel(xpos, ypos: integer; aBitmap: TBitMap;
  ThresHold: integer): boolean;
var
  r, g, b, mean: integer;

  bitdata: TBitmapData;

  C: TAlphaColor;
begin
  if (aBitmap.Map(TMapAccess.Read, bitdata)) then
    try

      C := bitdata.GetPixel(xpos, ypos);

      r := TAlphaColorRec(C).r;
      g := TAlphaColorRec(C).g;
      b := TAlphaColorRec(C).b;

      mean := round((r + g + b) / 3);

      if (mean > ThresHold) then
        result := true
      else
        result := false;

    finally
      aBitmap.Unmap(bitdata);
    end;
end;

{$ENDIF}

[Rollo62]

Ich würde versuchen nicht für jedes Pixel Map,Unmap aufzurufen,
und womöglich auch den übergeordneten Caller optimieren.

[bernhard_LA]

gibt es in FMX eine schnellere Funktion , Option ohne Map, Unmap auf ein Pixel zuzugreifen .... ?

nicht immer kann ich den Caller wie im Beispiel oben optimieren

[Harry Stahl]

Sowohl die VCL- als auch die FMX Lösung könnte man nur akzeptieren, wenn man insgesamt nur ein Pixel prüfen müsste, z.B. um herauszubekommen, welcher Farbwert gerade unter der aktuellen Mausposition ist.

Aber ich gehe mal davon aus, dass bei Deiner Aufgabenstellung ein paar mehr Pixel zu prüfen sind.

Dann ist es doch naheliegend, einmal den Zugriff auf die Bitmap zu nehmen (also if (aBitmap.Map(TMapAccess.Read, bitdata)) then) und dann alle relevanten Pixel der Bitmap auf einmal durchzulaufen (und nicht nur eines zu prüfen) und dann den Zugriff auf die Bitmap wieder freizugeben....

[striderx]

Wie sieht es denn aus, wenn du es in der FMX-Version auch mit Scanlines versuchst (TBitmapData.GetScanline).

[Rollo62]

Zitat von bernhard_LA:

nicht immer kann ich den Caller wie im Beispiel oben optimieren

Dann würde vielleicht helfen ein "Shadow-Bitmap" zu führen, das vielleicht auch nur ein TAlphaColor array Buffer ist.
Der dann nur bei Bedarf am Stück in das echte Bitmap kopiert wird.
Macht aber wohl nur Sinn wenn die Bitmaps nicht zu groß werden, und Du nicht dauernd neue Bilder laden musst.

Bitmaps in FMX kann man auch über die Texture-Komponenten verwalten, vielleicht gibt es da auch was Passendes für Dich.

[bernhard_LA]

was macht eigentlich die map Funktion genau ?
im Task Manager ist meine GPU auf 80 % für 10 min

der VCL code hat eine Laufzeit im Sekunden Bereich

[TiGü]

Wenn du Map und Unmap außerhalb deiner Schleife aufrufen würdest, dann wäre das auch Ruckzuck erledigt.
Ansonsten würde einfach ein Debuggen mit Debug-DCUs und F7 dir schon weiterhelfen zu erkennen, dass ein ständiges hin- und herkopieren des Bitmaps aus dem Grafikkartenspeicher in den CPU erreichbaren RAM pro (!) einzelnen Pixel nicht die schnellste Lösung ist.