跳过错误提示

 

将HttpClient的SkipError属性设置为True,可以跳过错误提示,例如下面的代码:

 

Dim hc As New HttpClient("https://www.baidu.com/img/abc.jpg")

If hc.GetFile("c:\data\123.png") Then

    MessageBox.show("文件下载成功","提示")

Else

    MessageBox.show("文件下载失败","提示")

End If

 

由于文件不存在,系统会先出现404的错误提示,然后才会提示下载失败。

 

如果希望文件不存在时,跳过错误提示,而是直接提示下载失败,可将SkipError属性设置为True:


Dim hc As New HttpClient("https://www.baidu.com/img/abc.jpg")

hc.SkipError = True

If hc.GetFile("c:\data\123.png") Then

    MessageBox.show("文件下载成功","提示")

Else

    MessageBox.show("文件下载失败","提示")

End If

 

其他错误也可以跳过。


我们可以通过StatusCode属性,进一步细分错误原因,例如:

 

Dim hc As New HttpClient("https://www.baidu.com/img/abc.jpg")

hc.SkipError = True

If hc.GetFile("c:\data\123.png") Then

    MessageBox.show("文件下载成功","提示")

Else

    If hc.StatusCode = 0 Then

        MessageBox.show("无法连接到服务器!")

    ElseIf  hc.StatusCode = 404 Then

        MessageBox.show("要访问的资源不存在!")

    Else

        MessageBox.show("文件下载失败,StatuCode:" & hc.StatusCode,"提示!")

    End If

End If


本页地址:http://www.foxtable.com/mobilehelp/topics/0294.htm