个人中心
gpt4 book ai didi

Lua获取网络时间（获取时间同步服务器的时间）

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 25 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章Lua获取网络时间（获取时间同步服务器的时间）由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

网络授时服务是一些网络上的时间服务器提供的时间，一般用于本地时钟同步。 授时服务有很多种，一般我们选择RFC-868。这个协议的工作流程是：（S代表Server，C代表Client） 。

S: 检测端口37 U: 连接到端口37 S: 以32位二进制数发送时间 U: 接收时间 U: 关闭连接 S: 关闭连接 协议非常简单，用TCP连接上后，服务器直接把时间发送回来。发送的是从1900年1月1日午夜到现在的秒数.

使用luasocket 实现的方案有很多种，Lua不一定是最简单的，选择只是出于个人兴趣。直接上代码吧 。

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
-----------------------------------------------------------------------------
-- Network Time Protocal
-- Author: ani_di
-----------------------------------------------------------------------------
package.cpath = package.cpath .. ';D:\\tools\\Lua\\5.1\\clibs\\?.dll;?.dll'
local socket = require "socket.core"
 
server_ip = {
     -- "129.6.15.29",
     "132.163.4.101",
     "132.163.4.102",
     "132.163.4.103",
     "128.138.140.44",
     "192.43.244.18",
     "131.107.1.10",
     "66.243.43.21",
     "216.200.93.8",
     "208.184.49.9",
     "207.126.98.204",
     "207.200.81.113",
     "205.188.185.33"}
 
function nstol(str)
   assert(str and #str == 4)
   local t = {str:byte(1,-1)}
   local n = 0
   for k = 1, #t do
     n= n*256 + t[k]
   end
   return n
end
 
-- get time from a ip address, use tcp protocl
function gettime(ip)
   print('connect ', ip)
   local tcp = socket.tcp()
   tcp:settimeout(10)
   tcp:connect(ip, 37)
   success, time = pcall(nstol, tcp:receive(4))
   tcp:close()
   return success and time or nil
end
 
function nettime()
   for _, ip in pairs(server_ip) do
     time = gettime(ip)
     if time then
       return time
     end
   end
end

代码原理不细说，非常简单。唯一值得一提的是socket库包含。最开始用的这句 require "socket" 。

在解释器中表现很好，但在用C中调用会找不到相应的module。错误提示 。

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
no field package.preload['socket']
no file '.\socket.lua'
no file 'F:\Projects\Lua\nettime\lua\socket.lua'
no file 'F:\Projects\Lua\nettime\lua\socket\init.lua'
no file 'F:\Projects\Lua\nettime\socket.lua'
no file 'F:\Projects\Lua\nettime\socket\init.lua'
no file 'D:\tools\Lua\5.1\lua\socket.luac'
no file '.\socket.dll'
no file '.\socket51.dll'
no file 'F:\Projects\Lua\nettime\socket.dll'
no file 'F:\Projects\Lua\nettime\socket51.dll'
no file 'F:\Projects\Lua\nettime\clibs\socket.dll'
no file 'F:\Projects\Lua\nettime\clibs\socket51.dll'
no file 'F:\Projects\Lua\nettime\loadall.dll'
no file 'F:\Projects\Lua\nettime\clibs\loadall.dll'.

网上也有好多类似的提问，大抵是没仔细看作者的Guide。显著的有这么一句 。

The other two environment variables instruct the compatibility module to look for dynamic libraries and extension modules in the appropriate directories and with the appropriate filename extensions.> 。

LUAPATH=/?.lua;?.lua LUACPATH=/?.dll;?.dll 。

至于"socket.core"，windows默认安装位于“\socket\core.dll”.

C宿主调用 。

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
#include <stdio.h>
#include <string.h>
#include <lua.h>
#include <lauxlib.h>
#include <lualib.h>
#include <time.h>
#include <Windows.h>
 
int load(lua_State* L, const char * func, unsigned int * utc) {
   lua_getglobal(L, func);
   if (lua_pcall(L, 0, 1, 0)) {
     printf ( "Error Msg pcall %s.\n" , lua_tostring(L, -1));
     return -1;
   }
 
   if (!lua_isnumber(L,-1)) {
     printf ( "time should be a number\n" );
     return -2;
   }
 
   *utc = lua_tonumber(L,-1);
   lua_pop(L, -1);
   return 0;
}
 
void TimetToFileTime( time_t t, LPFILETIME pft )
{
   LONGLONG ll = Int32x32To64(t, 10000000) + 116444736000000000;
   pft->dwLowDateTime = ( DWORD ) ll;
   pft->dwHighDateTime = ll >>32;
}
 
int main()
{
   lua_State* L = luaL_newstate();
   unsigned int utc = 0;
   luaL_openlibs(L);
  if (luaL_loadfile(L, "nettime.lua" ) || lua_pcall(L, 0, 0, 0)) {
     printf ( "Error Msg load %s.\n" , lua_tostring(L, -1));
     return -1;
   }
   do {
   if (load(L, "nettime" , &utc) == 0) {
     time_t tt = utc - 2208988800L;
     SYSTEMTIME st;
     FILETIME ft;
     TimetToFileTime(tt, &ft);
     if (FileTimeToSystemTime(&ft, &st))
     {
       printf ( "Today is: %d-%d-%d\n" , st.wYear, st.wMonth, st.wDay);
       SetSystemTime(&st);
     }
     break ;
   } else {
     puts ( "No network!" );
     Sleep(10000);
   }
   } while (1);
   lua_close(L);
   return 0;
}

  。

最后此篇关于Lua获取网络时间（获取时间同步服务器的时间）的文章就讲到这里了,如果你想了解更多关于Lua获取网络时间（获取时间同步服务器的时间）的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

25 4 0
文章推荐： lua中使用毫秒精度时间的方法
文章推荐： C语言模块回调Lua函数的两种方法
文章推荐： lua中使用packagepath解决多个项目的路径冲突问题
文章推荐： Lua获取系统时间和时间格式化方法及格式化参数
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com