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

當前位置:新錦江平臺:www.xjj7.com-電腦中國 > 編程 > 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)
森林龙江麻将精华版 (^ω^)MG财炮连连援彩金 河北20选5好运二 三肖中特开奖 (*^▽^*)MG百搭圣甲虫怎么玩容易爆分 香港六合彩 福彩欢乐生肖欢乐三怎么玩 (*^▽^*)MG黑暗故事试玩网站 (^ω^)MG银狼闯关 31选7中四个 体彩浙江6+1第 (*^▽^*)MG古墓丽影巨额大奖视频 (-^O^-)MG凯蒂小屋怎么玩 福彩25选7走势图 河内五分彩开奖号码双彩 亿客隆登录平台 (^ω^)MG急冻钻石爆分技巧