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

发布时间：2020-12-17 07:24:57 所属栏目：百科来源：网络整理

导读：我正在开发一个类库,它将为CLR应用程序提供异步通信. SslStream上有异步读取(BeginRead),其中一个回调例程由多个流共享. 我不希望在调试期间并行处理回调,所以我创建了一个关键部分： Private Sub Callback_Read(ByVal ar As IAsyncResult) Static OneAtATim

我正在开发一个类库,它将为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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!