Guten Tag,
Beim Server im OnClientdisconnect steht :
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
listbox1.Items.Clear;
disconnect.click;
ServerSocket1.Active := false;
ServerSocket1.Active := true;
disconnect.click;
end;
Und im Client
Delphi-Quellcode:
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Active := false;
timer1.Enabled := true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (ClientSocket1.Socket.Connected = false) then begin
ClientSocket1.Active := true;
end
else begin
timer1.Enabled := false;
end;
Wenn jetzt der Client das Programm über den Taskmanager schließt kommt der Fehler beim Server
---------------------------
Project1
---------------------------
Asynchronous socket error 10053.
---------------------------
OK
---------------------------
Und der User bleibt noch in der Liste obwohl das Programm geschlossen wurde.
Wie kann ich diese Fehler beheben? Hat evtl jemand einen Code Schnipsel?
Mit freundlichen Grüßen,
luckys41