获取网络日期

本文整理自网络，侵删。

 获取网络日期
━━━━━━━━━━━━━━━━━━━━━━━━━━
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禁止webbrowser弹出窗口或者脚本错误

字符串截取小例子Delphi源代码

Delphi ado连接数据库

Delphi图像处理 -- 图像卷积

Delphi xe string与tstringbuilder的关系

Delphi edit1.gettextlen 获取编辑框字符数

Delphi idhttp1 获取网页代码

Delphi 十进制转十六进制

Delphi 显示简单图形

Delphi 反外挂，反破解思想代码

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

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