标题:请教一下 CreateObject("MSXML2.XMLHTTP") 网站关闭情况下如果出错处理 ...
只看楼主
nbwww
Rank: 6Rank: 6
等 级:贵宾
威 望:10
帖 子:222
专家分:468
注 册:2021-1-9
结帖率:88.89%
已结贴  问题点数:20 回复次数:2 
请教一下 CreateObject("MSXML2.XMLHTTP") 网站关闭情况下如果出错处理
oXml = CreateObject("MSXML2.XMLHTTP")
cUrl = "HTTP://"+ALLTRIM(ip.ip)+":"+ALLTRIM(IP.端口)
oXml.Open("GET", cUrl, .F.,ALLTRIM(ip.用户名),ALLTRIM(ip.密码))
 oXml.Send()     &&到这里就出错了   
IF oXml.readyState==4 AND oXml.status==200
     &&正常执行   
ELSE
    messagebox("可能没有连接网络,请检查网络!",48,"错误提示!")
    RELEASE oXml
     RETURN
ENDIF


实际情况是到 oXml.Send()  这句已经出错  
请教一下如何进行出错处理
搜索更多相关主题的帖子: XMLHTTP 出错 处理 ip 网站 
2021-08-22 07:53
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:20 
程序代码:
    
    oHttp = NULL
    bError = .F.
    TRY 
        oHttp = CREATEOBJECT("MSXML2.XMLHTTP")
        oHttp.Open("GET", cUrl, .F.)
        oHttp.Send()
        bError = oHttp.readyState != 4
    CATCH
        bError = .T.
    ENDTRY
    IF bError
        RETURN
    ENDIF
    .......

2021-08-22 08:57
nbwww
Rank: 6Rank: 6
等 级:贵宾
威 望:10
帖 子:222
专家分:468
注 册:2021-1-9
得分:0 
谢谢   非常感谢!!
2021-08-22 10:33



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-506607-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.331468 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved