从Internet时间服务器获取标准格林尼治时间 如题。最好是调试成功的! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 由于本机系统时间不准确,所以决定从Internet 时间服务器获取标准时间来校正 系统时间,说干就干。程序设计步骤如下:1、 新建一个工程;2、 在窗体上放一个TEdit控件和一个TClientSocket(在Internet页下)控件。TEdit用来显示取得的格林尼治时间转化成北京时间后的时间,TClientSocket用来从Internet 时间服务器获取标准的格林尼治时间;3、 程序代码如下:procedure TForm1.FormCreate(Sender: TObject);begin ClientSocket1.Host :='tick.usno.navy.mil'; // 美国海军天文台; ClientSocket1.Port :=13; ClientSocket1.Open;end; procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);var TempTime: TDateTime; hh,mm,ss,ms: word; sTime : string;begin sTime := Socket.ReceiveText; // 取得格林尼治时间; sTime:=Copy(sTime,12,8); // 取得时间部分; DecodeTime(StrToTime(sTime),hh,mm,ss,ms); hh:=(hh+8) mod 24; // 转化成北京时间; TempTime:=EncodeTime(hh,mm,ss,ms); Edit1.Text :=TimeToStr(TempTime);end;网上直接搜索的 http://www.23book.net/SoftwareDev/Delphi/36074.htm Timage控件的问题 热烈庆祝俺女儿来到人世,感谢那些帮我起名字的人 delphi7编译时,凡是遇到使用pointer的地方 就会 报unsafe type 提示,怎么去掉?? 请教关于Delphi中的DBcombox的问题,急! 怎样加密文件夹?即当点击文件夹时,要求输入密码,当然也有相应的准确的解密。 请问有关于这样字符串的函数吗? 请问JPG图形的缩放(W和H变小变大) 怎样实现程序中的取消功能 赤木晴子悄悄说:我可以问一个问题么???(脸红...) 谁知道visi broker 4.5.1 的注册码? 求一个三层开发的实例 怎么把INI中的内容读到memo中呢
网上直接搜索的