vb.net – 为什么SyncLock不在这里工作？

我正在开发一个类库,它将为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块中设置断点时是这样.多个流的回调同时在其中运行,而无需在入口点等待,直到前一个线程离开它为止.

单步执行它是一场噩梦,特别是当流同时关闭(关闭)时：执行流1的行,执行流2的行,执行下一行1,执行下一行2,依此类推,通过整个块.

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

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

解决方法

我之前从未见过在VB中使用静态局部变量.存在这样的事情对我来说是新闻.我建议你以传统方式改为使用共享类变量.

public Class Test
   Private shared SyncRoot As Object = new Object()

   Private Sub Callback_Read(ByVal ar As IAsyncResult)
      SyncLock SyncRoot 
         Dim ThisSslStream As SslStream = DirectCast(ar.AsyncState,SslStream)
         ...
      End SyncRoot
   End Sub

End Class