Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Code Optimierung: floodfill innerhalb 1/10 sek (https://www.delphipraxis.net/115655-code-optimierung-floodfill-innerhalb-1-10-sek.html)

Medium 16. Jun 2008 00:05

Re: Code Optimierung: floodfill innerhalb 1/10 sek
 
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 16. Jun 2008 07:44

Re: Code Optimierung: floodfill innerhalb 1/10 sek
 
http://www.torry.net/vcl/graphics/ef...aphic32Grf.zip

mr_emre_d 16. Jun 2008 08:23

Re: Code Optimierung: floodfill innerhalb 1/10 sek
 
Ihr bringt mich auf neue Ideen... Das Schlafen hat sich doch ausgezahlt

MfG Franz

mr_emre_d 16. Jun 2008 08:32

Re: Code Optimierung: floodfill innerhalb 1/10 sek
 
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 16. Jun 2008 16:21

Re: Code Optimierung: floodfill innerhalb 1/10 sek
 
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 16. Jun 2008 16:27

Re: Code Optimierung: floodfill innerhalb 1/10 sek
 
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 16. Jun 2008 16:30

Re: Code Optimierung: floodfill innerhalb 1/10 sek
 
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 16. Jun 2008 16:32

Re: Code Optimierung: floodfill innerhalb 1/10 sek
 
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 :gruebel:

mr_emre_d 16. Jun 2008 16:36

Re: Code Optimierung: floodfill innerhalb 1/10 sek
 
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 !
:gruebel:

Union 16. Jun 2008 17:13

Re: Code Optimierung: floodfill innerhalb 1/10 sek
 
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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:34 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz