Используйте xor пикселей только что полученной картинки с пикселями картинки, полученной некоторое время назад. При совпадении получите 0 (пиксель не менялся => не мерцает => анализировать не надо), при отличиях - не ноль. Определить правильно красный будет так: (R>200)and(G<50)and(B<50). Или так: (R>G+B+100). Или еще кучей способов. Все они в большей или меньшей степени работоспособны. Конкретные числа определите сами в зависимости от обстоятельств.
И еще. Используйте bmp.ScanLine, без нее все будет очень-очень медленно. И перед обработкой сделайте так: bmp.PixelFormat:=pf24bit - много времени не займет а от неприятных сюрпризов избавит.
P.S. Уберите эту бессмыссленную переменную Resultat, замените ее на Result.
|