德尔福如何检查数据快照服务器是否以编程方式运行

Question

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

德尔福XE 10.1AWS Amazon 上的服务器 (Win server 2012 R2(我的共享服务器上的数据库(Mysql(。客户端应用：赢/IO/安卓

此致敬意

Answer 1

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

使用 Delphi - Telnet 样式检查远程端口访问

所以，这是代码：

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