TThread objekt finden mit ThreadID

[hoika]

Hallo,

1. geht das nur als Admin,
2. es geht hier nicht um API Thread killen, sondern per TThread

Und nun zum Server.
Packe im Server-Prozess alle erzeugten Threads in eine (TObjectList)
und suche das TThread dann.

Anderes geht es afaik nicht.

Wenn ich z.B. folgendes habe.

Delphi-Quellcode:

procedure TForm1.Add(theList: TList);
var
  MyClass: TMyClass;
begin
  MyClass:= TMyClass.Create;
  theList.Add(MyClass);
end;

procedure TForm1.OnButtonClick;
begin
  Add(List);  // List ist hier mal Form-Varaible
end;

,komme ich nur noch über die Liste an das MyClass.



Heiko

[bart57]

Danke,

aber dass helft mich glaube ich nicht so....
Wie kann ich in der Liste das TThread-Objekt finden wenn ich nur die ThreadID habe ?

[CCRDude]

1. RTFM, TThread.ThreadID
2. Überdenke das Kommunikationsprotokoll zwischen Client und Server noch einmal, wenn Du nichts besseres hast.

[bart57]

Was ist RTFM?

[hoika]

RTM

read the fucking manual
ThreadId ist eine Variable in TThread

Das Eintragen in eine TObjectList solltest zu alleine schaffen
und for-Schleife, um die Liste zu durchsuchen auch, oder ?


Heiko

[bart57]

Leider nicht...

Es ist mir gar nicht klaar wie Sie es machen wollen... Sorry



Danke !

[hoika]

Hallo,

dein Client fordert vom Server ja eine Dienstleistung.
Der Server erzeugt einen Thread (TThread) und gibt die Thread-Id an den Client weiter.

Der Server zeugt den Thread aber nicht nur,
sondern packt ihn in eine Liste.
Die Liste (ThreadList) ist "global" für den Server.

Delphi-Quellcode:

var
  ThreadList: TList;  // oder was immer für eine Liste

procedure CreateMyThread;
var
  MyThread: TMyThread;
begin
  MyThread:= TMyThread.Create;

  ThreadList.Add(MyThread);
end;

Diese ThreadList musst du führen,
wird ein Thread beendet, fliegt er aus der Liste raus.

Zum Suchen dann einfahc ne Schleife über "ThreadList".


Heiko

[bart57]

Danke!!!

[Luckie]

Siehe dazu auch: http://www.michael-puff.de/Developer...er_Klassen.php