Delphi如何代码实现检查Datasnap服务器是否运行

可以尝试一下代码:




 //uses: IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient

function IsPortActive(AHost : string; APort : Word): boolean;
var
   IdTCPClient : TIdTCPClient;
begin
   Result := False;
   try
    IdTCPClient := TIdTCPClient.Create(nil);
    try
      IdTCPClient.Host := AHost;
      IdTCPClient.Port := APort;
      IdTCPClient.Connect;
      Result := True;
    finally
      IdTCPClient.DisposeOf;
    end;
   except
    //Ignore exceptions
 end;
end; 


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678