Delphi如何检查Datasnap服务器是否以编程方式运行

Question

如果我的Datasnap服务器在连接我的客户端应用程序之前正在运行，我试图以编程方式<测试 以防止出错。一些想法？

Delphi XE 10.1 AWS amazon上的服务器（Win server 2012 R2） 我的共享服务器上的数据库（Mysql）。 客户端应用程序：Win / IOs / Android

最好的问候

Answer 1

我找到了这个，并为我工作：

Check remote port access using Delphi - Telnet style

所以，这是代码：

//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;