寻找北京时间的daytime server 200分(200分)

  • 主题发起人 主题发起人 cAkk
  • 开始时间 开始时间
C

cAkk

Unregistered / Unconfirmed
GUEST, unregistred user!
如题. 要求在chinanet上的.
 
另外,分出其中50分求问:
delphi里面有没有现成函数把NMDayTime1.DayTimeStr转化成systemtime ?
 
cAkk自己g自己???
 
在Delphi 中 可 以 方 便 地 显 示 系 统 时 间, 只 要 利 用DateToStr(Date) 及TimeToStr(Time) 函 数 即 可 实 现。 也 可 以 通 过 调 用WindowsAPI 函 数 来 实 现 对 系 统 时 间 的 设 置, 具 体 方 法 如 下:

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text:='1998-12-12 12:00 am';

end;

//可在运行时,也可在Edit1中重新键入日期,

但须注意格式。

procedure TForm1.Button2Click(Sender: TObject);

var

systemtime:Tsystemtime;

DateTime:TDateTime;

begin

DateTime:=StrToDateTime(Edit1.text);

DateTimeToSystemTime(DateTime,systemtime);

SetLocalTime(SystemTime);

GetLocalTime(SystemTime);//读取北京东8区时间

DateTime:=SystemTimeToDateTime(SystemTime);

Edit2.Text:=DateTimeToStr(DateTime);

end;

//Button2点激后,系统时间就变为Edit1中的时间了。

 
hubdog: 自相矛盾吧?
DateTime:=StrToDateTime(Edit1.text);
那么Edit1.text里面填的时间又从何而来? 我现在需要我的server的
时钟保持走时准确,所以需要随时和internet上的daytime server
校对时间.
 
不就是一个普通的连结吗?

cAkk你是不是有点小处糊涂?
 
>>不就是一个普通的连结吗?
是牙! 但是连到哪里呢? delphi自己例子里面的那个是国外的server,返回的是
国外的时间. 我希望能找一个国内的server,不知道国内哪台机器有这个服务?
 
Declaration
property DayTimeStr: string;

Description
The DayTimeStr property contains the date and time retrieved from the remote host.

Scope: Public
Accessibility: RunTime, ReadOnly

Prerequisites:
The Host property must be set to a valid internet daytime server.

Notes:
<font color=red>The format of the date and time will vary depending on the server queried. </font>

Warnings:
Calling the inherited connect method will cause the connection to fail.
//你的格式同server有关,得看到了实例才知道怎么转换
//好比是先有蛋还是先有鸡。
hubdog拱手作揖,很有礼貌地对 cAkk 说:在下哈巴,请多指教!
 
没找到,你到国家信息中心去看看
 
hubdog: 转换格式我到是会,其实就算是外国时间也没什么,转换一下就可以了,
只不过我要求高一点,想找个国内的server,当然,如果实在没有就算了.
好像国内的主机很少提供这个服务,还是老外热情啊! :-)

Energy: 信息中心地址是什么? 好像是什么cei....?

要不,我找一个端口扫描的黑客工具搜索一下? :-)
 
算了,凑合着用国外的把.
 
后退
顶部