获取网络日期

本文整理自网络，侵删。

 获取网络日期
━━━━━━━━━━━━━━━━━━━━━━━━━━
function GetDate: TDate;
var
xml: OleVariant;
r: string;
p1, p2: Integer;
AYear, AMonth, ADay: string;
begin
try
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET', 'http://www.symental.com/time/date.asp', False);
xml.Send;
r := xml.responseText;
Result := StrToDateTimeDef(r, StrToDateTime('1900-01-01 00:00:00'));
except

end;
end;
 

相关阅读 >>

Delphi 在tedit中显示水印提示

Delphi firedac在后台线程中从mssql server检索记录的方法

Delphi调用游戏call代码

Delphi整理七（function and procedure）

Delphi 外挂编写的几个api函数

firemonkey listbox 的几个事件：拖动，点击，长按

Delphi 生成全球唯一标识符

Delphi 反转字符串方法2

Delphi 数字排序自动完成

Delphi 获取毫秒级时间戳

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » 获取网络日期