Проблема. программа на цикле начинает тупить

[Василий]

Программа делает следующие:
запускается таймер...
по таймеру (OnTimer) программа лезит в другую! программу и отсылает ей команды типа:

sendmessage(HWindow, WM_LBUTTONDOWN, 0, MakeLparam(p4.x,i));
sendmessage(HWindow, WM_LBUTTONDBLCLK, 0, MakeLparam(p4.x,i));
sendmessage(HWindow, WM_LBUTTONUP, 0, MakeLparam(p4.x,i));

ПРИЧЕМ! программа находит определенный пиксель по цвету и тыкает в него.

все работает некотрое время, но после 5+ циклов она начинает тупить и больше этот пиксель не видит!

как решить вопрос?

[Altera]

Юзай не sendMesage а postMessage! объявлены они почти одинаково. Разница только в том, что sendMessage ждёт ответа. И поэтому в цикле тупит!

[Василий]

не помогло!
не знаю что и делать...

[Василий]

Ребята на помощь!
обяъсню еще раз проблему:
подключаюсь своей прогой к другой, считываю DC. нахожу нужный пиксель по цвету и тыкаю на него. и там в цикле.
через некоторое время (на цикле 3-7) происходит сбой - пиксель больше не находит, хотя он точно! есть... В чем может быть проблема?

DC считывать пробовал как экрана DC(0) так и приложения - одна картина.

[Altera]

Может быть дали бы код юнита?

[Василий]

выкладывал код.
нашел косяки в коде - правлю...
(не знаю как удалить сообщение)

[Василий]

все проверял. проводил тесты. заменил на postMessage

программа работает по циклу таймера. от стади к стадии и по кругу.
программа начинает тормозить при несколькиз прогонах и перестает "видеть" пиксели! если цикл остановить программа все еще тормозит....
как решить проблему?

procedure TForm1.Timer1Timer(Sender: TObject);
begin

case Timer1.Tag of
0:begin
Timer1.Tag:=1;
timei:=0;
end;

1:begin // обновить список
postMessage(HWindow, WM_LBUTTONDOWN, 0, MakeLparam(p2.x,p2.y));
postMessage(HWindow, WM_LBUTTONUP, 0, MakeLparam(p2.x,p2.y));
Timer1.Tag:=2;
end;

2:begin // сканирование списка и щелчек мышки
for i:=(122) to (469) do
begin
if form1.SpeedButton1.Down=true then
  begin
  if (c1[1]=GetPixel(GetDC(HWindow),p4.x-2,i))and(c1[2]=GetPixel(GetDC(HWindow),p4.x,i))and(c1[3]=GetPixel(GetDC(HWindow),p4.x+2,i)) then
  begin
  ImgMoney(1);
  postMessage(HWindow, WM_LBUTTONDOWN, 0, MakeLparam(p4.x,i));
  postMessage(HWindow, WM_LBUTTONUP, 0, MakeLparam(p4.x,i));
  sleep(paus_buy);
  postMessage(HWindow, WM_LBUTTONDOWN, 0, MakeLparam(p5.x,p5.y));
  postMessage(HWindow, WM_LBUTTONUP, 0, MakeLparam(p5.x,p5.y));
  ImgMoney(2);
  if money=true then
    t1:=t1+1;
  end;
  end;
end;
if (t1>=r1) then
  begin
  Timer1.Enabled:=false;
  showmessage('конец!');
  end;
Timer1.Tag:=3;

GetKeyboardState(State);
if (State[VK_CAPITAL] = 1) then
  begin
  Timer1.Enabled:=false;
  showmessage('прерывание');
  end
end;

3:begin // проверка скролла (по цвету пикселя) и прокрутка его вниз
if (compare(colortostring(GetPixel(GetDC(HWindow),p1.x,p1.y)))=false) then
begin//IF
postMessage(HWindow, WM_LBUTTONDOWN, 0, MakeLparam(p3.x,p3.y));
sleep(paus_scroll);
postMessage(HWindow, WM_LBUTTONUP, 0, MakeLparam(p3.x,p3.y));
end;
Timer1.Tag:=4;
GetKeyboardState(State);
if (State[VK_CAPITAL] = 1) then
  begin
  Timer1.Enabled:=false;
  showmessage('прерывание');
  end   
end;

4:begin // сканирование списка и щелчек мышки (как в пункте 2)
timei:=timei+1;
if timei>=10 then begin timer1.Enabled:=false; showmessage('end time'); end;

for i:=(122) to (469) do
begin
if form1.SpeedButton1.Down=true then
  begin
  if (c1[1]=GetPixel(GetDC(HWindow),p4.x-2,i))and(c1[2]=GetPixel(GetDC(HWindow),p4.x,i))and(c1[3]=GetPixel(GetDC(HWindow),p4.x+2,i)) then
  begin
  ImgMoney(1);
  postMessage(HWindow, WM_LBUTTONDOWN, 0, MakeLparam(p4.x,i));
  postMessage(HWindow, WM_LBUTTONUP, 0, MakeLparam(p4.x,i));
  sleep(paus_buy);
  postMessage(HWindow, WM_LBUTTONDOWN, 0, MakeLparam(p5.x,p5.y));
  postMessage(HWindow, WM_LBUTTONUP, 0, MakeLparam(p5.x,p5.y));
  ImgMoney(2);
  if money=true then
    t1:=t1+1;
  end;
  end;
end;
if (t1>=r1) then
  begin
  Timer1.Enabled:=false;
  showmessage('конец!');
  end;
Timer1.Tag:=1;

GetKeyboardState(State);
if (State[VK_CAPITAL] = 1) then
  begin
  Timer1.Enabled:=false;
  showmessage('прерывание');
  end
end;

5:begin
Timer1.Enabled:=false;
showmessage('прерывание2');
end;
else
begin
Timer1.Tag:=0;
end;
end;//case
end;

[Altera]

Для начала попробуй не showMessage использовать, а с кажем в caption формы значения записывать.

[Василий]

2Altera Спасибо за то что уделяешь этой теме время! (для меня это важно)
showMessage я использую в экстренных случаях =) и по окончанию работы программы. думаю что не в нем проблема! ведь эту функцию можно и убрать.

[Василий]

моя программа отправляет сигналы в программу "ИКС"

сделал экспереминтальное приложение (программу на делфи, которая имитирует программу "ИКС")

так эта имитация программу "икс" в обще НЕ реагирает на команды моей программы О_О

например на это:

postMessage(HWindow, WM_LBUTTONDOWN, 0, MakeLparam(p2.x,p2.y));
postMessage(HWindow, WM_LBUTTONUP, 0, MakeLparam(p2.x,p2.y));

почему так???

PS координаты p2 заданы верно!!!