如何判断一个应用服务器是否是一个合法的服务器?

Question

try
  ARemoteServer.Connected :=True;
  Result := True;
except 
  Result := false;
end;

Answer 1

谢谢chechy,不过在调用ARemoteServer.Connected :=True;时,如果是一个非法的应用服务器,则肯定会弹出"RPC服务器无法使用"这样的Exception.

Answer 2

如果服务器有问题，确实会抛出例外，但是这个例外会被捕捉，从而不会在界面上显示出错误。
你出现这种情况，是由于Delphi的IDE造成的。如果你在外面而不是Delphi中运行程序，就不应该出现"RPC服务器无法使用"。