Zitat von
Flips:
Thx für das ganze Feedback. Ich will jetzt ned böse sein, finds ja nett das du den Code optimiert hast, aber dein Code is 6* langsamer :X
Das kann ich so aber nich stehen lassen
wie hast du denn die zeit gemessen?
ich messe die Zeit so hier:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
start, stop: Int64;
i: Integer;
begin
start:=GetTickCount;
for i:=1 to 500 do
CompareImages(image1.Picture.Bitmap, Image2.Picture.Bitmap);
stop:=GetTickCount;
Caption:=floattostr(stop-start);
end;
Insgesamt 500 durchläufe um messungenauigkeiten zu verhindern, dein Code braucht da 5,2 sek und im vergleich dazu mein code nur 1,7 sek.
Getestet habe ich das mit 2 verschiedenen Bildern (1024x768) auf einem Athlon64 X2 4600+ und 2GB
RAM.
mfg