从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 获取那个任务管理器中最后一页的用户栏的用户信息 各位delphi高手有没有delphi+sql2K开发的一些小软件??? 请举例说明sender参数的作用 如何将JPG格式的图像放大和缩小,请高手指点!!!! 请问DBAdvStringGrid1的用法(是TMS包中的GRID) 关于数据的物理顺序?逻辑顺序?排序?顺序? 急:!!如何从文件读取字节数不定的二进制数据 急求DSpack安装问题 我需要一个能够在窗体上任意两点之间画箭头的控件,请各位见过的告诉我在那里下载 请问一个sql查询的问题 求一个三层开发的实例 怎么把INI中的内容读到memo中呢
网上直接搜索的