Question

delphi 如果判断程序和数据库服务器是否连接(高分)

小弟正在写一个和公司服务器交互的程序，如果公司服务器先开，自然不会报错，如果有人在用程序，但是服务器端还没有打开，就会报错，请问，这个错怎么用showmessage()表现出来，不用delphi内部报错
用的是ADO连接的，代码请具体点
回答正确的，还会把分值提高相赠，谢谢各位高手了
hhuayuan 359552813 谢谢两位这么积极，但是没用的，你们说的方法我用过了，当数据库关闭的时候delphi还是要内部报错，现在的问题是，当数据库是关闭状态时，怎么能让他直接运行我的提示，而他内部不报错

Answer 1

用try....except....end;

try
ado.Connected:=true;//连接成功，实行这里的代码
except
showmessage(); //出现错误或联系不成功，就执行这里的代码
end；
=============================
你把你写的程序编译好以后，然后打开你的程序你试一下看看。一定会执行
except
showmessage();
这段代码的，。，如果你是在编译器上执行的，那报错信息就是你所说的那种内部报错

Answer 2

还是要用try....except....end，关键是你要跟踪看看是哪部分代码报的错，然后用try把它括起来。

Answer 3

还是用线程来检测吧。这样似乎能满足你的要求。
不过我觉得下面两位的方法在一般时候也是能够报错的。

Answer 4

try
//连接数据库
except
showmessage('出错啦！');
end;