Ich habe gerade ein ganz großes Problem,
ich benutze die TidTCP Komponente und wenn mir der Server abstürtzt bekomme ich im Client den Fehler Connection reset by Peer.
Im Client führe ich den Code aus:
Delphi-Quellcode:
procedure TGame.Timer3Timer(Sender: TObject);
var
Read : String;
begin
if not IdTCPClient1.Connected then exit;
Read := IdTCPClient1.iohandler.ReadLn('', 5);
if Read<>'' then
begin
if unpackpacketkey(Read)='03' then
begin
Memo1.Lines.Add(unpackpacketcontent(HextoString(Read)));
end;
end;
end;
Dabei entsteht der Fehler.
Ich habe schon Tagelang Google und die
DP durchforstet, leider ohne Erfolg.
Im Server habe ich es schon beim Schließen mit Connection.Disconnect versucht, aber der Code wird ja bei einem Absturtz garnicht ausgeführt.
Kann ich irgendwie im Client auf einen Disconnect reagieren?