• 获取北京时间


    方法一:

    [delphi]
     
    1. uses  
    2.    ComObj, DateUtils;  
    3.   
    4. function GetInternetTime: string;  
    5. var  
    6.   XmlHttp: OleVariant;  
    7.   datetxt: string;  
    8.   DateLst: TStringList;  
    9.   mon: string;  
    10.   timeGMT, GetNetTime: TDateTime;  
    11.   s: string;  
    12. begin  
    13.   XmlHttp := CreateOleObject('Microsoft.XMLHTTP');  
    14.   XmlHttp.Open('GET', 'http://open.baidu.com/special/time/', False);  
    15.   XmlHttp.Send;  
    16.   
    17.   datetxt := XmlHttp.GetResponseHeader('Date');   
    18.   datetxt := Copy(datetxt, Pos(',', datetxt) + 1, 100);  
    19.   datetxt := StringReplace(datetxt, 'GMT', '', []);  
    20.   datetxt := Trim(datetxt);  
    21.   if datetxt = '' then Exit;  
    22.   DateLst := TStringList.Create;  
    23.   while Pos(' ', datetxt) > do  
    24.   begin  
    25.     DateLst.Add(Copy(datetxt, 1, Pos(' ', datetxt) - 1));  
    26.     datetxt := Copy(datetxt, Pos(' ', datetxt) + 1, 100);  
    27.   end;  
    28.   DateLst.Add(datetxt);  
    29.   if DateLst[1] = 'Jan' then  
    30.     mon := '01'  
    31.   else if DateLst[1] = 'Feb' then  
    32.     mon := '02'  
    33.   else if DateLst[1] = 'Mar' then  
    34.     mon := '03'  
    35.   else if DateLst[1] = 'Apr' then  
    36.     mon := '04'  
    37.   else if DateLst[1] = 'Mar' then  
    38.     mon := '05'  
    39.   else if DateLst[1] = 'Jun' then  
    40.     mon := '06'  
    41.   else if DateLst[1] = 'Jul' then  
    42.     mon := '07'  
    43.   else if DateLst[1] = 'Aug' then  
    44.     mon := '08'  
    45.   else if DateLst[1] = 'Sep' then  
    46.     mon := '09'  
    47.   else if DateLst[1] = 'Oct' then  
    48.     mon := '10'  
    49.   else if DateLst[1] = 'Nov' then  
    50.     mon := '11'  
    51.   else if DateLst[1] = 'Dec' then  
    52.     mon := '12';  
    53.   s := DateLst[2] + '-' + mon + '-' + DateLst[0] + ' ' + DateLst[3];  
    54. //标准时间  
    55. //  ShowMessage(s);  
    56. // '/' or '-'  
    57.   timeGMT := StrToDateTime(DateLst[2] + '-' + mon + '-' + DateLst[0] + ' ' + DateLst[3]);  
    58.   //转换时区  
    59.   GetNetTime := IncHour(TimeGMT, 8);  
    60. //  ShowMessage(FormatDateTime('yyyy年mm月dd日 HH:NN:SS', GetNetTime));  
    61.   FreeAndNil(DateLst);  
    62.   Result:= FormatDateTime('yyyy年mm月dd日 HH:NN:SS', GetNetTime);  
    63. end;  

    方法二:

    [delphi] 
     
    1. procedure TForm1.FormCreate(Sender: TObject);  
    2. begin  
    3.   WebBrowser.Navigate('http://www.timedate.cn/worldclock/ti.asp');  
    4.   tmr1.Enabled := True;  
    5. end;  
    6.   
    7. procedure TForm1.WebBrowserStatusTextChange(Sender: TObject;  
    8.   const Text: WideString);  
    9. var  
    10.   strText: string;  
    11. begin  
    12.   strText := Text;  
    13.   if strText = '完成' Then  
    14.   begin  
    15.     Caption := WebBrowser.OleObject.Document.Body.Innertext;  
    16.     tmr1.Enabled := True  
    17.   end;  
    18. end;  
    19.   
    20. procedure TForm1.tmr1Timer(Sender: TObject);  
    21. begin  
    22.   tmr1.Enabled := False;  
    23.   WebBrowser.Refresh  
    24. end;  
  • 相关阅读:
    微信小程序中,block的作用
    关于小程序 页面中的生命周期函数
    MySQL -- 修改root密码
    Python3 -- time 获取任意前N天的日期
    linux -- 解决配置vim中文乱码的问题
    Linux -- iTem2 长时间保持会话(不断开)
    数据结构与算法 -- Python实现【归并排序算法】
    Git -- 目录
    Linux -- screen 命令
    python3 -- Linux 离线安装pip3方法
  • 原文地址:https://www.cnblogs.com/honeynm/p/3816743.html
Copyright © 2020-2023  润新知