为什么可等待的代码会无限期冻结？

Question

我有这样的代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim t = DoStuffAsync()
    t.Wait()
    Debug.Print(t.Result)
End Sub

Private Async Function DoStuffAsync() As Task(Of String)
    Await Task.Delay(2000)
    Return "Stuff"
End Function

我知道这不是做这件事的正确方法。以下是我认为可能是正确的方法：

Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim t = DoStuffAsync()
    Debug.Print(Await t)
End Sub

Private Async Function DoStuffAsync() As Task(Of String)
    Await Task.Delay(2000)
    Return "Stuff"
End Function

不过，我只是想知道，为什么在运行第一个代码示例时，它会无限期地挂在t.wait()上？此时代码执行到底发生了什么，即当线程在t.wait()上阻塞时，什么代码“正在运行”？

Answer 1

让我们先从实际出发：是的，对结果应该是awaiting而不是wait()ing。现在来回答你为什么会发生这种情况的问题...

在Stephen Cleary的博客文章《Don't Blocking on Async Code》中，他解释了这种情况是如何发生的。以下是他的“发生了什么”演练，对您的方法进行了修改：

1. 顶级方法button1_click调用doStuffasync（在UI上下文中）。
2. doStuffasync调用task.delay（仍在上下文中）。
3. Task.delay返回未完成的任务，指示时间尚未过去。
4. DoStuffAsync等待task.delay返回的任务。将捕获上下文，稍后将用于继续运行DoStuffAsync方法。doStuffasync返回未完成的任务，指示doStuffasync方法尚未完成。
5. 顶级方法同步阻止由doStuffasync返回的任务。这将阻塞上下文线程。
6. …最终，指定的时间将过去，并且延迟任务将完成。
7. DoStuffAsync的继续操作现在可以运行了，它等待上下文可用，以便在上下文中执行。
8. 死锁。顶级方法正在阻塞上下文线程，等待doStuffasync完成，而doStuffasync等待上下文空闲以便完成。