Убить поток

[Баламут]

Попытаюсь описать проблему на словах... Есть Form1. На ней лежит RzPageControl. У PageControl'а есть Sheet. Sheet - есть Parent form2. В Form2 создается поток в котором вызывается функция IcmpSendEcho, т.е. пингуем мы... Если на Form2 нажать Button и написать Thread.Terminate будет все ОК. Но проблема в том, что мне нужно корректно завершить поток при закрытии Form2. А оно происходит при нажатии на кнопе на PageControl, где в коде я написал Sheet.Destroy. Т.е. в Form2 посылается сообщение WM_DESTROY. Не получается при этом правильно завершить поток... Пытался перед Sheet.Destroy сделать sendMessage(...WM_CLOSE..), но результата не увидел. Проблема возникает тогда, когда IcmpSendEcho долго не отвечат, т.е., например, ждет ответа... Собственно повторяю вопрос -как при заданных условиях коректно убить поток?

[B_N]

Сообщение от Баламут

Собственно повторяю вопрос -как при заданных условиях коректно убить поток?

Через синхронизацию... Через Event'ы, скажем. Или через PostThreadMessage нужному потоку. Смотря по конкретной реализации...
-----------------
Да, ещё, забыл сразу добавить, что, по-видимому, здесь лучше использовать не IcmpSendEcho, а IcmpSendEcho2 (win2k и выше, в связи с параметром ApcRoutine).

[mihali4]

Проблема возникает тогда, когда IcmpSendEcho долго не отвечат, т.е., например, ждет ответа

Может, я неправильно понял, но кто мешает при закрытии Form2 проконтролировать завершение пинга (ну, флажок какой-нибудь ставим в начале и снимаем по завершении) и выдавать сообщение вроде "Есть незавершенные операции, подождать их завершения?"
Если юзер не хочет ждать, программно жмем на Form2 Button (где написано Thread.Terminate), а затем закрываем Form2.

[Баламут]

Thread.Terminate здесь не прокатит по той простой причине, что метод просто выставляет флаг Terminated := true, т.е. вежливо просим поток завершиться. Он конечно же завершится, но вот форма давно уже будет убита. А отсюда и AV. Про IcmpSendEcho2 давненько уже думаю, т.к. она все-таки ассинхронна... Только вот чертовски лень переделывать код... Ладно, спасибо за ответы. Буду бороться с ленью...

P.S. Поспешил с ответом... Пожалуй Михалыч ты прав...