TServerSocket Connections[x]

[Random]

Hallo, ich habe eine Frage zum TServerSocket.

Um an eine Verbindung von TServerSocket Text zu verschicken, nehme ich an, dass man diesen Befehl verwendet:

Delphi-Quellcode:

Socket.Socket.Connections[x].SendText(text);

Nun ist mein Problem:
wie finde ich raus welches "x" die jeweilige Verbindung hat? Es war mir möglich mit dem von OnClientRead übergebenen "Socket" durch "Socket.SocketHandle" ein Integer-Handle einzulesen, mit welchem ich die Verbindungen zuordnen kann.
Wie kann ich nun beim Versenden das Handle dem entsprechenden "x" zuordnen?

[Muetze1]

Moin!

Connections[] liefert dir eine Instanz vom Typ TCustomWinSocket zurück und das entspricht deinem Socket beim OnClientRead. Somit hast du 2 Möglichkeiten:

1. Im OnClientRead einfach Socket.SendText(); aufrufen und somit gar nicht erst den Socket suchen, da er dir übergeben wird.
2. Eine Schleife über alle Connections[] machen und vergleichen ob Connections[] = Socket ist...

Ich empfehle mal so pauschal die 1. Methode...

MfG
Muetze1

[Random]

Nun gut, dies würde vorraussetzen, dass der Server dem Client sofort antwortet. Es geht mir aber vorwiegend darum, die Clients zuordnen und später, vom Server selbstständig ansprechen zu können.

Beispiel: Der Server merkt sich wann sich ein Client angemeldet hat und schreibt ihm nach einer Stunde "du bist jetzt seit einer Stunde angemeldet."

[supermuckl]

jo dann tu das handle vom clientsocket zusätzlich in ein record oder klasse und dann kannste damit andere daten verknüpfen..

[Random]

Oh, das geht? Gut, danke!

[Muetze1]

Moin!

Auf meiner HP liegt ein kleiner Chat rum auf Basis von TClientSocket/TServerSocket. Dort habe ich eine kleine Klasse angelegt pro Benutzer die sich dann den Socket aufnimmt (also die Instanzen Adresse) und darüber kann ich dann leicht die Benutzer zuordnen etc . Die Benutzer-Klasseninstanzen werden in einer eigenen TObjectList Ableitung gehalten die dann auch z.B. Funktionen bietet an alle Nutzer zu senden (alle enthaltenen Instanzen durchlaufen und den Socket haben dann ja die einzelnen Instanzen). Eintragen der Instanz bei OnClientConnect und austragen bei OnClientDisconnect. Klappt wunderbar. Ansonsten einfach mal auf eine HP gehen (Delphi->Projekte) und mal anschauen...

MfG
Muetze1

[Random]

Zur Komplettierung dieses Topics möchte ich hier noch den Tip eines Bekannten erwähnen -

man lasse einfach einen Zähler mitlaufen, der bei jedem OnConnect um eins steigt. Der Wert des Zählers wird dann mit den Userdaten gespeichert und entspricht später dem "x" in Connections[x].


Gibts eigentlich irgendwo eine Komplettlösung zu meinem Quest? :gruebel: (nicht antworten, das ist rhetorisch gemeint! :mrgreen:)

[supermuckl]

es gibt in den indy demos ein tcp client/server demo das die user verwaltung komplett beinhaltet

mit einem record :>

is zwar kein gesockse.. aber falls indy benutzen willst oder ein scheibchen davon verwenden willst isses cool

[Muetze1]

Moin!

@Random: Der Zähler hilft dir nix mehr, wenn bei 5 Clients der 2. getrennt wird - dann stimmen die Indizies nicht mehr. Schau dir sonst wirklich mal meinen Chat an als Ideenbeispiel. Alle Quellen auf meiner HP sind ja frei verwendbar als kannst du dir da auch die Ideen her klauen...

MfG
Muetze1

[Random]

Man wird's nicht glauben, aber es funktioniert mit dem Counter, da beim Connections[] Dings die Socketpointer/whatever bei Disconnect durch nil ersetzt werden und damit die Reihenfolge erhalten bleibt.

Nichts gegen deine Idee (welche wesentlich eleganter ist) aber diese Methode hier ist relativ simpel und funktioniert bei mir auch schon.