Question

Delphi 获取网络时间 如何忽略报错问题?

Function GetInternetTime():TDateTime;
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);
Result:=GetNetTime
end;

如果 XmlHttp.send;
不成功 会提示 下载指定资源失败
如何让它不提示?

Answer 1

件）丢失所致，我给您翻译一下错误信息吧：

Class TComPort not found. lgnore the error and continue?
无法找到类TComPort，忽略这个错误并继续？
Class TdsStatusBar not found. lgnore the error and continue?
无法找到类TdsStatusBar，忽略这个错误并继续？
NOTE:lgnoring the error may cause components to be deleted or property values to be lost.
注意：忽略这个错误可能导致组件被删除或属性值丢失。
Class TComPort not found. lgnore the error and continue?
无法找到类TComPort，忽略这个错误并继续？
NOTE:lgnoring the error may cause components to be deleted or property values to be lost.
注意：忽略这个错误可能导致组件被删除或属性值丢失。

因为您说这个程序是可以下载的，我想可能他的源代码中使用了一些自定义控件，或者您的Delphi安装不完整，或者是他给出的源代码中缺少这两个类。您可以到您下载这个代码的网站看一下有没有相应的信息。

如果您还有疑问，您可以补充问题。谢谢。

====================================================
对问题补充的答复：

很抱歉我这里没有您需要的程序。

我也到网上找了一下，这个文件似乎的确只在Delphi 5 中。并且，您的组件安装步骤也没错。

您给出的控件包中的文件列表来看，这个文件包中应该包含了这个组件的源文件（dpr的工程文件和pas的源代码），您可以尝试用Delphi打开这个工程然后重新编译一下试试。

另外我比较感兴趣的是这个DFSStatusBarReg.pas文件，因为文件名中包含了“Reg”这个词（Register），您可以看一下这个文件的内容。

希望对您有帮助。

Answer 2

try
XmlHttp.send;
except
exit;
end;
就可以拦截的啊
不过为什么要用'Microsoft.XMLHTTP呢？IDHTTP就不错啊

追问

那你可以帮我改写一下吗 我是从网上搜来的
Try
except没有用 照样提示 至少我上次是那样的

追答

不会啊，你是在调试模式下运行的吧，我特意测试了下，可以的