Code Optimierung: floodfill innerhalb 1/10 sek

[Medium]

Scanline ist immer schneller als Pixels[]. Du solltest es mal messen, statt es zu vermuten/glauben. (Man sollte sich halt nur nicht für jedes Pixel eine neue Scanline holen )
Die Graphics32 sind jedoch mMn immer die bessere Alternative zu TBitmap/TImage/etc., nicht nur weil sie auch ohne Verrenkungen schon sehr fix sind, sondern weil du auch gleich eine ganze Menge an Funktionsumfang dabei hast, den ich zumindest sonst schon an diversen Ecken vermisst hätte, und wo sich der Aufwand des Selberschreibens oftmals kaum gelohnt hätte.

[mkinzler]

http://www.torry.net/vcl/graphics/ef...aphic32Grf.zip

[mr_emre_d]

Ihr bringt mich auf neue Ideen... Das Schlafen hat sich doch ausgezahlt

MfG Franz

[mr_emre_d]

Code:

var
  aBmp: Array of TRGBTriple

procedure form1.imgOnLoad
begin
  SetLength( aBmp, bmp.height );
end;

proc. blablablablablabla....;
begin
  1. speichere alles ins array
  2. suche im array nach bestimmten wert und tu was du wills damit !
end;

so ca müsste es schneller sein oder ?

edit:
omfg, es geht... ich bin sicher nur wegen der Schlaflosigkeit nicht draufgekommen ...

Vielen Dank !

Ich liebe Delphipraxis.net ! Meine Lieblingsseite ! Klasse Design, Klasse Mods., Klasse Leute... N kleiner Dank von mir an euch !

edit2:
Nun gehts wieder nicht mehr... Ich hab einfach so zum Probieren einen Code compiliert... ging auch... dann ein wenig umgändert und jetzt gehts nicht mehr.. das Problem ist ich weiß nicht was ich umgeändert hab..

MfG Franz

[mr_emre_d]

Ich hätte da noch ne Frage ( zu ^TRGBTriple, also dazu gehört ):

Mit Scanline ermittelman ja die Anfangsposition !
Mit inc geht man stückweiße nach rechts, sag ich mal !

Wie kann ich aber bestimmte sprüng nach rechts UND links machen ? und bitte nicht mit inc, dec sagen !
Kann ich die Position beliebig setzten ?


Das wärs schon
Danke

[alzaimar]

Du musst die OH genau lesen: ScanLine ist einfach nur ein ^TByteArray in eine Zeile des Bildes. Was da genau steht, ist vom Bildformat abhängig. Wenn Du ein 24bit Bild hast, sind das lauter TRGBTriple-Werte, also kannst Du einfach ein entsprechendes Array deklarieren und direkt jedes Pixel ansprechen:

Delphi-Quellcode:

Type
  TRGBLine = Array [0..0] Of TRGBTriple; // Achtung! Mit {$RANGECHECKS OFF} kompilieren
  PRGBLine = ^TRGBLine;

...
Var
  pPixelLine : PRGBLine;

Begin
  pPixelLine := PRGBLine (MyBitmap.ScanLine[x]);
//  pPixelLine^[25]  ist nun das 26.Pixel von Links (wenn MyBitmap eine 24bit Bitmap ist)
...

[mr_emre_d]

das weiß ich doch schon

mit scanline kann man die einzelnen farben ausrechnen auf der y achse ausrechnen
und mit inc( rgb ) = ^trgbtriple der x wert eine stelle nach rechts ( so sag ich das, stimmt vlt nicht, da ich grad gelesen hab, dass es verkehrt herum gespeicher wird usw....)

wie positioniere ich es nach beliebenb ????

[Medium]

Du kannst auch auf das gesamte Bitmap mit einer Scanline zugreifen, da du mit SizeOf(TRGBTriple)*Bitmap.Width eine ganze Zeile springst. Es wird jedoch immer mal wieder darauf hingewiesen, dass Bitmaps im Speicher nicht immer gleich vorliegen. Normalerweise sind sie "falsch herum", sprich mit der letzten Zeile zu erst hinterlegt, es kann aber durchaus mal sein, dass es genau anders herum ist. Wann das so ist, war IIRC nicht ohne weiteres feststellbar.
Der sichere Weg wäre also sich trotz dessen für jede Zeile die Scanline neu geben zu lassen, ich rate aber weiterhin zur Graphics32

Edit: Das hat alzaimar doch gerade gezeigt

[mr_emre_d]

achso... ich hab mir den code nicht angeschaut..

thx

ich probiers mal

EDIT: alzaimer

Ich versteh deinen Code nicht .. und zwar genau die Stelle:

Code:

pPixelLine := PRGBLine (MyBitmap.ScanLine[x]);

und das

Code:

SizeOf(TRGBTriple)*Bitmap.Width

auch nicht ...

EIDT2: Das von Alzaimer funktioniert wunderbar, nur will ich es auch gerne verstehen !

[Union]

Am schnellsten gehts, wenn Du die ganze TBitmap Sch... wegläßt und direkt mit TDIBSection arbeitest. Dann kannnst Du Dir die für den speziellen Anwendungsfall hochoptimierten Zugriffe auf das Bitmap im Speicher ohne Overhead erstellen.