thx.
Habe diesen Code getestet(Und die Bitmaps auf pf24bit gesetzt):
Delphi-Quellcode:
line1 := Image1.ScanLine[Image1.Height-1];
line2 := Image2.ScanLine[Image1.Height-1];
for x := 0 to Image1.Width*Image1.Height do
begin
if abs(line1[x]-line2[x]) > max then
inc(differents);
Es werden bei einem 320*160 großem bild nur noch 0-30 ticks beansprucht.
PS: Auch wenns evtl. falsch is
