Über Socketverbindung einen Client ansenden

[TDR]

Hallo liebe Delphianer,

Ich habe einen Server mit dem mehrere Clients Verbunden sind.

Bislang sende ich wie folgt den Clients Nachrichten.

Delphi-Quellcode:

for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
    ServerSocket1.Socket.Connections[i].SendText(MyMessage);

somit bekommen alle Clients diese Nachricht.

Nun möchte ich aber nur einem bestimmten Client,von dem ich die IP-Adresse habe, eine Nachricht senden.
Weiß jemand wie das geht???

Freu mich über Antworten

[Aphton]

- Gehe alle Clients mit einer Schleife durch, bis du den entsprechenden gefunden hast - die Bedingung: Sind die IPs gleich?...
- Sende die Nachricht diesem Client

[TDR]

Zitat von Aphton:

- Gehe alle Clients mit einer Schleife durch, bis du den entsprechenden gefunden hast - die Bedingung: Sind die IPs gleich?...
- Sende die Nachricht diesem Client

Gibt es dar wirklich keine andere Lösung

also so was wie:

Delphi-Quellcode:

ServerSocket1(IP).sendText(Nachricht);
//das funzt nicht ich weis

Hat irgendjemand was einfacheres.

und wie macht man das dann wenn man zweit gleiche ip`s hat?

[Aphton]

Zahl mir was, dann kaue ich dir das vor!
Einfacher kanns nicht werden -.-'

[Luckie]

Dann erweitere dein Klasse um eine entsprechende Methode und schon geht es einfacher.

[TDR]

hej,
das war ja nur eine Frage.
Mir ist klar wie das geht. Ich wollte nur wissen ob es einfacher geht.

Aber wenn das nicht einfacher geht, werde ich es wohl so machen müssen.

Allen vielen dank für die Hilfe.

[Sir Rufo]

Nur so am Rande bemerkt:

Die reine IP-Adresse ist kein eindeutiges Merkmal für einen Client, sondern nur die Kombination aus IP und Port

[Aphton]

Stimmt auch wieder. Es können ja mehrere Rechner von einem lokalen Netz an denselben (nicht lokalen) Server eine Verbindung aufbauen. Der Server sieht dann bei beiden Clients dieselbe IP, da sich beide hinter demselben Router befinden!

[TDR]

Ich habe das geschrieben: (funktioniert)

Delphi-Quellcode:

var
scan : integer;
TempIP : String;
EIP : String; // EmpfängerIP
KMessage : String; //Message die gesendet werden soll
try
      for scan := 0 to ServerSocket1.Socket.ActiveConnections-1 do
      begin
        TempIP := ServerSocket1.Socket.Connections[scan].RemoteAddress;
        if (TempIP = EIP) then
                   ServerSocket1.Socket.Connections[scan].SendText( KMessage ); 
        end;
except
       Log.Lines.Add  ('ERROR: Socksend method failed');
end;

Aus diesem Artikel leicht geändert.

Was sagt ihr da zu???

[Aphton]

Zitat von TDR:

Ich habe das geschrieben: (funktioniert)
(...)
Was sagt ihr da zu???

Ist oll'korrect so!