Mein Chatprog. funzt nicht !!

[Langohr]

Also ich fange erst einmal bei der Verbindung zum Server an:

1.) Beide (Server und Client) müssen den Selbenport besitzen
welche du benutzen kannst steht im Forum musst du mal die Suche nutzten

2.) Der Client muss in der Eigenschaft "Address" die IP des Server beinhalten

Der Client sieht mir ansonsten so richtig aus, allerdings beim Server würde ich noch einen Button hinzufügen, der das senden übernimmt ähnlich wie beim Client

Code:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if Serversocket1.Active = true then 
  if ServerSocket1.Socket.ActiveConnections > then  
  ServerSocket1.Socket.Connections[1].SendText(Edit1.Text); 
  Edit1.Text:=''; 
end;