Форум: "Потрепаться";
Текущий архив: 2003.09.08;
Скачать: [xml.tar.bz2];

Вниз

Динамическое создание потоков   Найти похожие ветки 

← →
Прохожий   (2003-08-19 07:28) [0]

Стал разбираться с потоками и не пойму как организовать их динамическое создание. Как, например, присвоить имена новым объектам, если заранее я не знаю сколько их будет? Использовать динамический массив?

---

← →
Camus   (2003-08-19 08:34) [1]

> как организовать их динамическое создание.
Так же, как и объектов любого другого класса

> Как, например, присвоить имена новым объектам,
У объектов TThread нет никаких имен.

> если заранее я не знаю сколько их будет? Использовать
> динамический массив?
Можно массив. Можно TList или TObjectList. И даже TStrings, TListItems или TTreeNodes тоже можно - нужен просто любой список ссылок. Существует и специальный (синхронизированный) список TThreadList.

---

← →
Palladin   (2003-08-19 08:35) [2]

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

TList
TObjectList
TStringList
array of
pointer + GetMem наконец...

Зачем тебе присваивать имена потокам? Потоки не являются наследниками от TComponent следовательно свойства Name у них нет.

---

← →
Прохожий   (2003-08-19 10:53) [3]

Зачем тебе присваивать имена потокам?
А как ты мне предлагаешь закрывать отдельные потоки и удалять их из памяти ?

---

← →
sniknik   (2003-08-19 10:57) [4]

> А как ты мне предлагаешь закрывать отдельные потоки и удалять их из памяти ?
FreeOnTerminate:= true;
и он самоуничтожится по завершении. и даже ссылку не него хранить не надо (если только для других целей).

---

← →
han_malign   (2003-08-19 11:07) [5]

>У объектов TThread нет никаких имен.
- а вот это видели? (D7 генерит, если попросишь)
{$IFDEF MSWINDOWS}
type
TThreadNameInfo = record
FType: LongWord; // must be 0x1000
FName: PChar; // pointer to name (in user address space)
FThreadID: LongWord; // thread ID (-1 indicates caller thread)
FFlags: LongWord; // reserved for future use, must be zero
end;
{$ENDIF}

{ TTest }

procedure TTest.SetName;
{$IFDEF MSWINDOWS}
var
ThreadNameInfo: TThreadNameInfo;
{$ENDIF}
begin
{$IFDEF MSWINDOWS}
ThreadNameInfo.FType := $1000;
ThreadNameInfo.FName := "Ятуркенженсирхив";
ThreadNameInfo.FThreadID := $FFFFFFFF;
ThreadNameInfo.FFlags := 0;

try
RaiseException( $406D1388, 0, sizeof(ThreadNameInfo) div sizeof(LongWord), @ThreadNameInfo );
except
end;
{$ENDIF}
end;
- правда, хоть убей, не понимаю к чему этот Trick(или Kludge) - всякие TaskInfo, etc - все равно не видят...

---

← →
Palladin   (2003-08-19 11:10) [6]

> Прохожий © (19.08.03 10:53) [3]

А что? Других способов осовобождать объекты не существует?

---

← →
Camus   (2003-08-19 11:22) [7]

> Прохожий © (19.08.03 10:53) [3]
> А как ты мне предлагаешь закрывать отдельные потоки и удалять
> их из памяти?

Как обычно - через ссылки. Никакие имена тут ни при чем.

---

← →
ggsoft   (2003-08-19 11:26) [8]

> Прохожий © (19.08.03 10:53) [3]

Закрывать можешь и по
TerminateThread(MyListThread[Index].Handle, 1),
и даже... по
with MyListThread[Index] do begin
Terminate;
WaitFor;
Free;
end;

Ты же знаешь где они у тебя будут (неважно, сколько).
-----------------------

> han_malign © (19.08.03 11:07) [5]

HELP.
...Because it is difficult to tell which thread ID refers to which thread in the Thread Status box, you can name your thread classes...
The debugger sees the exception and looks up the thread name in the structure you pass in. When debugging, the debugger displays the name of the thread in the Thread Status box’s thread ID field...

А вообще-то довольно удобно, правда все равно как-то "глючнуто" отображает статус потоков.

---

← →
Прохожий   (2003-08-19 11:29) [9]

>sniknik
про FreeOnTerminate:= true; я то и забыл :)

---

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

Форум: "Потрепаться";
Текущий архив: 2003.09.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.009 c