Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как узнать, что приложение не отвечает 
V
    Опции темы
MadCoder
  Дата 15.7.2009, 20:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: 1
Всего: 2
Добрый вечер!

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


--------------------
Домашняя страничка | Как скопировать настройки | Умный оптимизатор
PM WWW ICQ   Вверх
kami
Дата 15.7.2009, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72
SendMessageTimeout должно помочь

Добавлено через 40 секунд
но опять-таки, нужно знать какому окну отправлять сообщение.
PM MAIL WWW   Вверх
MadCoder
Дата 15.7.2009, 22:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: 1
Всего: 2
Например, так:
Код

var
H: HWND;
Res: Cardinal;
begin
H := FindWindow('TTest', 'Test');
SendMessageTimeout(H, WM_NULL, 0, 0,SMTO_BLOCK, 5000,Res);
ShowMessage(IntToStr(Res));
end;


Test - зависшее приложение. Только несмотря на зависание Res равен 1, если программа не висит - тогда 0 (я так понимаю, там должны быть миллисекунды). Хотя выполнение SendMessageTimeout занимает ощутимо больше секунды...


--------------------
Домашняя страничка | Как скопировать настройки | Умный оптимизатор
PM WWW ICQ   Вверх
kami
Дата 15.7.2009, 22:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72
Цитата(MadCoder @  15.7.2009,  22:37 Найти цитируемый пост)
 выполнение SendMessageTimeout занимает ощутимо больше секунды

не то анализируешь. Нужен результат, возвращаемый самой SendMessageTimeout.
Цитата

If the function fails or times out, the return value is zero. To get extended error information, call GetLastError. If GetLastError returns ERROR_TIMEOUT, then the function timed out.

А res - это результат обработки оконной функцией твоего сообщения.
Ощутимо более секунды... ну так ты сам указал таймаут в 5 секунд...
P.S. попробуй комбинации с SMTO_ABORTIFHUNG.
PM MAIL WWW   Вверх
MadCoder
Дата 15.7.2009, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: 1
Всего: 2
Хм, пишет 0 мс и "Параметр задан неверно", хотя чужое приложение Test закрывается успешно:
Код

var
H: HWND;
Res: Cardinal;
begin
H := FindWindow('TTest', 'Test');
ShowMessage(IntToStr(SendMessageTimeout(H, WM_CLOSE, 0, 0,SMTO_ABORTIFHUNG, 50000,Res)));
if Res=0 then
 ShowMessage(SysErrorMessage(GetLastError));



--------------------
Домашняя страничка | Как скопировать настройки | Умный оптимизатор
PM WWW ICQ   Вверх
kami
Дата 15.7.2009, 23:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72
Код

var
  H: HWND;
  Res: Cardinal;
  IsHung:boolean
begin
  H := FindWindow('TTest', 'Test');
  SetLastError(0);
  IsHung:=SendMessageTimeout(H, WM_NULL, 0, 0,SMTO_BLOCK, 5000,Res)=0; // 5000мс=5 сек. Не много ли?
  if IsHung then
    ShowMessage('Не доставлено или прервано по таймауту. Ошибка №'+IntToStr(GetLastError));
end;


Добавлено через 1 минуту и 10 секунд
И в этом коде нет обработки - найдено окно или нет.
Потому что если не найдено - смысл отправлять сообщение?

Это сообщение отредактировал(а) kami - 15.7.2009, 23:10
PM MAIL WWW   Вверх
MadCoder
Дата 15.7.2009, 23:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: 1
Всего: 2
Круто! Спасибо, все работает замечательно smile. Проверку добавлю smile.


--------------------
Домашняя страничка | Как скопировать настройки | Умный оптимизатор
PM WWW ICQ   Вверх
MadCoder
Дата 15.7.2009, 23:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: 1
Всего: 2
Вот здесь тоже интересный материяльчик smile.


--------------------
Домашняя страничка | Как скопировать настройки | Умный оптимизатор
PM WWW ICQ   Вверх
CodeMonkey
Дата 16.7.2009, 09:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 16
Всего: 89
Есть ещё IsHungAppWindow.
Примерно это то же самое, что ручная отправка SendMessageTimeout, только без настроек.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
MadCoder
Дата 16.7.2009, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: 1
Всего: 2
Спасибо smile


--------------------
Домашняя страничка | Как скопировать настройки | Умный оптимизатор
PM WWW ICQ   Вверх
Rrader
  Дата 16.7.2009, 11:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191
В DRKB целая статья по этому вопросу - Проверить приложение на зависание?

Цитата(CodeMonkey @  16.7.2009,  15:41 Найти цитируемый пост)
Есть ещё IsHungAppWindow.
Примерно это то же самое, что ручная отправка SendMessageTimeout, только без настроек. 


К сожалению, примечание не радует :(

Это сообщение отредактировал(а) Rrader - 18.7.2009, 10:04


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
CodeMonkey
Дата 16.7.2009, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 16
Всего: 89
Цитата(Rrader @  16.7.2009,  11:06 Найти цитируемый пост)
К сожалению, примечание не радует

Это про:
Цитата
It is recommended that you do not use it in new programs because it might be altered or unavailable in subsequent versions of Windows.
 ?


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Rrader
  Дата 16.7.2009, 14:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191
Ну да.


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

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

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1827 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.