美圖欣賞 | 設為首頁 | 加入收藏 | 網站地圖

當前位置:電腦中國 > 編程 > 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)
足彩半全场是什么意思