Über Socketverbindung einen Client ansenden

[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???