[ValeryB]

Есть процедура в отдельном потоке

Код:

Procedure DoNothing;
begin
while true do;
end;

MAD: !!!!! >:-(

Я хочу её убить TerminateThread
Как не странно, но она не убивается этой функцией.


В описании написано, что
Windows NT: The handle must have THREAD_TERMINATE access. For more information, see Thread Objects.

Но ни в помощи, ни в гугле нет ни единого примера. Может кто подсказать ?

[PhoeniX]

Ваш код покажите, пожалуйста.

[NumLock]

а еще в писании сказано:

If the function fails, the return value is zero. To get extended error information, call GetLastError.

Поток кто создает?

[ValeryB]

Поток создаёт WinAPI
CreateThread(nil,0,@DoNothing,nil,0,ConnectThreadI D);

И такой константы THREAD_TERMINATE нет.

[NumLock]

это не константа:

The thread handle returned by the CreateThread and CreateProcess functions has THREAD_TERMINATE access, so any caller holding one of these handles can terminate your thread.

и что все-таки с GetLastError ? и почему бы не завершить поток корректно, без утечки ресурсов?

[ValeryB]

Всё, разобрался. Моя ошибка.
SysErrorMessage = Неверный дескриптор.

Надо было делать так:

Код:

Hndle:= CreateThread(nil,0,@DoNothing,nil,0,ThreadHandle);
TerminateThread(Hndle,0);

MAD: оформляем код, блин

Просто в описании ф-ции CreateThread написано, что
LPDWORD lpThreadId // pointer to returned thread identifier
И то, что дескриптор должен обладать признаком THREAD_TERMINATE
Вообщем, тогда я не понимаю что это всё значит.

Ну и пару встречных вопросов:
1. А как можно правильно завершить поток выполняющий while true do; ?
2. Можно как нибудь избавиться от утечки ресурсов в бесклассовом треде завершённым таким образом(через ThreadTerminate) ?

[PhoeniX]

Использовать какой-либо флаг завершения. В классовом варианте это

Код:

while not Terminated do ...

А вообще упоротость - писать на ООП-языке без ООП. Вы бы ещё на ассемблере писали в блоке asm ... end;
Для таких извращений есть Си (без плюсов) и подобные языки.

[Bargest]

Вы бы ещё на ассемблере писали в блоке asm ... end;

Challenge accepted.

А как можно правильно завершить поток выполняющий while true do; ?

Использовать какой-либо флаг завершения.

Для понятности, как пример:

Код:

// thread:
while not myStopFlag do ;
...
// main thread:
myStopFlag := false;
CreateThread(...., @myStopFlag, ...); // parameter passed to thread
myStopFlag := true;

[ValeryB]

Ну вообще про флаги я в курсе...

А если надо вызвать функцию из DLL в отдельном потоке ?
Например какую-нибудь функцию шифрования из внешней DLL ?
DLL - не будет смотреть на флаги. Этот поток либо терминировать либо дожидаться окончания.

EBFE!

[PhoeniX]

DLL, я так понимаю, не очень самописная? Если своя - то будет и ещё как, если её заставить это делать А если чужая - то фиг знает. Можно использовать внешний "менеджер памяти" для потока - перед созданием треда выделять ему необходимые ресурсы, после смерти (или убийства) - освобождать в основной программе. Тогда утечек не будет.

[NumLock]

+ Borland рекомендовал использовать BeginThread / EndThread вместо CreateThread / ExitThread.