Delphi使用XmlHttp获取时间



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高级数据类型:集合类型
下一篇: Delphi下ListView加载百万数据
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: Delphi xmlhttp 时间
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭