我需要从客户端连接到服务器,但如果客户端无法连接到服务器,因为服务器处于脱机状态,我希望它显示一条消息,说明连接到服务器时出错。
我尝试的代码是:
try
form1.IdTCPClient1.Host := 'localhost';
form1.IdTCPClient1.Port := 55555;
form1.IdTCPClient1.Connect;
except
ShowMessage('Connection Unsuccessful');
end;
但是当我运行该程序时,它仍然给出了套接字错误#10061错误消息。
感谢您的帮助。
答案 0 :(得分:1)
当您在调试模式下运行应用程序时,您仍会看到所有异常(只要您没有明确告诉IDE忽略某些异常类型)。但是,当您通过自己运行应用程序(无需调试)时,您将看不到这些处理的异常。
您还应该处理异常类型...
try
form1.IdTCPClient1.Host := 'localhost';
form1.IdTCPClient1.Port := 55555;
form1.IdTCPClient1.Connect;
except
on E: EIdSocketError do begin
ShowMessage('Connection Unsuccessful: '+E.Message);
end;
end;