Daten über eigenen Port / reservierten Port schicken

[Cyf]

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);

Tritt ein wenn du Daten von einem Client empfangen kannst, Socket ist der Socket auf dem Daten reinkommen.

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);

Tritt ein wenn der Serversocket(!) Daten senden muss. Das ist imho nur der Fall direkt nach dem Connect, wenn der neue Port dem Client bekannt gemacht wird.

[Edit]Beim Client wird in Adress die IP des Servers eingetragen und in Host die DNS, falls du beides einträgst hat die DNS Vorang.