获取北京时间

时间：2014-07-01 21:49:22 阅读：374 评论：0 收藏：0 [点我收藏+]

标签：des blog http strong os art

方法一：

[delphi]

uses
ComObj, DateUtils;
function GetInternetTime: string;
var
XmlHttp: OleVariant;
datetxt: string;
DateLst: TStringList;
mon: string;
timeGMT, GetNetTime: TDateTime;
s: string;
begin
XmlHttp := CreateOleObject(‘Microsoft.XMLHTTP‘);
XmlHttp.Open(‘GET‘, ‘http://open.baidu.com/special/time/‘, False);
XmlHttp.Send;
datetxt := XmlHttp.GetResponseHeader(‘Date‘);
datetxt := Copy(datetxt, Pos(‘,‘, datetxt) + 1, 100);
datetxt := StringReplace(datetxt, ‘GMT‘, ‘‘, []);
datetxt := Trim(datetxt);
if datetxt = ‘‘ then Exit;
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‘;
s := DateLst[2] + ‘-‘ + mon + ‘-‘ + DateLst[0] + ‘ ‘ + DateLst[3];
//标准时间
// ShowMessage(s);
// ‘/‘ or ‘-‘
timeGMT := StrToDateTime(DateLst[2] + ‘-‘ + mon + ‘-‘ + DateLst[0] + ‘ ‘ + DateLst[3]);
//转换时区
GetNetTime := IncHour(TimeGMT, 8);
// ShowMessage(FormatDateTime(‘yyyy年mm月dd日 HH:NN:SS‘, GetNetTime));
FreeAndNil(DateLst);
Result:= FormatDateTime(‘yyyy年mm月dd日 HH:NN:SS‘, GetNetTime);
end;

方法二：

[delphi]

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser.Navigate(‘http://www.timedate.cn/worldclock/ti.asp‘);
tmr1.Enabled := True;
end;
procedure TForm1.WebBrowserStatusTextChange(Sender: TObject;
const Text: WideString);
var
strText: string;
begin
strText := Text;
if strText = ‘完成‘ Then
begin
Caption := WebBrowser.OleObject.Document.Body.Innertext;
tmr1.Enabled := True
end;
end;
procedure TForm1.tmr1Timer(Sender: TObject);
begin
tmr1.Enabled := False;
WebBrowser.Refresh
end;

获取北京时间,布布扣,bubuko.com

获取北京时间

标签：des blog http strong os art

原文地址：http://www.cnblogs.com/honeynm/p/3816743.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行