Hi
Ich schreibe momentan an einem Chat. Mein Problem ist, dass ich einen
Fehler bekomme sobald ich Disconnecte.
TCPClient meldet dann "Not Connected". Je länger ich mit dem Disconnect
warte desto mehr geht das Programm in den Timer desto mehr "Not Connected"
fehler werden angezeigt.
Delphi-Quellcode:
procedure TClientForm.TCPClientConnected(Sender: TObject);
begin
Messages.Lines.Add('Connected to '+ TCPClient.Host);
TCPClient.WriteLn(ClientName);
TBConnect.Down := True;
TBConnect.Hint := 'Disconnect from Server';
Timer.Enabled := True;
end;
Delphi-Quellcode:
procedure TClientForm.TimerTimer(Sender: TObject);
var
Msg : String;
begin
if TCPCLient.Connected = True then begin
Msg := TCPClient.ReadLn('', 5);
if Msg <> '' then begin
if Msg[1] <> '@' then begin
Messages.Lines.Add(Msg);
end;
end;
end;
end;
Delphi-Quellcode:
procedure TClientForm.TCPClientDisconnected(Sender: TObject);
begin
Timer.Enabled := False;
Messages.Lines.Add('Connection closed');
TBConnect.Hint := 'Connect to Server';
end;
(Dies sind nur einige(Wichtige?) ausschnitte aus dem Programm)
Ich hoffe ihr könnt mir helfen denn ich bin mit meinem Latein am ende.
Mfg