Hallo DPler
schönes Forum , das ihr da habt
ich , als Anfänger , bin grad dabei ein einfaches ChatProgramm zu schreiben ..
heute , als ich es schon zum 3. mal neugeschrieben habe , ist mir was aufgefallen ..
Client :
Code:
..
procedure TForm1.Button1Click(Sender: TObject);
begin
TCPClient.Connect(60);
end;
procedure TForm1.TCPClientConnected(Sender: TObject);
begin
memo1.Lines.Add('Connected');
end;
procedure TForm1.TCPClientDisconnected(Sender: TObject);
begin
memo1.Lines.Add('Disconnected');
end;
end.
Server :
Code:
...
procedure TForm1.TCPServerConnect(AThread: TIdPeerThread);
begin
memo1.Lines.Add('connected');
end;
procedure TForm1.TCPServerDisconnect(AThread: TIdPeerThread);
begin
memo1.Lines.Add('disconnected');
end;
end.
diese Zeilen sind das einzige , was ich gescriptet habe und der
INDY TCPClient bzw Server kommt insgesammt nur einmal vor (Client hat Client;Server hat Server) , sonst NICHTS...
was mir aufgefallen ist:
wenn ich mit dem Client zum Server connecte , meien beide , dass der Client connected ist , der Server meint noch in der selben Sekunde (oder weniger) , dass der Client disconected ist .. ABER der Client meint , dass die Verbindung noch BESTEHT ..
an meinen Scripts kann es ja irgendwie nicht liegen , da sich der TimeOut beim Client (TCPClient.Connect(60)) ja nur auf das Connecten bezieht und außerdem er selber meint , dass die Verbindung noch da ist ..
*Hilfe brauch*
CU