Hi!
Obwohl du das mit der Suche auf jeden Fall gefunden hättest erklär ichs hier mal:
Also, du hast 2 Anwendungen einen Server (IdTCPServer) und einen Client(IdTCPClient).
der Server:
1)Neue Anwendung erstellen
2) idTCPServer1 aufs Formular ziehen
3) Button1 mit Caption "Los gehts
" aufs Formular
3) Button2 mit Caption "Und tschüss" aufs Formular
OnClick Ereignis vom Button1:
Delphi-Quellcode:
idTCPServer1.Active:=true;
idTCPServer1.DefaultPort:=80 //irgendeiner, der frei ist...
OnClick Ereignis vom Button2:
idTCPServer1.Active:=false;
Nun klickst du den IdTCPserver1 an und wählst unter "ereignisse" das OnExecute ereignis. (das wird aufgerufen, sobald ein Client den Server anwählt)
Hier steht dann folgendes:
Delphi-Quellcode:
with AThread.Connection do
begin
showmessage(ReadLN);
Disconnect;
end;
Alles speichern und weiter gehts
So nun der Client:
Also :
Neue Anwendung
Button1 mit Caption" Senden" aufs Formular
edit1 aufs Formular
IdTCPClient1 aufs Formular.
So, folgendes steht im OnClick vom Button1:
Delphi-Quellcode:
IdTcpClient1.host:=
localhost;
IdTcpClient1.Port:=80 ;
//der gleiche wie beim server..
IdTCPClient1.Connect;
IdTCPClient1.WriteLn(edit1.text);
IdTCPClient1.Disconnect;
So auch das jetzt speichern und server starten. Dann den Client starten.
Denk dran auf den Button1 vom server zu klicken und schon kanns losgehn!
Ich hoffe ich konnte dir helfen,
Schönen Gruss
PigfaceJoe