Text vom Server zum Client verschicken

[Patrick]

Ich bin sicher, diese Frage wurde schon x mal gestellt, aber ich habe nirgends eine Antwort gefunden, die ich verstehe:

Also folgendes, Ich will einen einfachen Text zwischen einem Server und einem Client verschicken. Vom Client zum Server klappt das auch prima, aber der Server rafft die IP des Client nicht, er weis also nicht wohin der den Text senden soll. Könnt ihr mir weiterhelfen???

[Marco Haffner]

Wenn Du uns mitteilst was Du bereits gemacht hast, wird Dir bestimmt auch weitergeholfen.

[Ultimator]

Ich glaub ich hab da noch 'n altes Quelltext-Stück:

Delphi-Quellcode:

For I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
   begin 
   with ServerSocket1.Socket.Connections [I] do
  if (Connected) then SendText('Das ist der Text, der so dringend an alle Clients gesendet werden muss');
 end;

Is zwar von einem Server zu mehreren Clients, aber ist ja einfach, das umzuschreiben

[Meflin]

[edit]lesen sollt man können ;-)[/edit]

[skyphab]

hi.
der server kann soweit ich weiß nur an eine offene verbindung schicken.
für jede bestehende verbindung eines clients, gibts einen neuen eintrag bei socket.connections.

mit socket.activeconnections bekommst du die anzahl der aktiven verbindungen. wenn mich nicht alles täuscht bekommt jede verbindung eine socketnummer, mit der der server wieder mit dem client kommuniziert.

an alle clients kannst du schicken, wie von ultimator beschrieben.

wenn du an einen expliziten client schicken willst musst du wahrscheinlich selber eine liste führen. beim onclientconnect ereignis des server kannst du mit socket.remoteaddress die client-ip abfragen. diese verbindung würde er in activeconnetions + 1 speichern. vielleicht geht das auch über die socketnummer, ich weiß aber nicht wie man da drankommt.

[Neuni]

Nun hab ich schon öfters "ServerSocket" gelesen...

Kann es sein, dass es das bei Delphi 7 nicht gibt??? :wiejetzt:
Kann auch sein, dass ich zu dumm zum gucken bin, aber ich finds einfach nicht. :gruebel:

[Ultimator]

Hi!
Die Sockets kann man folgendermaßen nachinstallieren:
Menü Komponente, Packages installieren, dann auf Hinzufügen, ins Verzeichnis ...\Delphi7\Bin wechseln und dann die Datei dclsockets70 öffnen. Wupp sind sie da.