将迭代转换为异步

Question

我将返回大量的DataTable行，对其进行迭代并将每行的值推送到Web服务，然后该Web服务将返回响应代码（字符串）。 如果Web服务中发生任何错误，则整个过程将停止并显示错误：

Protected Sub DoStuff(sender As Object, e As EventArgs) Handles lnk_orderCards.Click
    Dim dt as DataTable = GetDataBaseData()
    For each dr as DataRow in dt.Rows()
        Dim f as String = dr.Item("firstname").ToString()
        Dim m as String = dr.Item("middleName").ToString()
        Dim s as String = dr.Item("surname").ToString()
        Dim err as String = String.Empty
        Dim result as String = XYZService.DoIt(f, m, s)
        Select Case result
            Case "ok"
                ' OK - allow For Loop Next '
            Case "e"
                err = "Some error"
            Case "e2"
                err = "Another error"
        End Select
        If Not String.IsNullOrWhiteSpace(err) Then
            ShowError(err)
            Exit Sub
        End If
    Next
    XYZService.Complete()
    ltl_status.Text = "Success!"
End Sub

我认为上述方法是异步方法的理想选择，特别是如果数据表有1000行，因为每个Web服务请求都可以并行发送。 但是，在MSDN中，我找不到有关如何最好地实现Async的足够示例。

谁能推荐更彻底的方法？ 我已经在MSDN上阅读了有关Task.WaitAll和Task.Factory.StartNew但示例并不简单。 如果像这样利用Task.WaitAll ，如果一个（或多个）任务失败，如何停止流程？

重要的是，在XYZService.Complete()之前，所有任务都必须成功返回。

基于Stephen输入的最终代码

Protected Async Sub DoStuff(sender As Object, e As EventArgs) Handles lnk_orderCards.Click
    Dim cts As New CancellationTokenSource
    Dim dt As DataTable = GetDataBaseData()
    Dim rows As IEnumerable(Of Task(Of String)) = (From dr As DataRow In dt.Rows Select DoServiceCall(cts, dr))
    Dim results() As String = Await Task.WhenAll(rows)
    Dim errors As List(Of String) = (From s As String In results Where s <> String.Empty).ToList()
    If errors.Count > 0 Then
        ShowError(String.Join("<br/>", errors))
        Exit Sub
    Else
        Console.WriteLine("Success")
    End If
End Sub

Protected Async Function DoServiceCall(t As CancellationTokenSource, dr As DataRow) As Task(Of String)
    If t.IsCancellationRequested Then
        t.Token.ThrowIfCancellationRequested()
    End If
    Dim f As String = dr.Item("firstname").ToString()
    Dim m As String = dr.Item("middleName").ToString()
    Dim s As String = dr.Item("surname").ToString()
    Dim returnResult As XYZService.ServiceReturnResult = Await XYZService.DoItAsync(f, s, s)
    Select Case returnResult.return
        Case "ok"
            ' OK - allow For Loop Next '
        Case Else
            t.Cancel(False)
            Throw New Exception("Web service error: " & returnResult.return)
    End Select
    Return returnResult.return
End Function

Answer 1

最简单的解决方案是使用Task.WhenAll 。 具体来说，您可以将每个项目投影（LINQ的Select ）到一个Task (of T) ，然后执行Await Task.WhenAll 。

但是，该简单方法将同时执行所有请求，并且如果其中一个失败，则不会停止其他请求。 有点复杂。 我建议使用CancellationTokenSource表示“紧急停止”，每个请求都接收CancellationToken并在失败时取消源。

不要使用Task.Run或其差劲的表亲StartNew 。 由于您的操作本质上是异步的（绑定到I / O的网络请求），因此您需要异步并发（ Task.WhenAll ），而不是并行并发（ StartNew ）。