also du musst beim TClientSocket das
OnConnect-Event folgendermaßen ausrüsten:
Delphi-Quellcode:
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Socket.SendText('nick:aenogym');
end;
(OnConnect wird ausgeführt, sobald die verbindung steht. OnConnecting wird ausgeführt, nachdem der Server gefunden wurde, aber noch bevor die verbindung aufgebaut ist)
im server musst du dann im OnClientConnect folgendes machen:
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var s: string;
begin
//wenn wir jetzt sofort daten holen, kann es sein, dass der client noch gar nicht soweit ist.
//ReceiveText() gibt also einen leeren string zurück.
//mit der while-schleife wird erreicht, dass ReceiveText() so oft ausgeführt wird, bis
//endlich daten angekommen sind. das application.ProcessMessages() dient dazu, dass
//unser programm während der schleife nicht "einfriert"
s := socket.ReceiveText();
while s = '' do
begin
s:=socket.receivetext();
application.ProcessMessages();
end;
showmessage(s);
end;
viel erfolg,
aeno
edit: server-code korrigiert