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

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

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

передать при запуске потока

Bent © (2004-05-21 18:36:00)
как передать при запуске потока число
и потом его получить
t1:=CreateThread(.,@TH...,0,1); // id 1
t2:=CreateThread(.,@TH...,0,2); // id 2

Обработчик для них одинаков,но код выполняется
в зависимостии от id

procedure TH;stdcall;
var
id:cardinal;
begin
id:= ????? получили,что передавали id
if id=1 then begin ....
if id=2 then begin ....
.....=id*PI;

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

Bent (2004-05-22 10:13:00) [1]
Спасибо всем понял!

LMD (2004-05-21 21:12:00) [2]

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

threadvar в delphi ввели полезное слово

panov (2004-05-21 19:13:00) [3]
Примерный код:

procedure H(aId: Pointer); stdcall;
var
Id: DWORD;
begin
ExitThread(DWORD(aId^)*2);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
TH: THandle;
TI: THandle;
Id: Integer;
RC: DWORD;
begin
Id := 1;
TH := CreateThread(nil,0,@H,@Id,0,TI);

if TH>0 then
begin
if WaitForSingleObject(TH,1000)=WAIT_OBJECT_0 then
begin
GetExitCodeThread(TH,RC);
ShowMessage(IntToStr(RC));
end;
CloseHandle(TH);
end;

Тимохов (2004-05-21 19:03:00) [4]
встречное предложение использовать tthread - для прикладных задач очень хорошо подходит.

Наверх

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