如何用TRY...except捕捉服务器连接异常？（在线等）

jihua163 2003-05-11 02:01:12

我在客户端指定服务器名如果错误如何及时提示用户，而不陷入死等？

...全文

139 7 打赏收藏举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

888888888888 2003-05-11

打赏
举报

关注

888888888888 2003-05-11

打赏
举报

关注

madyak 2003-05-11

打赏
举报

按上面的代码编译后,直接运行EXE文件就好了!

jihua163 2003-05-11

打赏
举报

那客户端中已经安装了delphi，有的资料上说：只需将客户端的.exe文件拷贝到
客户机上就可以运行与服务器相对连。为什么我们这个连主界面都不出现，直接出现
delphi调试界面？

blueshu 2003-05-11

打赏
举报

你说的是在调试状态下吧
执行。exe应就是except部分了

jihua163 2003-05-11

打赏
举报

可他在提示之前先说服务器不可用出现异常，后出现EXCEPT 的提示如何解决？

blueshu 2003-05-11

打赏
举报

是不是要这个？
try
data.adoconnection1.connected:=true;
except
Application.MessageBox('数据库服务器登录失败，请检查：'+#13#10#13#10+
'1.输入是否正确。'+#13#10+
'2.数据库服务是否正常运行。'+#13#10+
'3.网络连接是否正确。','错误',MB_OK);
application.Terminate;
end;