我尝试模拟一些连接问题(例如断线),并获得级联的错误窗口:
套接字错误10054
似乎块Except
从未执行过。如何正确解决这个问题?以及如何从TIdTCPClient
禁用错误窗口?
谢谢!
procedure TClient.onTimer(Sender: TObject);
begin
try
self.FunctionRead(0);
except
self.Timer.Enabled:= FALSE;
inc(self.cntErr);
end;
end;