在客户端如何知道服务器是否运行?

Question

假如服务器没有开机,而在客户机上又运行了客户端程序,怎样让在客户端判断服务器是否运行?谢谢

Answer 1

try
  connect;
  showmessage('运行');
except
  showmessage('没运行');
end;

Answer 2

使用下面语句出错，请问应该放在哪里？
procedure Tform_b4.FormCreate(Sender: TObject);
begin
try
  connect;
  showmessage('运行');
except
  showmessage('没运行');
end;end;

Answer 3

procedure Tform_b4.FormShow(Sender: TObject);
begin
try
  connect;
  showmessage('运行');
except
  showmessage('没运行');
end;end;

Answer 4

代码没有错误，楼上的胡扯。你确定一下连接COM+的组件是否在FORM_B4里，或者含有连接COM+的组件在FORM_B4创建之前是否已经创建

Answer 5

错误信息如下　，说是未定义'connect'，请问我应该怎么定义。
[Error] sbmain_1.pas(357): Undeclared identifier: 'connect'

Answer 6

connect前面要加对象的，如
with aaa do
  begin
    connect;
  end;
或者 aaa.connect;

Answer 7

哪上面的aaa代表什么对象呢？

Answer 8

你是用那个控件connect,aaa就代表那个控件