tserversocket user unterscheiden

[G G]

hallo folgender code

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var i :integer;
begin

  For I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
   begin // Anzahl der Teilnehmer
   with ServerSocket1.Socket.Connections [I] do
  if (Connected) then SendText('hallo');
 end;
end;

nun meine frage wenn ich I ändere und z.B nur an I = 5 schicke dann kriegt die verbindung nummer 5 die nachricht. Aber nun wie kann ich z.B im onconnect event erkennen welches I dieser neuer benutzter hat?

[Aenogym]

hi G G,

du kannst die verbindungen doch ganz easy über ihre IP-adressen auseinanderhalten ;)

aenogym

[G G]

ahja schon dann hab ich die ip addreese aber wnen ich dann eine nachricht an einen schicken will z.B

with ServerSocket1.Socket.Connections [I] do
if (Connected) then SendText('hallo');


dann muss ich ja wissen welchs I für welche ip steht.

also wie find ich den dieses I heraus, odr knan man die ip umwandeln?

[Aenogym]

Zitat:

Zitat von G G

also wie find ich den dieses I heraus, odr knan man die ip umwandeln?

also ich hab mir für sowas ne funktion geschrieben, die den connections-array durchläuft und prüft, ob die IP des aktuellen eintrags der gesuchten entspricht. wenn ja, wird der index zurückgegeben und die schleife verlassen.

aenogym

[G G]

ah nicht schlecht, willst du die vll mal herzeigen? :wink:

[Aenogym]

Zitat:

Zitat von G G

ah nicht schlecht, willst du die vll mal herzeigen? :wink:

also eine schleife dadurch zu machen ist doch nicht so schwer ;)

aber weil ich gute laune hab:

Delphi-Quellcode:

function GetConnectionID(AServerSocket: TServerSocket; AIP: string): integer;
var i: integer;
begin
  for i:=0 to AServerSocket.Connections.count-1 do
  begin
    if AServerSocket.Connections[i].RemoteAddress = AIP then
    begin
      result := i;
      break;
    end;
  end;
end;

(das hab ich aus dem kopf geschrieben. falls da ein fehler drin ist, wirst du den aber sicher selber beheben können ;) )

aenogym

[Muetze1]

Omg - ich glaube ich sollte doch mal ein Socket Tutorial schreiben. Ich liebe ja die alten Kompos, die sind so schön einfach...

Aber egal, ihr wollt was anderes wissen: Warum bastelt ihr hier mit IPs rum? Beim OnClientRead/OnClientConnect etc wird doch ein Socket übergeben (Parameter Socket) und dieser ist natürlich auch in dem Connections[] Array wieder zu finden, also einfach vergleichen ob du gerade die gleiche Instanz bearbeitest bzw. behandelst...

[flossinger]

Hallo,

da ist etwas übersehen worden. Du kannst in der on connect procedure direkt dem neuen Client antworten.
Es braucht weder eine Schleife noch einen Vergleich.

Im on connect wird dir der socket zum neuen client übergeben.

Code:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
socket.SendText('welcome');
end;

Das ist getestet und funktioniert. Das sendet eine Antwort an den neuen client.

der flossinger

[Muetze1]

Zitat:

Zitat von flossinger

da ist etwas übersehen worden. Du kannst in der on connect procedure direkt dem neuen Client antworten.
Es braucht weder eine Schleife noch einen Vergleich.

Im on connect wird dir der socket zum neuen client übergeben.

Darauf habe ich auch schon hingewiesen, hatte es aber bisher so verstanden, dass er eine Lösung sucht allen anderen Clients bis auf den neu verbundenen etwas zu schicken (z.B. vllt. die Join Mitteilung?).

[flossinger]

Ja könnte sein, ich habe aus seinem 'hello' voreilig auf die Begrüssung des neuen clients geschlossen. Wie dem auch sei, für den anderen Fall würde ich ihm das folgende empfehlen:

Code:

for i:=0 to serversocket1.Socket.ActiveConnections - 1 do
   if  (serversocket1.socket.connections[i].RemoteAddress = socket.RemoteAddress)
   and (serversocket1.socket.connections[i].RemotePort = socket.RemotePort)
   then serversocket1.socket.connections[i].sendtext('welcome')
   else serversocket1.socket.connections[i].sendtext('one more here')
   ;

- ist auch getestet und funktioniert.

der flossinger