时间_取NTP服务器时间戳 超时不正确

SherAlex

  

子程序名	返回值类型	公开	备 注
时间_取NTP服务器时间戳	长整数型		通过NTP服务器获取网络时间！成功返回Unix时间戳，失败返回-1。
参数名	类 型	参考	可空	数组	备 注
NTP服务器	文本型				time.windows.com
精确到毫秒	逻辑型

变量名	类 型	静态	数组	备 注
NtpName	文本型
wsaData	套接字信息
hints	整数型
ai_list	整数型
ai_family	整数型
ai_socktype	整数型
ai_protocol	整数型
sock	整数型
ai_addrlen	整数型
ai_addr	整数型
dwBufLen	整数型
ntpBuf	整数型
iRes	整数型
readfds	整数型
timeout	字节集
nTimestampSeconds	整数型
nTimestampFractions	整数型
nlTime	长整数型

如果 (是否为空 (NTP服务器))
NtpName ＝ “ntp.aliyun.com”
NtpName ＝ NTP服务器
nlTime ＝ #INVALID_SOCKET
如果真 (WSAStartup (合并短整数 (1, 1), wsaData) ＝ #ERROR_SUCCESS )
hints ＝ LocalAlloc ( #LMEM_ZEROINIT, 32)  ' sizeof(addrinfo)
__set (hints, 4, #AF_UNSPEC )
__set (hints, 8, #SOCK_DGRAM )
__set (hints, 12, #IPPROTO_UDP )
' time.windows.com => 时间服务器
' 123 => 网络时间协议（NTP）
如果真 (getaddrinfo (NtpName, “123”, hints, 取指针整数_ (ai_list)) ＝ #ERROR_SUCCESS )
ai_family ＝ __get (ai_list, 4)
ai_socktype ＝ __get (ai_list, 8)
ai_protocol ＝ __get (ai_list, 12)
sock ＝ socket (ai_family, ai_socktype, ai_protocol)
如果真 (sock ≠ #INVALID_SOCKET )
ai_addrlen ＝ __get (ai_list, 16)
ai_addr ＝ __get (ai_list, 24)
dwBufLen ＝ 48  ' sizeof(NTPPacket)
ntpBuf ＝ LocalAlloc ( #LMEM_ZEROINIT, dwBufLen)
__set (ntpBuf, 0, 27)
iRes ＝ sendto1 (sock, ntpBuf, dwBufLen, 0, ai_addr, ai_addrlen)
如果真 (iRes ＝ dwBufLen)
readfds ＝ LocalAlloc ( #LMEM_ZEROINIT, 260)  ' sizeof(fd_set)
__set (readfds, 0, 1)
__set (readfds, 4, sock)
timeout ＝ { 3, 0, 0, 0, 0, 0, 0, 0 }  ' 3秒
iRes ＝ select1 (sock ＋ 1, readfds, #NULL, #NULL, 取指针_字节集型 (timeout))
如果真 (iRes ＞ 0)
memset (ntpBuf, 0, dwBufLen)
iRes ＝ recvfrom1 (sock, ntpBuf, dwBufLen, 0, ai_addr, ai_addrlen)
如果真 (iRes ＝ dwBufLen)
nTimestampSeconds ＝ __get (ntpBuf, 40)
nlTime ＝ 整数_有符号转无符号 (ntohl (nTimestampSeconds)) － 2208988800  ' 减去1970年1月1日到现在的秒数
如果真 (精确到毫秒)
nTimestampFractions ＝ __get (ntpBuf, 44)
nlTime ＝ nlTime × 1000
nlTime ＝ nlTime ＋ 整数_有符号转无符号 (ntohl (nTimestampFractions)) × 2e-010 × 1000


LocalFree (readfds)
LocalFree (ntpBuf)
closesocket (sock)
freeaddrinfo (ai_list)
LocalFree (hints)
WSACleanup ()
返回 (nlTime)

.版本 2<br /> <br /> .子程序 时间_取NTP服务器时间戳, 长整数型, 公开, 通过NTP服务器获取网络时间！成功返回Unix时间戳，失败返回-1。<br /> .参数 NTP服务器, 文本型, 可空, time.windows.com<br /> .参数 精确到毫秒, 逻辑型, 可空<br /> .局部变量 NtpName, 文本型<br /> .局部变量 wsaData, 套接字信息<br /> .局部变量 hints, 整数型<br /> .局部变量 ai_list, 整数型<br /> .局部变量 ai_family, 整数型<br /> .局部变量 ai_socktype, 整数型<br /> .局部变量 ai_protocol, 整数型<br /> .局部变量 sock, 整数型<br /> .局部变量 ai_addrlen, 整数型<br /> .局部变量 ai_addr, 整数型<br /> .局部变量 dwBufLen, 整数型<br /> .局部变量 ntpBuf, 整数型<br /> .局部变量 iRes, 整数型<br /> .局部变量 readfds, 整数型<br /> .局部变量 timeout, 字节集<br /> .局部变量 nTimestampSeconds, 整数型<br /> .局部变量 nTimestampFractions, 整数型<br /> .局部变量 nlTime, 长整数型<br /> <br /> .如果 (是否为空 (NTP服务器))<br />     NtpName ＝ “ntp.aliyun.com”<br /> .否则<br />     NtpName ＝ NTP服务器<br /> .如果结束<br /> nlTime ＝ #INVALID_SOCKET<br /> .如果真 (WSAStartup (合并短整数 (1, 1), wsaData) ＝ #ERROR_SUCCESS)<br />     hints ＝ LocalAlloc (#LMEM_ZEROINIT, 32)  ' sizeof(addrinfo)<br />     __set (hints, 4, #AF_UNSPEC)<br />     __set (hints, 8, #SOCK_DGRAM)<br />     __set (hints, 12, #IPPROTO_UDP)<br />     ' time.windows.com => 时间服务器<br />     ' 123 => 网络时间协议（NTP）<br />     .如果真 (getaddrinfo (NtpName, “123”, hints, 取指针整数_ (ai_list)) ＝ #ERROR_SUCCESS)<br />         ai_family ＝ __get (ai_list, 4)<br />         ai_socktype ＝ __get (ai_list, 8)<br />         ai_protocol ＝ __get (ai_list, 12)<br />         sock ＝ socket (ai_family, ai_socktype, ai_protocol)<br />         .如果真 (sock ≠ #INVALID_SOCKET)<br />             ai_addrlen ＝ __get (ai_list, 16)<br />             ai_addr ＝ __get (ai_list, 24)<br />             dwBufLen ＝ 48  ' sizeof(NTPPacket)<br />             ntpBuf ＝ LocalAlloc (#LMEM_ZEROINIT, dwBufLen)<br />             __set (ntpBuf, 0, 27)<br />             iRes ＝ sendto1 (sock, ntpBuf, dwBufLen, 0, ai_addr, ai_addrlen)<br />             .如果真 (iRes ＝ dwBufLen)<br />                 readfds ＝ LocalAlloc (#LMEM_ZEROINIT, 260)  ' sizeof(fd_set)<br />                 __set (readfds, 0, 1)<br />                 __set (readfds, 4, sock)<br />                 timeout ＝ { 3, 0, 0, 0, 0, 0, 0, 0 }  ' 3秒<br />                 iRes ＝ select1 (sock ＋ 1, readfds, #NULL, #NULL, 取指针_字节集型 (timeout))<br />                 .如果真 (iRes ＞ 0)<br />                     memset (ntpBuf, 0, dwBufLen)<br />                     iRes ＝ recvfrom1 (sock, ntpBuf, dwBufLen, 0, ai_addr, ai_addrlen)<br />                     .如果真 (iRes ＝ dwBufLen)<br />                         nTimestampSeconds ＝ __get (ntpBuf, 40)<br />                         nlTime ＝ 整数_有符号转无符号 (ntohl (nTimestampSeconds)) － 2208988800  ' 减去1970年1月1日到现在的秒数<br />                         .如果真 (精确到毫秒)<br />                             nTimestampFractions ＝ __get (ntpBuf, 44)<br />                             nlTime ＝ nlTime × 1000<br />                             nlTime ＝ nlTime ＋ 整数_有符号转无符号 (ntohl (nTimestampFractions)) × 2e-010 × 1000<br />                         .如果真结束<br /> <br />                     .如果真结束<br /> <br />                 .如果真结束<br />                 LocalFree (readfds)<br />             .如果真结束<br />             LocalFree (ntpBuf)<br />             closesocket (sock)<br />         .如果真结束<br />         freeaddrinfo (ai_list)<br />     .如果真结束<br />     LocalFree (hints)<br />     WSACleanup ()<br /> .如果真结束<br /> 返回 (nlTime)

是精易模块的一个子程序,假如服务器无法连接,比如 ntp1.ntsc.ac.cn

超时默认的是3秒,但是实际测试需要11秒左右才能超时,改那个3也没用,希望大佬出手修复一下


补充内容 (2026-3-7 23:14):
代码我只改了一下默认的服务器地址,测出来超时是没到那个select1,所以没生效,但是上面的代码又没有超时参数

SherAlex

代码我只改了一下默认的服务器地址,测出来超时是没到那个select1,所以没生效,但是上面的代码又没有超时参数

liuyue5086

你用精益模块命令——时间_取北京时间（）

tian89

我记得论坛里有一个人发过一个NTP你到论坛里搜索一下