vb.net - 为什么 SyncLock 在这里不起作用？

Question

我正在开发一个类库，它将为 CLR 应用程序提供异步通信。

SslStream 上有异步读取 (BeginRead)，具有由多个流共享的单个回调例程。我不希望在调试期间并行处理回调，因此我创建了一个关键部分:

Private Sub Callback_Read(ByVal ar As IAsyncResult)
   Static OneAtATime As New Object
   SyncLock OneAtATime
      Dim ThisSslStream As SslStream = DirectCast(ar.AsyncState, SslStream)
      ...
   End SyncLock
End Sub

令我惊讶的是，这不起作用，至少当我在 SyncLock block 内设置断点时不起作用。多个流的回调同时在其中运行，无需在入口点等待，直到前一个线程离开它。

单步执行是一场噩梦，尤其是当流同时关闭时:执行流 1 的行，执行流 2 的行，执行流 1 的下一行，执行流 2 的下一行，依此类推，穿过整个街区。

我想也许你需要的不仅仅是一个通用的“新对象”，但后来我看到这里至少有一个关于堆栈溢出的答案，它完全按照我使用它的方式说明了 SyncLock，只是“静态 X 作为New Object”来在必须锁定的函数内创建同步对象。

是否因为回调实际上来自 .Net 框架之外的 win32 线程，所以 SyncLock 在这里不起作用？

Answer 1

    Static OneAtATime As New Object

Static 关键字对于 VB.NET 实现者来说是一个相当沉重的负担。他们必须支持它，因为它在以前的 Visual Basic 版本中经常使用，忽略它会给想要更新工具的程序员带来太多困难。

但它的遗留行为与线程非常不兼容，而线程是 .NET 中大力支持的功能。以前这不是问题，因为旧的 VB 版本不支持创建线程。为该语句生成的 MSIL 代码量非常大。您应该使用 ildasm.exe 实用程序进行查看。

它之所以庞大，是因为它需要做的事情。这仅在第一次进入方法时初始化变量一次。并不是非常困难，它会自动生成另一个跟踪的 bool 变量。但更困难的部分是为每个单独的线程执行一次。换句话说，它具有 [ThreadStatic] 行为。

这就是让你丧命的地方，每个线程都有自己的 SyncLock。这就是为什么您根本没有观察到同步的原因:)您需要将其移出方法并声明它Shared。