本文整理自网络，侵删。
uses ComObj, DateUtils;
procedure TForm1.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; while Pos(' ',datetxt)>0 do begin DateLst.Add(Copy(datetxt,1,Pos(' ',datetxt)-1)) ; datetxt := Copy(datetxt,Pos(' ',datetxt)+1,100); end ; DateLst.Add(datetxt) ; if DateLst[1] = 'Jan' then mon := '01' else if DateLst[1] = 'Feb' then mon := '02' else if DateLst[1] = 'Mar' then mon := '03' else if DateLst[1] = 'Apr' then mon := '04' else if DateLst[1] = 'Mar' then mon := '05' else if DateLst[1] = 'Jun' then mon := '06' else if DateLst[1] = 'Jul' then mon := '07' else if DateLst[1] = 'Aug' then mon := '08' else if DateLst[1] = 'Sep' then mon := '09' else if DateLst[1] = 'Oct' then mon := '10' else if DateLst[1] = 'Nov' then mon := '11' else if DateLst[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; 相关阅读 >>
Delphi 的 tstringbuilder 可以完美实现jave ,c#的tstringbuilder功能
Delphi的tclientsocket组件和tserversocket组件(c/s)说明
Delphi 如何判断clipboard剪切板中的内容的类型
更多相关阅读请进入《Delphi》频道 >>
