TServer(/Client)Socket Error...

[timmy443]

Also erst mal vielen Dank für die rache Antwort!
Code:

Client

procedure TForm10.VerbindenClick(Sender: TObject);
begin
ClientSocket1.Host:=edit1.Text; //IP des Servers
ClientSocket1.Port:=23;
clientSocket1.Active:=true;
end;

procedure TForm10.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Socket.SendText(Form1.Memo2.text);
close;
end;


Server:

procedure TForm11.VerbindenClick(Sender: TObject);
begin
ServerSocket1.Port:=23;
ServerSocket1.Active:=true;
end;

procedure TForm11.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Form1.Memo1.text:=ServerSocket1.Socket.ReceiveText ;
close;
end;



Vorgehensweise:

Client und Server müssen sich "absprechen". Erst muss der Server auf verbinden klicken, dann der Client. Der Server soll so lange auf Port 23 "horchen" bis der Cilent sich anmeldet, dann soll der Client - onClientSocket1Connect - den Text aus der memo schicken und der Server ihn gleich abholen. Aber irgendwie scheint da der Wurm drinne zu sein... funktioniert einfach nicht. Könnte ein vorgeschalteter Router ein Problem darstellen? Verwendet dann ein Client die IP des Routers oder die des PCs? Wenn ja, wie kann ich das umgehen?
Vielen Dank schon mal im voraus
MFG Timmy