Delphi获取网络时间

控件:idSNTP

属性:Host:cn.ntp.org.cn

方法:
NetTime: TDateTime;
NetTime := idSNTP1.DateTime;

下面有我自己做的函数,可以按照这个来操作。

function GetNetTime(): TDateTime;
var
  Sntp: TIdSNTP;
begin
  Result := Now;
  try
    try
      begin
        Sntp := TIdSNTP.Create(nil);
        Sntp.Host := 'ntp1.aliyun.com';
        Sntp.Active := True;
      end;
    except
      begin
        Sntp := TIdSNTP.Create(nil);
        Sntp.Host := 'pool.ntp.org';
        Sntp.Active := True;
      end;
    end;
    Sleep(10);
    Result := Sntp.DateTime;
  finally
    Sntp.Free;
  end;

end;

发表评论