Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi TServerSocket/TClientSocket: Clients identifizieren??? (https://www.delphipraxis.net/57469-tserversocket-tclientsocket-clients-identifizieren.html)

romber 21. Nov 2005 21:52


TServerSocket/TClientSocket: Clients identifizieren???
 
Hallo!

ich habe ein TServerSocket, zu dem mehrere Clients verbuden werden. Ich möchte die verbundenen Clients in einer Liste anzeigen und bei Bedarf einen beliebigen Client aus der Liste wählen und mit diesem Client kommunizieren. Ich habe jedem Client eine ID zugewieden. Also Clients beim Verbinden in die Liste hinzufügen ist kein Problem. Aber wie kann ich jede einzelne Connection kennzeichnen, so dass ich jederzeit mit einer bestimmten Connection kommunizieren kann? Oder z.B. den Item aus der Liste entfernen, wenn eine Connection geschlossen wird?

Danke!

neuronet 21. Nov 2005 21:56

Re: TServerSocket/TClientSocket: Clients identifizieren???
 
Vielleicht hilft Dir das weiter:

TServerSocket - Beispiel

Muetze1 21. Nov 2005 22:41

Re: TServerSocket/TClientSocket: Clients identifizieren???
 
1. Eine ListBox o.ä. hat eine Objects[] Eigenschaft und neben der Add() Methode auch die AddObject() Methode.
2. Jeder Socket der die beim OnClientConnect und OnClientDisconnect angegeben wird, findest du in dem Connections[] Array wieder.
3. Die Socket Instanz für jede Verbindung bleibt über ihre gesamte Lebenszeit der Verbindung die gleiche. Somit kann man Instanzenadressen nutzen.
4. Verbinde beides und vergess deinen Index/ID. Füge im OnClientConnect in der ListBox mit AddObject() den String und den Socket hinzu und beim OnClientDisconnect löscht du den Eintrag in der ListBox, den du mit Objects.IndexOf(Socket) bekommst.
5. Wenn du Aktionen auf die ausgewählten Clients machen willst, dann hole dir die Objekte aus dem Objects[] Array und nutze diese (Typecast auf TCustomWinSocket nicht vergessen).

Ein etwas kompliziertes Beispiel dazu und unkommentiert soweit findest du als abschreckendes Beispiel auf meiner HP...


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:19 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz