Поразмыслим о задачке

[Illusiony]

Я в програмке жду окончания анимации ( с окна другой программы) путем сравнения 3х кадров ( небольших участков скриншота где анимация явно выражена) между собой.
Если все 3 равны то считаю анимацию законченной и передаю последний скриншот на сервер.

Подводный камень этого процесса: если подвисает эта другая програмка с которой я ожидаю конца анимации, то по алгоритму программа считает что анимация закончена и передает на сервер размазанный рисунок, который получился.


Пока что немного уменьшил вероятность отправки замазанной картинки при подвисании явно задав минимальное количество кадров(скриншотов) после которого уже сравнивать 3 кадра т.е. как бы задержку по времени.

Что можно предложить чтобы определить что эта другая программа подвисла и ждать пока отвиснет?

[eoln]

Можно попробовать SendMessageTimeout
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
https://rsdn.ru/article/qna/baseserv/hungapp.xml
Правда, сильно зависит от программы с анимацией. Зависнуть может только анимация, а не вся программа. В этом случае не особо поможет. Хотя такое, вероятно, не должно случаться часто

[Illusiony]

Сообщение от eoln

Можно попробовать SendMessageTimeout
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
https://rsdn.ru/article/qna/baseserv/hungapp.xml
Правда, сильно зависит от программы с анимацией. Зависнуть может только анимация, а не вся программа. В этом случае не особо поможет. Хотя такое, вероятно, не должно случаться часто

Да полагаю зависание анимации и самой программы это одно и тоже

[Illusiony]

eoln, сейчас задам вопросик , обычно который используют наоборот

Можно ли както заставить нужное приложение по команде "подвиснуть" на нужное время порядка 2-5 секунд? для тестирования такой ситуации в работе своей программы?

Кстати вроде эта функция возвращает ответ что программа зависла через 5 секунд( это много, хотя можно поизвращаться.

[min@y™]

сейчас задам вопросик

, который надо задать для пресечения, как говорят у нас в посёлке, "the invention of the bicycle with triangular wheels": чо за монстра рожаешь, франкенштейн?

[Illusiony]

Сделал такое:
1) програмку на delphi в которой sleep(10000) для имитации зависания
2) вторую програмку которая отслеживает зависание первой:

function AppIsResponding(): Boolean;
 const
   { Specifies the duration, in milliseconds, of the time-out period }
   TIMEOUT = 50;
 var
   Res: DWORD;
   h: HWND;
 begin
    h := findwindow(nil, 'test_zavisaniy');
  // h := FindWindow(PChar(ClassName), nil);
   if h <> 0 then
     Result := SendMessageTimeOut(H,
       WM_NULL,
       0,
       0,
       SMTO_NORMAL or SMTO_ABORTIFHUNG,
       TIMEOUT,
       Res) <> 0
   else
     ShowMessage(Format('%s not found!', ['test_zavisaniy']));
 end;

{ procedure TForm1.Button1Click(Sender: TObject);
 begin
   if AppIsResponding('OpusApp') then
     { OpusApp is the Class Name of WINWORD }
 //    ShowMessage('App. responding');
 //end;  }
procedure TForm1.btn1Click(Sender: TObject);
begin
 if AppIsResponding()=True then begin
   ShowMessage('True');
 end
 else begin
   ShowMessage('False');
 end;
end;

Так работает, понимает когда находитяс в слипе , а когда нет.
Но мне нужно проверить на реально смоделированном условии чтобы вместо програмки 1 было нужная мне программа и эту нужную программу нужно "подвесить" в по команде на определенное время.
Ну и вообще равнозначный ли процесс зависания по слипу или это неправильное суждение.

Нашел такое:http://superuser.com/questions/62072...a-command-line

Там команды в винде, пробую сделать :

 wmic process where name="Hearthstone.exe" CALL setpriority "idle"

никакой разницы не замечаю

Приоритет меняется, попробовал явно указать :

 wmic process where name="Hearthstone.exe" CALL setpriority 5

Но ПРограмма все равно работает нормально.
Наверное приоритетами такое сделать нельзя(

[Пепел Феникса]

ну тормозните всего его потоки.
но это маразм, вообще не понимаю нафиг

[Illusiony]

Сообщение от Пепел Феникса

ну тормозните всего его потоки.
но это маразм, вообще не понимаю нафиг

Мне нужно затормазить , и потом чтобы она отвисла и дальше начала работать.
Ну как нафиг? мне нужно эмитировать такую ситуацию.

[Smitt&Wesson]

Сообщение от Illusiony

Мне нужно затормазить , и потом чтобы она отвисла и дальше начала работать.
Ну как нафиг? мне нужно эмитировать такую ситуацию.

Эмитировать! Ой, я - нимагу!

[Illusiony]

Ну имитировать