美图欣赏 | 设为首页 | 加入收藏 | 网站地图

当前位置:电脑中国 > 编程 > delphi >

Delphi使用XmlHttp获取时间

2018-06-27 11:09|来源:未知 |作者:dnzg |点击:
usesComObj,DateUtils;  
procedureTForm1.Button1Click(Sender:TObject);  
var  
XmlHttp:Variant;  
datetxt:String;  
DateLst:TStringList;  
mon:String;  
timeGMT,GetNetTime:TDateTime;  
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);  
DateLst:=TStringList.Create;  
whilePos('',datetxt)>0do  
begin  
DateLst.Add(Copy(datetxt,1,Pos('',datetxt)-1));  
datetxt:=Copy(datetxt,Pos('',datetxt)+1,100);  
end;  
DateLst.Add(datetxt);  
ifDateLst[1]='Jan'then  
mon:='01'  
elseifDateLst[1]='Feb'then  
mon:='02'  
elseifDateLst[1]='Mar'then  
mon:='03'  
elseifDateLst[1]='Apr'then  
mon:='04'  
elseifDateLst[1]='Mar'then  
mon:='05'  
elseifDateLst[1]='Jun'then  
mon:='06'  
elseifDateLst[1]='Jul'then  
mon:='07'  
elseifDateLst[1]='Aug'then  
mon:='08'  
elseifDateLst[1]='Sep'then  
mon:='09'  
elseifDateLst[1]='Oct'then  
mon:='10'  
elseifDateLst[1]='Nov'then  
mon:='11'  
elseifDateLst[1]='Dec'then  
mon:='12';  
timeGMT:=StrToDateTime(DateLst[2]+'-'+mon+'-'+DateLst[0]+''+DateLst[3]);  
GetNetTime:=IncHour(TimeGMT,8);  
self.Caption:=FormatDateTime('yyyy年mm月dd日HH:NN:SS',GetNetTime);  
end;
(责任编辑:dnzg)
新锦江娱乐 关闭广告
新锦江娱乐 关闭广告