委托的多线程问题

委托的多线程问题

MikoLiang
Miko
等级:

发表于：2008-07-22 11:10:36 楼主

我写了个通信的程序，发送信息是用委托的方法去异步发送的具体代码大概如下

Private Delegate Function AsyncSendData(ByVal aBytes() As Byte) As Boolean '定义一个委托

Public sub SendData() '调用委托，异步执行
Dim caller As AsyncSendData
caller = New AsyncSendData(AddressOf SendDataAction)
Dim ar As IAsyncResult = caller.BeginInvoke(aBytes, Nothing, Nothing)
End sub

Friend Function SendDataAction(ByVal aBytes() As Byte) As Boolean '发送信息函数
SyncLock m_oSync
...发送信息的代码（略）
End SyncLock
End Function

我出现的问题是：
刚开始的时候还可以执行，但到了发送信息次数开始频繁的时候，SendDataAction函数就没有执行到了。我是通过分别在SendData和SendDataAction两个过程里加断点发现它执行了SendData,但没有执行SendDataAction的。到底什么原因导致没有执行到SendDataAction呢？

问题点数：30 回复次数：2 修改删除举报引用回复