WinMo> ASMX WebException - 如何获取详细信息？

Question

好的，我们已经有了一个应用程序，它由一个托管多个 ASMX Web 服务的网站和一个在 WinMo 6.1 上运行的调用 Web 服务的手持应用程序组成。

在办公室里一直在发展，一切都很完美。

现在我们已经在客户端安装了它，我们设置了所有服务器并安装了手持设备。然而，手持设备现在无法再连接到网络服务。

我在错误处理程序中添加了额外的代码，专门捕获 WebException 异常，并在日志记录中以不同的方式处理它们，以输出额外的信息（.Status 和 .Response）。

我正在获取状态，该状态返回 [7] 或 ProtocolError。但是，当我尝试读出 ResponseStream（使用 WebException.Response.GetResponseStream）时，它返回一个 CanRead 设置为 False 的流，因此我无法获得有关问题所在的更多详细信息。

所以我想我有两件事需要帮助...

a) 尝试从 WebException 中获取更多信息有什么帮助吗？

b) 什么可能导致 ProtocolError 异常？

由于客户端在现场有一个成熟的、支持登录的代理设置，事情变得更加复杂。这最初阻止了对该网站的所有访问，即使是通过浏览器也是如此。因此，我们在 WinMo 设备上的 HTTP 网络连接中输入登录详细信息。现在它可以正常访问网站了。

事实上，我什至可以很好地启动 Web 服务并从浏览器 (PocketIE) 调用方法。所以我知道设备能够通过 HTTP 正常查看网络服务。但当尝试从 .NET 应用程序调用它们时，它会抛出 ProtocolError [7]。

这是我的代码，它正在记录异常，但无法从 WebException 中读出 Response。

Public Sub LogEx(ByVal ex As Exception)
    Try
        Dim fn As String = Path.Combine(ini.CorePath, "error.log")
        Dim t = File.AppendText(fn)
        t.AutoFlush = True
        t.WriteLine(<s>===== <%= Format(GetDateTime(), "MM/dd/yyyy HH:mm:ss") %> =====<%= vbCrLf %><%= ex.Message %></s>.Value)
        t.WriteLine()
        t.WriteLine(ex.ToString)
        t.WriteLine()
        If TypeOf ex Is WebException Then
            With CType(ex, WebException)
                t.WriteLine("STATUS: " & .Status.ToString & " (" & Val(.Status) & ")")
                t.WriteLine("RESPONSE:" & vbCrLf & StreamToString(.Response.GetResponseStream()))
            End With
        End If
        t.WriteLine("=".Repeat(50))
        t.WriteLine()
        t.Close()
    Catch ix As Exception : Alert(ix) : End Try
End Sub

Private Function StreamToString(ByVal s As IO.Stream) As String
    If s Is Nothing Then Return "No response found."

    // THIS IS THE CASE BEING EXECUTED
    If Not s.CanRead Then Return "Unreadable response found."

    Dim rv As String = String.Empty, bytes As Long, buffer(4096) As Byte
    Using mem As New MemoryStream()
        Do While True
            bytes = s.Read(buffer, 0, buffer.Length)
            mem.Write(buffer, 0, bytes)

            If bytes = 0 Then Exit Do
        Loop

        mem.Position = 0
        ReDim buffer(mem.Length)
        mem.Read(buffer, 0, mem.Length)
        mem.Seek(0, SeekOrigin.Begin)
        rv = New StreamReader(mem).ReadToEnd()

        mem.Close()
    End Using

    Return rv.NullOf("Empty response found.")
End Function

提前致谢！

Answer 1

我无法从 WebException 类中获取更多信息。由于某种原因，GetResponseStream 总是返回不可读的流。

通过编写一个单独的小程序，我能够将问题范围缩小到代理身份验证，该程序只是尝试请求网页并读取响应并将其放入文本框中。

该程序返回了需要代理身份验证的响应。我觉得这真的很奇怪，因为我将代理信息放入设备上的网络连接设置中。我认为这适用于该连接上发出的所有网络流量；显然它仅适用于通过浏览器的流量，而不适用于应用程序请求。奇怪的。