线程和 WebRequest 的问题

Question

我确定还有其他一些关于此的线程，但我认为我需要一个用于假人或其他东西的线程。

我的问题：我想通过 WebRequest 获取一个值并显示它。我的代码如下所示：

Foo = New Fetcher()
AddHandler Foo.HasResult, AddressOf Me.FetchValue

Private Sub FetchValue()
    If Foo.HasErrors Then
        MyTextBlock.Text = "ERROR"
        Exit Sub
    End IF
    MyTextBlock.Text = Foo.Value 'Here it crashes.....
End sub

Public Class Fetcher
    Public Event HasResult(ByVal F As Fetcher)
    Public WasError As Boolean = True
    Public Value As String = ""

    Public Sub New()
        Dim request As WebRequest = WebRequest.Create("theurl")
        request.BeginGetResponse(New AsyncCallback(AddressOf Me.GetValueAnswer), request)
    End Sub

    Private Sub GetValueAnswer(asynchronousResult As IAsyncResult)
        Dim request As HttpWebRequest = asynchronousResult.AsyncState
        If Not request Is Nothing Then
            Try
                Dim response As WebResponse = request.EndGetResponse(asynchronousResult)
                Using stream As Stream = response.GetResponseStream()
                    Using reader As New StreamReader(stream, System.Text.Encoding.UTF8)
                        Dim responseString = reader.ReadToEnd()
                        Me.Value = ResponseString
                        Me.WasError = False
                    End Using
                End Using
            Catch(Exception Ex)
                Me.WasError = True 'Not needed in this example, i know...
            End Try
        End If
        RaiseEvent HasResult(Me)
    End Sub
End Class

这有点简化，但也是同样的错误。 在带有注释“这里它崩溃了.....”的行中，我得到一个异常“应用程序调用了一个为不同线程编组的接口。（来自 HRESULT 的异常：0x8001010E（RPC_E_WRONG_THREAD））” 当我探索 Foo.

那么，正确的做法是什么？

（是的；如果我输入了错误的 URL 或其他内容以使“WasError”为真，当我尝试将文本块设置为“ERROR”时，我当然会遇到同样的异常）

编辑：经过一些非常强烈的话语、血汗和泪水，我想出了对 FetchValue() 的更改，现在它终于起作用了....

If Me.MyTextBlock.Dispatcher.HasThreadAccess Then
    If Foo.HasErrors Then
        MyTextBlock.Text = "ERROR"
        Exit Sub
    End IF
    MyTextBlock.Text = Foo.Value
Else
    Me.MyTestBlock.Dispatcher.RunAsync(Core.CoreDispatcherPriority.Normal, _
        AddressOf Me.FetchValue)
End If

我怎么会在 else 的行上收到一条警告，上面写着“因为没有等待此调用，所以在调用完成之前继续执行当前方法。考虑将 Await 运算符应用于调用结果。”

关于如何消除此警告的任何想法？

Answer 1

使用HttpClient 和Async/Await 做到这一点要容易得多。

我的 VB 生锈了，但这里是：

Public Class Fetcher
    Public Result As Task(of String)

    Public Sub New()
        Dim client As HttpClient = New HttpClient()
        Result = client.GetStringAsync("theurl")
    End Sub
End Class

用法：

Foo = New Fetcher()
Try
    Dim data As String = Await Foo.Result
    MyTextBlock.Text = data
Catch(Exception Ex)
    MyTextBlock.Text = "ERROR"
End Try

请注意，Task<T> 类型处理返回值、错误条件和完成通知。因此，如果您将HttpClient 与Task<T> 一起使用，那么在您的Fetcher 类中发布的所有代码几乎都是不必要的。如果您的 Fetcher 类没有做任何其他事情，那么您可能应该完全删除它：

Dim client As HttpClient = New HttpClient()
Try
    MyTextBlock.Text = Await client.GetStringAsync("theurl")
Catch(Exception Ex)
    MyTextBlock.Text = "ERROR"
End Try