Erstmal Danke für die Antworten!
Ich benutze ClientSocket & ServerSocket als Komponenten hier etwas Code:
Server:
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket.Port := 23; //Festlegung des Ports
ServerSocket.active := true; //Aktivierung der ServerSocket
end;
Client:
procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.Port := 23; //Festlegung des Ports
ClientSocket1.Host := '127.0.0.1'; //
IP des Zielrechners
ClientSocket1.active := true; //Aufbau der Verbindung
end;
Client:
procedure TForm1.Button1Click(Sender: TObject);
begin
if ClientSocket1.Active then
ClientSocket1.Socket.SendText('Hallo Server');
end;
Server:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;
So und jetzt möchte ich einen String vom Server an den Client schicken.
Und wenn ich das richtig verstehe findet der Server den Client automatisch?
Mfg MrScholz