Delphi 获取网络时间的两种方法

第一种方法，通过indy 控件来获取。

{

可用时间服务器

cn.pool.ntp.org

203.107.6.88

time.pool.aliyun.com

ntp1.aliyun.com

ntp2.aliyun.com

ntp3.aliyun.com

ntp4.aliyun.com

ntp5.aliyun.com

ntp6.aliyun.com

ntp7.aliyun.com

time1.aliyun.com

time2.aliyun.com

time3.aliyun.com

time4.aliyun.com

time5.aliyun.com

time6.aliyun.com

time7.aliyun.com

}

uses

  IdSNTP,

  ......

function GetNetTime(host : string): TDateTime;

var

  Sntp: TIdSNTP;

begin

  try

    Sntp := TIdSNTP.Create(nil);

    try

      Sntp.Host := host;

      Sntp.Active := True;

      Result := Sntp.DateTime;

      Sntp.Active := False;

      Sntp.Disconnect;

    except on E: Exception do

      begin

         Sntp.Active := False;

         Sntp.Disconnect;

         Exit(0);

      end;

    end;

  finally

    Sntp.Free;

  end;

end;

第二种方法，通过HTTP控件获取。

//淘宝正常返回：{"api":"mtop.common.getTimestamp","v":"*","ret":["SUCCESS::接口调用成功"],"data":{"t":"1613698172343"}}

//苏宁正常返回：{"sysTime2":"2021-02-19 10:00:31","sysTime1":"20210219100031"}

//京东正常返回：{"serverTime":1613702035917}

function GetRealTime1: TDateTime;

const

  TB_HOST = 'http://api.m.taobao.com/rest/api3.do?api=mtop.common.getTimestamp';

  SN_HOST = 'http://quan.suning.com/getSysTime.do';

  JD_HOST = 'https://a.jd.com//ajax/queryServerData.html';

var

  HTTP    : TNetHTTPClient;

  TM      : TMemoryStream;

  B       : TBytes;

  S       : string;

  jo      : TJSONObject;

  jv      : TJSONString;

  FormatSettings: TFormatSettings;

  T : TDateTime;

  i : Int64;

begin

  Result := 0;

  TM   := TMemoryStream.Create;

  HTTP := TNetHTTPClient.Create(nil);

  try

    HTTP.ConnectionTimeout := 2000;  //连接超时设置为 2秒

    HTTP.ResponseTimeout   := 2000;     //读取超时设置为 2秒

    HTTP.Get(TB_HOST,TM);     //首先检查 淘宝网络

    SetLength(B,TM.Size);

    TM.Position := 0;

    TM.Read(B[0],TM.Size);

    S := TEncoding.UTF8.GetString(B);  //取得实际的时间字符串

    //解析字符串

    jo := TJSONObject.ParseJSONValue(S) as TJSONObject;

    try

      if jo.TryGetValue('data',jo) then

       if jo.TryGetValue('t',jv) then

          begin

            S := jv.Value;

            i := StrToInt64Def(S,0) div 1000;

            //相差8个小时

            T := IncHour(UnixToDateTime(i), 8);

            Exit(T);

          end;

    finally

      if jo <> nil then

         jo.Free;

    end;

    //2. 解析京东

    HTTP.Get(JD_HOST,TM);     //京东

    SetLength(B,TM.Size);

    TM.Position := 0;

    TM.Read(B[0],TM.Size);

    S := TEncoding.UTF8.GetString(B);  //取得实际的时间字符串

    //解析字符串

    jo := TJSONObject.ParseJSONValue(S) as TJSONObject;

    try

      if jo.TryGetValue('serverTime',jv) then

        begin

          S := jv.Value;

          i := StrToInt64Def(S,0) div 1000;

          //相差8个小时

          T := IncHour(UnixToDateTime(i), 8);

          Exit(T);

        end;

    finally

      if jo <> nil then

         jo.Free;

    end;

    //如果解析失败等，则尝试苏宁

    HTTP.Get(SN_HOST,TM);     //二次检查 苏宁网络

    SetLength(B,TM.Size);

    TM.Position := 0;

    TM.Read(B[0],TM.Size);

    S := TEncoding.UTF8.GetString(B);  //取得实际的时间字符串

    jo := TJSONObject.ParseJSONValue(S) as TJSONObject;

    try

      if jo.TryGetValue('sysTime2',jv) then

       begin

        S := jv.Value;

        FormatSettings := TFormatSettings.Create;

        FormatSettings.ShortDateFormat := 'YYYY-MM-DD';

        FormatSettings.LongDateFormat  := 'YYYY-MM-DD';

        FormatSettings.DateSeparator   := '-'  ;   //日期分隔符

        FormatSettings.LongTimeFormat  := 'hh:mm:ss';

        FormatSettings.ShortTimeFormat := 'hh:mm:ss';

        FormatSettings.TimeSeparator   := ':';   //时间分隔符

        try

          Result := StrToDateTime(S,FormatSettings);

        except on E: Exception do

          Result := 0;

        end;

       end;

    finally

      if jo <> nil then

         jo.Free;

    end;

  finally

    HTTP.Free;

    TM.Free;

  end;

end;

两种方法对比，我是在Berlin版本上使用，经过测试，第一种方法经常会造成程序死机，无法正确读取到时间，第二种方法稳定可靠。是否和Indy版本有关就不知道了。

————————————————

原文链接：https://blog.csdn.net/sensor_WU/article/details/113865793