Попиксельное сравнение двух битмапов.

[rokweb]

Здравствуйте форумчане! Имеется задача - делать скрины экрана каждые 250 мс.(интервал между скринами тоже 250 мс). Эти скрины за 250 мс. нужно попиксельно сравнить и если есть отличие(пиксель отличается по цвету - навести на пиксель курсор мыши и сделать еще одну проверку: если иконка курсора изменилась, то зажать(!) лкм, зажать(!) пкм, отпустить отпустить лкм. ЛКМ и ПКМ - Левая и правая кнопки мыши соответственно. Собственно вот код, которые по непонятным мне причинам глючит и если и работает(такое бывает иногда =)) то очень нестабильно:

CONST
PixelCountMax = 32768;

type

pRGBArray = ^TRGBArray;
TRGBArray = ARRAY[0..PixelCountMax-1] OF TRGBTriple;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 x,y: integer;
 P1, P2 : pRGBArray;
 DC: HDC;
 CurrentState: Cardinal;
 CI: TCursorInfo;
begin

If ScreenShot=False then
BitBlt(b1.Canvas.Handle, 0,0, Screen.Width, Screen.Height,DC, 0,0,SRCCOPY);

If ScreenShot=True then
begin

BitBlt(b2.Canvas.Handle, 0,0, Screen.Width, Screen.Height,DC, 0,0,SRCCOPY);

X:=0;
Y:=0;

b1.PixelFormat := PF24BIT;
b2.PixelFormat := PF24BIT;

  for Y := 0 to B1.Height-1 do
    begin
     P1:= pRGBArray(B1.ScanLine[y]);
     P2:= pRGBArray(B2.ScanLine[y]);
      for X := (B1.Width-1) DownTo 1  do
        begin
          If (P1[X].rgbtBlue<>P2[X].rgbtBlue) or (P1[X].rgbtGreen<>P2[X].rgbtGreen) or (P1[X].rgbtRed<>P2[X].rgbtRed)then
            Begin
              CI.cbSize := SizeOf(CI);
              GetCursorInfo(CI);
              If IntToStr(Image1.Picture.Icon.Handle) <> IntToStr(Ci.hCursor) then
                  Mouse.CursorPos := Point(X, Y)
                  Else Begin
                  mouse_event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
                  Sleep(25);
                  mouse_event(MOUSEEVENTF_RIGHTDOWN,X,Y,0,0);
                  Sleep(25);
                  mouse_event(MOUSEEVENTF_RIGHTUP,X,Y,0,0);
                  Sleep(25);
                  mouse_event(MOUSEEVENTF_LEFTUP,X,Y,0,0);
                  ScreenShot:=False;
                  B1.FreeImage;
                  B2.FreeImage;
                  Exit;
                  End;
            End;
          Application.ProcessMessages;
            End;
      Application.ProcessMessages;
End;
End;
ScreenShot := Not ScreenShot;
End;
ReleaseDC( 0, DC );
end;

P.S. Из кода убрал лишнее - было довольно много обвесов, которые нужны в дальнейшем, чтобы понять суть проблемы, а она такова - курсор если и наводится на изменившийся пиксел то после этого курсор резко перепрыгивает на другой пиксель и начинает вообще прыгать по экрану.

P.P.S. Прошу заметить - скрины и управление мышкой нужно делать в чужом окне.

[Sibedir]

Сразу же замечу

 for X := (B1.Width-1) DownTo 1  do

Вы перебираете с шагом 1, а надо с шагом, зависящим от B1.PixelFormat

[rokweb]

При PF24BIT, надо с шагом 3? Как перебирать только определенную область экрана? Например область как на скриншоте:


P.S. За основу был взят код из статьи: http://forum.vingrad.ru/faq/topic-157023.html

P.P.S. Т.е. правильнее будет перебирать вот так? :

for Y := B1.Height-150 downto 150  do
begin
for X := (B1.Width-1) DownTo 0 div 3 do
begin

Это с областью перебора от B1.Height-150 строки пикселов до 150 строки пикселов с шагом строки 1 и с шагом прохода пикселов 3? Я правильно понял? Простите если выражаюсь не слишком понятно\корректно =)

[Sibedir]

0 div 3 = 0

Отвечу более полно чуть позже

[Sibedir]

Вот, кое что тут подсмотрел
http://delphiworld.narod.ru/base/use...emulation.html

Во вложении вроде то, что вам надо. С нажатием кнопок думаю сами дальше разберетесь. Но если что - спрашивайте.

[rokweb]

Огромное при огромное тебе спасибо, выручил очень меня! Теперь работает, буду дальше разбираться с нажатиями!