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

【问题标题】：Delphi how to check if Datasnap server is running programmaticallyDelphi如何检查Datasnap服务器是否以编程方式运行
【发布时间】：2018-03-24 11:55:25
【问题描述】：

我想知道（测试）以编程方式在连接我的客户端应用程序之前我的 Datasnap 服务器是否正在运行，以防止出现错误。有什么想法吗？

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

最好的问候

【问题讨论】：

标签： delphi-xe datasnap

【解决方案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;

【讨论】：