【文件属性】:
文件名称:delphi _获取Internet时间
文件大小:199KB
文件格式:RAR
更新时间:2014-02-08 08:54:12
delphi _获取Internet时间
unit GetInternetTime;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj, DateUtils;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
function GetInternetTime:string;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
InternetTime:string;
begin
InternetTime:=GetInternetTime;
ShowMessage(InternetTime);
end;
function TForm1.GetInternetTime:string;
var
XmlHttp: Variant;
datetxt: string;
DateLst: TStringList;
mon: string;
timeGMT, GetNetTime: TDateTime;
s: string;
begin
XmlHttp := CreateOleObject('Microsoft.XMLHTTP');
XmlHttp.Open('Get', 'http://www.baidu.com/', False);
XmlHttp.send;
datetxt := XmlHttp.getResponseHeader('Date');
datetxt := Copy(datetxt, Pos(',', datetxt) + 1, 100);
datetxt := StringReplace(datetxt, 'GMT', '', []);
datetxt := Trim(datetxt);
【文件预览】:
Internet时间
----InternetTime.dproj(4KB)
----InternetTime.exe(451KB)
----__history()
--------Project1.dpr.~1~(253B)
--------Project1.dpr.~2~(253B)
--------InternetTime.dpr.~1~(250B)
----InternetTime.dpr(254B)
----InternetTime.res(5KB)
----InternetTime.identcache(241B)
----Project1.skincfg(85B)
----GetInternetTime.pas(2KB)
----InternetTime.skincfg(85B)
----GetInternetTime.dfm(580B)
----Project1.identcache(237B)
----GetInternetTime.dcu(7KB)
----InternetTime.dproj.local(2KB)
网友评论
- 还不错,能实现功能,自己再修改即可达到要求
- 好用,实现很简单,win7下会报一个小错,改了就好了
- 能成功获取,不过获取速度与网速有关,偶尔网速正常的情况下不能正常获取,原因未明。
- 能够获取,但是不稳定。很多时候获取的字符串是null,这个时候就会报错说是out of list。
- 成功,但是不知道原理!
- 正点,非常的好用
- 成功的获取了,感谢....... .
- 取到了,给力。
- 可以成功获取,不过网速一慢点就完蛋了
- 只是偶尔成功获取网络时间,大部分都是获取不到网络时间的!
- 经过局部修改,已实现我想要的功能,10分感谢!
- 成功获取了 谢谢!!!
- 有时成功,有时失败,看来不太稳定,最后还是采用了另外一种方式的ClientSocket方式来获取!
- 成功的获取了,感谢.......