Форум: "Начинающим";
Текущий архив: 2008.07.06;
Скачать: [xml.tar.bz2];

Вниз

потоки   Найти похожие ветки 

← →
Res   (2008-06-09 03:05) [0]

Здравствуйте. Никак не могу понять, почему поток, после завершения кода не хочет сам разрушатся.
Запускаю так:
 for x:=1 to n do
 begin
   tnew[x]:=th.Create(true);
   tnew[x].FreeOnTerminate:= True;    
 end;
Сам поток
procedure th.Execute;
var
proxy,account,smail:string;
int:array[1..30] of integer;
x,n,z:integer;
test:boolean;
begin

end;

---

← →
Джо ©   (2008-06-09 03:38) [1]

Во-первых, вы его вообще даже не стартуете (Где вызов Resume?).
Во-вторых, код метода Execute — кто его вообще съел?

---

← →
clickmaker ©   (2008-06-09 13:20) [2]

> после завершения кода не хочет сам разрушатся

как определил?

---

← →
Palladin ©   (2008-06-09 13:26) [3]

зачем массив из экземпляров потоков"то заводить?

---

← →
Res   (2008-06-09 13:39) [4]

> как определил?

function GetThreadCount():integer;
var
 ThreadSnapshotHandle: THandle;
 ThreadFound: Boolean;
 ThreadEntry: tagTHREADENTRY32;
 ProcessID: Cardinal;
 ThreadCount:integer;
begin
 ThreadCount:=-1;
 ProcessID := GetCurrentProcessId;
 ThreadSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0);
 try
   ThreadEntry.dwSize := SizeOf(ThreadEntry);
   ThreadFound := Thread32First(ThreadSnapshotHandle, ThreadEntry);
   if ThreadFound then
   repeat
     if ThreadEntry.th32OwnerProcessID = ProcessID then
       ThreadCount:=ThreadCount+1;
   until not Thread32Next(ThreadSnapshotHandle, ThreadEntry);
 finally
   CloseHandle(ThreadSnapshotHandle);
 end;
Result:=ThreadCount;
end;

---

← →
Palladin ©   (2008-06-09 13:43) [5]

> Res   (09.06.08 13:39) [4]

а тут прямо только все твои потоки считаются да? :) наивный ЧМ
они у тебя даже не запускаются...

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.07.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.042 c