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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> WaitForMultipleObjects 
:(
    Опции темы
guest11
Дата 25.12.2019, 02:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.12.2019

Репутация: нет
Всего: нет



есть вопрос 


про


while WaitForMultipleObjects(mwo, @hThread[i][0], True, 50) = WAIT_TIMEOUT do
Application.ProcessMessages;


то есть необходимо закрывать поток если он идет больше 50 милисекунд ,





как правильно написать чтоб поток закрывался если он идет больше 50 миллисекунд ,



добавил 

var

hThread:array of array of Cardinal;

начало запускатся


что такое mwo


Это сообщение отредактировал(а) guest11 - 25.12.2019, 03:04
PM MAIL   Вверх
guest11
Дата 25.12.2019, 04:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.12.2019

Репутация: нет
Всего: нет



может  не  верно  описал  задачу  ,  попробую  еще  раз  ,

при  пинге  многопоточном  ,  ping    на  работающий  хост  идет  быстро  ,



а  на  не работающий   host    идет  error   ,   1000  миллисекунд


необходимо  чтоб  error   ,

время  ответа   уменьшить  до  50  миллисекунд  ,

Это сообщение отредактировал(а) guest11 - 25.12.2019, 04:15
PM MAIL   Вверх
Romikgy
Дата 25.12.2019, 11:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7325
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146



Цитата(guest11 @  25.12.2019,  03:13 Найти цитируемый пост)
1000  миллисекунд

это таймаут фунцкии пинга, а не работы потока.... 

https://www.eomy.net/forum/ping-sredstvami-...phi-vt2290.html
http://citforum.ck.ua/nets/articles/ping/
http://www.codenet.ru/progr/delphi/stat/ping.php


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
guest11
Дата 25.12.2019, 15:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.12.2019

Репутация: нет
Всего: нет



Цитата(Romikgy @ 25.12.2019,  11:15)
Цитата(guest11 @  25.12.2019,  03:13 Найти цитируемый пост)
1000  миллисекунд

это таймаут фунцкии пинга, а не работы потока.... 

https://www.eomy.net/forum/ping-sredstvami-...phi-vt2290.html
http://citforum.ck.ua/nets/articles/ping/
http://www.codenet.ru/progr/delphi/stat/ping.php

timeaut установлен через edit


Код

IcmpSendEcho(hIP,
destAddress.S_addr,
@pingBuffer,
sizeof(pingBuffer),
Nil,
pIpe,
sizeof(icmp_echo_reply) + sizeof(pingBuffer),
strtoint(form1.Edit2.text));




писал же что когда пинг проходит нормально то идет быстрый ответ значит дело не timeaut ,

а в error ,
PM MAIL   Вверх
Romikgy
Дата 25.12.2019, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7325
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146



Цитата(guest11 @  25.12.2019,  14:32 Найти цитируемый пост)
а в error ,

ну обрабатывайте корректно ошибки ...


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
guest11
Дата 25.12.2019, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.12.2019

Репутация: нет
Всего: нет



Цитата(Romikgy @ 25.12.2019,  15:43)
Цитата(guest11 @  25.12.2019,  14:32 Найти цитируемый пост)
а в error ,

ну обрабатывайте корректно ошибки ...

скорее   WaitForMultipleObjects

mwo :=  MAXIMUM_WAIT_OBJECTS;



user posted image

Это сообщение отредактировал(а) guest11 - 25.12.2019, 21:14
PM MAIL   Вверх
guest11
Дата 25.12.2019, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.12.2019

Репутация: нет
Всего: нет



{ ожидание завершения работы потоков }
 for i:=0 to NumbArr-1 do
 begin
   if (m>0)and (i=NumbArr - 1)
   then mwo := m;
   while WaitForMultipleObjects(mwo, @hThread[i][0], True, 50) = WAIT_TIMEOUT do
   Application.ProcessMessages;
 end;
PM MAIL   Вверх
Romikgy
Дата 25.12.2019, 21:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7325
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146



вы уперты, с одной стороны хорошо , с другой, вы ходите по кругу, и ваша упертость до одного места....
WaitForMultipleObjects ждет окончание потока... а у вас проблема внутри потока... 

но вы умнее всех, так что решайте сами...


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
guest11
Дата 25.12.2019, 21:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.12.2019

Репутация: нет
Всего: нет



Цитата(Romikgy @ 25.12.2019,  21:38)
вы уперты, с одной стороны хорошо , с другой, вы ходите по кругу, и ваша упертость до одного места....
WaitForMultipleObjects ждет окончание потока... а у вас проблема внутри потока... 

но вы умнее всех, так что решайте сами...

можно и  функция     ,

функцию  таймаута  не  видел  ,


 

просто  у  меня   исходник  на  руках  где  нормально обрабатывается    error

Скачать


но  там  закрученный  код   ,
PM MAIL   Вверх
guest11
Дата 25.12.2019, 23:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.12.2019

Репутация: нет
Всего: нет



скорее вышло  недоразумение    ,  

с программы  ,  с  которой  беру  пример  ,   так  же  тормозит  ,  и  это  скорее  не  решается   ,
PM MAIL   Вверх
guest11
Дата 26.12.2019, 01:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.12.2019

Репутация: нет
Всего: нет



Программа   платная   ,

Так  же  есть  версия    с    менее  функционалом   ,  но со   свободным  скачиванием   ,

Скачать
PM MAIL   Вверх
fairsinger
Дата 22.8.2022, 12:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 22.8.2022

Репутация: нет
Всего: нет



Вы упрямы, что, с одной стороны, хорошо, но из-за этого вы ходите по кругу, и ваше упрямство ограничивается одним местом...
WaitForMultipleObjects ожидает завершения потока... и в потоке возникла проблема...


Это сообщение отредактировал(а) Poseidon - 9.10.2022, 01:32
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




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


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

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