VB.NET socket类实现结束异步监听、停止异步接收的方法

kekekeyide 2012-09-22 09:11:04

vb.net里面socket类没有stop方法，所以如果要结束正在进行的监听或者接受，只能直接终止该监听或接受所在的线程啦。
举例如下（2005年的一个帖子）
private void Form1_Load(object sender, EventArgs e)
{
SocketListener = new Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp);
IPEndPoint ipLocal = new IPEndPoint(IPAddress.Any, 8080);
SocketListener.Bind(ipLocal);
SocketListener.Listen(100);
SocketListener.BeginAccept(new AsyncCallback(OnClientConnect), SocketListener);
}

private void OnClientConnect(IAsyncResult asyn)
{
Socket SocketListener = (Socket)asyn.AsyncState;
NewConnection(SocketListener.EndAccept(asyn));
SocketListener.BeginAccept(new AsyncCallback(OnClientConnect), SocketListener);
}

private void button1_Click(object sender, EventArgs e)
{
if (SocketListener != null)
{
SocketListener.Close();
}
}

当时该程序的作者给出了上面的代码，求终止socket监听的方法，这两天用了下vb，也需要解决这个问题，找了半天也没有找到更好的解决方法，所以就只能采用笨一点的法子：每次调用自定义回调函数的时候记录一下线程变量，在需要终止监听的时候用abort方法结束该线程。

Dim m_CurrThread as System.Threading.Thread = Nothing

private void Form1_Load(object sender, EventArgs e)
{
SocketListener = new Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp);
IPEndPoint ipLocal = new IPEndPoint(IPAddress.Any, 8080);
SocketListener.Bind(ipLocal);
SocketListener.Listen(100);
SocketListener.BeginAccept(new AsyncCallback(OnClientConnect), SocketListener);
}

private void OnClientConnect(IAsyncResult asyn)
{
m_CurrentThread = System.Threading.Thread.CurrentThread
Socket SocketListener = (Socket)asyn.AsyncState;
NewConnection(SocketListener.EndAccept(asyn));
SocketListener.BeginAccept(new AsyncCallback(OnClientConnect), SocketListener);
}

private void button1_Click(object sender, EventArgs e)
{
if (SocketListener != null)
{
SocketListener.Close();
}
}

在需要停止监听的时候除了用close关闭套接字外，加上一句m_CurrentThread.Abort()

我在我自己的程序里试验过了，只要创建监听和结束监听不太频繁，这种方法可行。但是如果创建监听和结束监听的切换很快的话，由于是异步方式，程序会有一定概率出错。不知道大家有什么好的解决办法，实现vb里面停止异步监听和接收？

...全文