TServer(/Client)Socket Error...

[timmy443]

Hallo,

ich habe angefangen mich mit TCP/Ip Übertragungen zu beschäftigen und habe ein kleines Programm geschrieben, was mit TServerSocket und TClientSocket den Inhalt eines Memo-Feldes übertragen soll.

Folgende Prozeduren verwende ich:

Client:
VerbindenButton: ClientSocket1.Host:=edit1.Text; //(Ip-Adresse des Servers)
ClientSocket1.Port:=9999;
clientSocket1.Active:=true;

ClienSocketConnect: ClientSocket1.Socket.SendText(Form1.Memo2.text);

Server:
EmpfangButton: ServerSocket1.Port:=9999;
ServerSocket1.Active:=true;

ServerSocket1ClientRead:
Form1.Memo1.text:=ServerSocket1.Socket.ReceiveText ;

Erst muss der Server "Auf Empfang schalten", dann der Client seinen Verbinden-Button drücken.
Das Problem: Der Client erhält immer die Fehlermeldung: Asynchoner Download Error... Was mache ich hier falsch?
Wär cool, wenn mir jemand helfen könnte...!