Thema: Delphi Server-Client

Einzelnen Beitrag anzeigen

Benutzerbild von Aenogym
Aenogym

Registriert seit: 7. Mär 2004
Ort: Schwerin
1.089 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: Server-Client

  Alt 17. Sep 2004, 14:09
hi,

jedesmal, wenn sich ein client an deinem server anmeldet, wird er zu connections hinzugefügt. über diese kannst du jeden client einzeln ansprechen.

besipiel:
server gestartet. erster client meldet sich an und bekommt index 0. nachricht vom server zum ersten clienten schicken:

serversocket1.socket.connections[0].sendtext('na sie!'); wennsich nun ein neuer client anmeldet, bekommt dieser den nächsten index (1). nachricht an den zweiten:

serversocket1.socket.connections[1].sendtext('hiho nummer 2'); du kannst auch ganz leicht eine nachricht an alle gerade verbundenen clients schicken:

Delphi-Quellcode:
var i: integer;
begin
  for i:=0 to serversocket1.socket.activeconnections - 1 do
    serversocket1.socket.connections[i].sendtext('na sie!');
end;
edit: fehler im code verbessert

viel erfolg,
Aenogym
Steffen Rieke
Was nicht buzzt, wird buzzend gemacht!
http://blog.base-records.de
http://www.base-records.de
  Mit Zitat antworten Zitat