网络通信/分布式开发
从时间服务器获取时间总是不对，高手指点
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区var
wsaData:tWSADATA;
addr:sockaddr_in;
ulTime:ulong;
ulTemp:^ulong;
s:tSOCKET;
nRtn:integer;
iResult,iRead:integer;
su:array[0..3] of Byte;
sut:^Byte;
t:integer;
begin
ulTime:=0;
if (FWSAStartup(MAKEWORD(2,2),wsaData)<>0) then
begin
showmessage('初始化错误!');
end;
s:=FOpenSocket(AF_INET,SOCK_STREAM,0);
if (s=INVALID_SOCKET) then
begin
showmessage('socket初始化错误!');
end;
FillChar(addr,0,sizeof(sockaddr_in));
addr.sin_family := AF_INET;
addr.sin_port := fhtons(IPPORT_TIMESERVER);
addr.sin_addr.s_addr := finet_addr('129.6.15.29');
sut:=@ulTemp;
if (FConnect(s,addr,sizeof(addr))=0)
then
begin
iRead:=0;
iResult:=0;
while true do
begin
iResult:=recv(s,sut,4-iRead,0);
iRead:=iRead+iResult;
inc(sut,iRead);
if(iResult < 1) then break;
if(iRead>=4) then break;
end;
end;
FWSACleanup();
ulTime:=ulTemp^;
ulTime:=ntohl(ulTime);
edit1.Text:=inttostr(ulTime div 21536000);
wsaData:tWSADATA;
addr:sockaddr_in;
ulTime:ulong;
ulTemp:^ulong;
s:tSOCKET;
nRtn:integer;
iResult,iRead:integer;
su:array[0..3] of Byte;
sut:^Byte;
t:integer;
begin
ulTime:=0;
if (FWSAStartup(MAKEWORD(2,2),wsaData)<>0) then
begin
showmessage('初始化错误!');
end;
s:=FOpenSocket(AF_INET,SOCK_STREAM,0);
if (s=INVALID_SOCKET) then
begin
showmessage('socket初始化错误!');
end;
FillChar(addr,0,sizeof(sockaddr_in));
addr.sin_family := AF_INET;
addr.sin_port := fhtons(IPPORT_TIMESERVER);
addr.sin_addr.s_addr := finet_addr('129.6.15.29');
sut:=@ulTemp;
if (FConnect(s,addr,sizeof(addr))=0)
then
begin
iRead:=0;
iResult:=0;
while true do
begin
iResult:=recv(s,sut,4-iRead,0);
iRead:=iRead+iResult;
inc(sut,iRead);
if(iResult < 1) then break;
if(iRead>=4) then break;
end;
end;
FWSACleanup();
ulTime:=ulTemp^;
ulTime:=ntohl(ulTime);
edit1.Text:=inttostr(ulTime div 21536000);
...全文
相关推荐
获取淘宝服务器时间
快速获取目标网站服务器时间，让你在参加抢拍秒杀的时候，第一时间与网站同步。
淘宝服务器时间获取更改本地时间
本程序主要用于调整本地系统的时间，同步淘宝服务器的时间，校对后可用于秒杀等活动，点击运行即可。
js获取服务器的时间（不是本地时间哦）
想要知道对方的服务器时间怎么办？这段代码就可以轻松实现啦。在chrome的console中输出这段代码就会返回一个时间，是服务器时间哦！
获取NTP服务器时间，更改本地时间
通过获取NTP服务器时间，更改本地时间，简单、方便、适用
Lua获取网络时间（获取时间同步服务器的时间）
主要介绍了Lua获取网络时间（获取时间同步服务器的时间）,本文使用Lua作为客户端获取网络上的一些授时服务提供商的时间,需要的朋友可以参考下
