请教一下 CreateObject("MSXML2.XMLHTTP") 网站关闭情况下如果出错处理

nbwww 发布于 2021-08-22 07:53， 1478 次点击

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()  这句已经出错
请教一下如何进行出错处理

2 回复

吹水佬2021-08-22 08:57

程序代码：

    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
    .......

nbwww2021-08-22 10:33

谢谢非常感谢！！