Methode zum wiederfinden eines Indy-Thread

**DataCool**

Hi,

ich benutze immer die Eigenschaft .Data vom TIdPeerThread.

Data ist vom Typ TObject, d.h. man kann dort alles ablegen,
und über Data auf den entsprechenden Thread suchen und wieder finden.
Um einen bestimmten Client zu finden muss man nur wie folgt vorgehen :

zusammenfalten · markieren

Delphi-Quellcode:

			Var tmpList   : TList;

    i         : Longint;

    tmpClient : TClientData; // der Typ den Ihr zum identifizieren des Clients braucht(z.B. String, Longint, Record)

begin

  tmpList := myIndySerer.Threads.Locklist;

  try

    for i := 0 to tmpList.Count - 1 do begin

      if Assigned(tmpList[i]) then begin

        try

          tmpClient := TClientData(tmpList[i]); 

        except 

          tmpClient := nil;

        end;

        if Assigned(tmpClient) then begin

          if tmpClient.Ident = sSearchIdent then begin

            // gefunden

            break; // Suche abbrechen 

          end;

        end;

      end;

    end;

  finally

    myIndyServer.Threads.unlockList;

  end;

end;

Greetz DataCool

Methode zum wiederfinden eines Indy-Thread

Re: Methode zum wiederfinden eines Indy-Thread

Forumregeln