如何用TRY...except捕捉服务器连接异常?(在线等)

jihua163 2003-05-11 02:01:12
我在客户端指定服务器名如果错误如何及时提示用户,而不陷入死等?
...全文
94 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;

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧