Threads... (inside)

← →
Fellomena (2002-03-20 10:49) [0]

Всем привет ! Объясните мне plz что происходит, когда я из цикла
запускаю поток, цикл заканчивается и программа тоже, а поток всё ещё работает ?
Он ведь по идее должен бцть уничтожен - так ? (программа не в WindowsLoop-е работает).
И в таком случае надо использовать, imho, WaitForSingleObject - так ?
Что бы понятно было о чём речь, код:
... DO j = 1, count if (j.EQ.count) then ThreadHandle = CreateThread(0, 0, MyThread, 0, & 0, ID) WaitResult = WaitForSingleObject (ThreadHandle, WAIT_INFINITE) m = CloseHandle (ThreadHandle) print *, j EndIf if (((j.GT.count2) .and. (mod(j,count2).EQ.0)) then ! ... ThreadHandle = CreateThread(0, 0, MyThread, 0, & ! ... 0, ID) m = CloseHandle (ThreadHandle) print *, j EndIf End Do ! ... ! процедура, которая запускается в потоке subroutine MyThread() use dfmt print *, "Thread work !!!" CALL EXITTHREAD(0) end subroutine
Можно я на Паскаль перебивать не буду - и так всё ясно, imho.
Так вот, при выполнении этого кода значения j выводятся на 1 больше, чем "Thread work !!!" (хотя не всегда)
Почему так ?

Threads... (inside) Найти похожие ветки