Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как использовать CreateThread [D7, WinXP]

Stanislav © (2005-10-07 11:39:00)
Есть процедура:
Procedure SuExecT (P:Pointer);
var CodTh:Cardinal;
begin
if p<>nil then begin
ShowMessage (IntToStr(Integer(P)));
SuExecA (Integer(P),'');
end;
GetExitCodeThread (TID,CodTH);
ExitThread(CodTH);
end;
Вызываю ее так:
Windows.CreateThread(nil,0,@SUExecT,Pointer(ARM),0,TID);
Но параметр не передается!
что я делаю не так?

Stanislav (2005-10-07 17:11:00) [1]
Спасибо!
Если первичный поток VCL- нет.

Leonid Troyanovsky (2005-10-07 16:58:00) [2]

> Stanislav © (07.10.05 16:47) [12]
> Понял.Спасибо. Вот еще вопрос я в цикле запускаю несколько
> паралельных потоков, а после завершения последнего мне нужно
> закрыть программу, как узнать когда он завершиться ?

WaitForMultipleObjects with bWaitAll = TRUE.

Если первичный поток VCL, то лучше ожидать MsgWaitForMultipleObjects,
чтобы не замораживать форму.

--
Regards, LVT.

Stanislav (2005-10-07 16:47:00) [3]
Понял.Спасибо. Вот еще вопрос я в цикле запускаю несколько паралельных потоков, а после завершения последнего мне нужно закрыть программу, как узнать когда он завершиться ?

Leonid Troyanovsky (2005-10-07 16:37:00) [4]

> Stanislav © (07.10.05 16:24) [10]

> То чтобы получить H нужно ведь дождатся окончания выполнения
> этого процесса.

H - это хендл объекта ядра "поток", возвращается сразу
(т.е., независмо от дальнейшей судьбы запущенного потока).

Для того, чтобы узнать результат работы потока, т.е., то,
что возвращает функция потока, нужен GetExitCodeThread,
в котором H - первый параметр.

Когда же оный хендл стал ненадобен, ему делают CloseHandle.

--
Regards, LVT.

Stanislav (2005-10-07 16:24:00) [5]
Я вот только не пойму если этот процесс выполняется паралельно, с основным, а я пишу H:= BeginThread(nil,0,@SUExecT, Pointer(ARM),0,TID);
То чтобы получить H нужно ведь дождатся окончания выполнения этого процесса.

Stanislav (2005-10-07 13:23:00) [6]
ShowMessage - для отладки.
Все понятно, спасибо!
Иду исправлять.

Digitman (2005-10-07 13:05:00) [7]

> что еще нужно?

еще нужно понять. что ShowMessage - процедура не потокобезопасная
используй MessageBox()

а еще следует уяснить, что вызывать GetExitCodeThread() в коде того самого потока, который еще работает и который, собственно, и формирует в ходе своей работы этот ExitCode, по меньшей мере бессмысленно ...

вот этого

function SuExecT (P:Pointer): Integer;
begin
..
Result := код возврата;
end;

вполне достаточно и для корректного возврата результата (который другой поток после завершения данного потока сможет прочитать с пом. GetExitCodeThread, пока хэндл потока существует) и для собственно завершения работы потока ... ExitThread вовсе не обязателен в дан.случае

кр.того, GetExitCodeThread() требует параметром не Id, а Handle потока

Leonid Troyanovsky (2005-10-07 12:52:00) [8]

> Stanislav © (07.10.05 12:39) [5]

> что еще нужно?

См. Digitman © (07.10.05 11:44) [1]

Поясню, что "Результат :=" означает, что полученное
требуется сохранять для, как минимум, CloseHandle.

Ну, и принято проверять Результат <> 0.

--
Regards, LVT.

isasa (2005-10-07 12:48:00) [9]
Если используешь, все-таки, CreateThread, то
... IsMultithread:=true; CreateThread(nil,0,@SUExecT,Pointer(ARM),0,TID); ...

Stanislav (2005-10-07 12:39:00) [10]
Leonid Troyanovsky © (07.10.05 12:32) [4]

почему?
что еще нужно?
Подскажите если не сложно.

Leonid Troyanovsky (2005-10-07 12:32:00) [11]

> Stanislav © (07.10.05 12:13) [3]
> В объявлении процедуры дописал Procedure SuExecT (P:Pointer);
> stdcall
> Все заработало.

Не все.

--
Regards, LVT.

Stanislav (2005-10-07 12:13:00) [12]
В объявлении процедуры дописал Procedure SuExecT (P:Pointer); stdcall
Все заработало.
Спасибо!

Stanislav (2005-10-07 12:03:00) [13]
У меня в процедуру не передается,
ARM:=550 а Integer(P) = 0.

Digitman (2005-10-07 11:44:00) [14]
functionSuExecT (P:Pointer): Integer;
begin
..
end;

Результат := BeginThread(nil,0,@SUExecT, Pointer(ARM),0,TID);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »