我用SocketConnection连接服务器,如果服务器连接不成功的话就会有报错显示,代码如下:
begin
lcip := autocom_SOB.GetComputerForProgID('');
SocketConnection.address := lcip;
SocketConnection.Connected:=True;
end;
except
begin
MessageBox(Application.Handle,'后台数据库无法连接,请与网络管理员联系!','提示',MB_OK +MB_ICONSTOP);
Application.Terminate;
end;
end;
如果连接不成功的话会有假死或者等很长时间,我想减少它的连接超时时间,大概30S左右就表示连接失败,这么改,才能减短它的连接超时时间呢?
begin
lcip := autocom_SOB.GetComputerForProgID('');
SocketConnection.address := lcip;
SocketConnection.Connected:=True;
end;
except
begin
MessageBox(Application.Handle,'后台数据库无法连接,请与网络管理员联系!','提示',MB_OK +MB_ICONSTOP);
Application.Terminate;
end;
end;
如果连接不成功的话会有假死或者等很长时间,我想减少它的连接超时时间,大概30S左右就表示连接失败,这么改,才能减短它的连接超时时间呢?
解决方案 »
- 如何实现 frame 透明?
- 典型的难题,网上求助,查资料搞了N个星期,没有解决
- 我是新手,请问关于建登陆模块的代码问题
- 请问panel组件可以清空吗?那位大侠进来说说呀!!!
- 请问,如何才能做出一个不带按钮的MESSAGEBOX?
- ▁▂▃▄▅▆▇█龗龘龖【发帖醒目】端午节快乐!今晚节贴!【散分有理】龝龞龒█▇▆▅▄▃▂▁
- application.ProcessMessages的问题
- ADOCONNECTION TIMEOUT 问题
- 我快要疯了!更改了自定义控件的属性名称后,再引用时却还是以前的,怎么办?up有分!
- 游标怎么写?
- delphi 定时器
- 请大侠帮忙,关于delphi7 SQL的数据表数据插入insert问题
好像没有好的解决方法哦据说直接用IP连会比较快。