TcpListener服务器端一个端口接收多个客户端的问题！

[jdsbjcailei]

-----------------Server
Private thThreadRead As Thread
'创建线程，用以侦听端口号，接收信息
Private tlTcpListen As TcpListener
'侦听端口号
Private blistener As Boolean = True
'设定标示位，判断侦听状态
Private nsStream As NetworkStream
'创建接收的基本数据流
Private srRead As StreamReader
'从网络基础数据流中读取数据
Private tcClient As TcpClient

Private Sub WaitData()
Try
Dim localAddr As IPAddress = IPAddress.Parse(sCallIP)
tlTcpListen = New TcpListener(IPAddress.Any, iCallPort)
tlTcpListen.Start()

*****************开启多了线程？
Dim i As Integer
For i = 0 To iClientNumber - 1 'iclientnumber是客户端总数
Dim tListen As New Thread(AddressOf Work)
tListen.Start()
Next i
*****************


'ThredArray.Add(tListen)

Catch ex As System.Security.SecurityException
MessageBox.Show("侦听失败！", "错误")
End Try
End Sub

Private Sub Work()
tcClient = tlTcpListen.AcceptTcpClient()
'通过TCP连接请求
nsStream = tcClient.GetStream()
'获取用以发送、接收数据的网络基础数据流
srRead = New StreamReader(nsStream)
'以得到的网络基础数据流来初始化StreamReader实例
'//ListBox1.Items.Add("已经建立TCP连接！")
'循环侦听
While blistener
Dim sMessage As String = srRead.ReadLine()
'从网络基础数据流中读取一行数据
If (sMessage = "STOP") Then
tlTcpListen.Stop()
'关闭侦听
nsStream.Close()
srRead.Close()
'释放资源
thThreadRead.Abort()
'中止线程
Return
ElseIf (sMessage = "NEW") Then
'新登记指令
lblStatue.Text = "新增加了登记记录"
Else
lblStatue.Text = "传输了" & sMessage
End If
End If
End While
End Sub

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
thThreadRead = New Thread(AddressOf WaitData) '''建立新的线程
thThreadRead.Start() '''启动线程
end sub

---------客户端略(写法大体一致，已经确保和服务端能通信了)....

上面****************段虽然实现了1个服务端，多个客户端，但是根据这样实现的有问题，必须要先定义客户端数量。不要那段循环的话，只能是 哪个客户端和服务端建立连接 哪个就保持连接，以后的都连接不上。

问题：
这样对不对？有没有其它实现的办法（QQ或者其他的工具，难道需要定义N个线程负责连接客户端？）

[jdsbjcailei]

自己顶一下，望知道的说下！谢谢！

[jdsbjcailei]

使用Socket 的时候 ，容易碰见 端口 不能到达，所以换成 TcpListener 了，

有用 TcpListener 的例子吗？

[使我做你和平之子]

你用的是同步方式，改用异步方式就可以实现响应多个客户端，贴参考代码如下，不是我写的，但是一直在用：
// 负责监听的线程
private System.Threading.Thread m_thread;
// 本地IP地址
private string m_tcpIPAddress;
//监听的端口
private int m_tcpListeningPort;
// 最大同时异步连接
private int m_tcpListeningPortBacklog;
// 指示服务是否停止的标志位
private bool m_fShutdown;

protected override void OnStart(string[] args)
{
m_thread = new Thread(new ThreadStart(ListenerThread));
m_thread.Start();
}

protected override void OnStop()
{
m_fShutdown = true;
m_evtListen.Set();
}

private void ListenerThread()
{
IPEndPoint localEndPoint = new IPEndPoint(System.Net.IPAddress.Parse(m_tcpIPAddress), m_tcpListeningPort);

// 创建套接字
Socket listener = new Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp);

// 将套接字和本地终结点绑定，监听端口
try
{
listener.Bind(localEndPoint);
listener.Listen(m_tcpListeningPortBacklog);

while (!m_fShutdown)
{
m_evtListen.Reset();

listener.BeginAccept(new AsyncCallback(AcceptCallback), listener);

//等连接建立后再继续
m_evtListen.WaitOne();
}

}
catch (Exception exp)
{

}
}

private void AcceptCallback(IAsyncResult ar)
{
//指示主线程继续
m_evtListen.Set();

try
{
Socket listener = (Socket)ar.AsyncState;
Socket handler = listener.EndAccept(ar);

MyObject state = new MyObject();
state.workSocket = handler;
handler.BeginReceive(state.buffer, 0, StateObject.BufferSize, 0,
new AsyncCallback(ReadCallback), state);
}
catch (Exception exp)
{

}
}

private void ReadCallback(IAsyncResult ar)
{
string content;
int index, start, startLast, end, lenEnd;

MyObject state = (MyObject)ar.AsyncState;
Socket handler = state.workSocket;

try
{
int bytesRead = handler.EndReceive(ar);

if (bytesRead > 0)
{
string buffer = Encoding.ASCII.GetString(state.buffer, 0, bytesRead);
//以下对接受到的数据进行处理

MyObject是一个自定义的类：
private class MyObject
{
public Socket workSocket = null;
// 接受缓冲区的大小
public const int BufferSize = 2048;
// 接受缓冲区
public byte[] buffer = new byte[BufferSize];
// 接受到的字符串
public StringBuilder sb = new StringBuilder();
// MAC地址
public char[] mac_addr = null;
}

[oo渣渣oo]

示例代码供参考:

   Private Sub LoadListen()
      sckLis = New TcpListener(IPAddress.Any, port)
      LisThread = New Threading.Thread(AddressOf StartListen)
      LisThread.Name = "侦听进程"
      LisThread.Start()
   End Sub

   Private Sub StartListen()
      sckLis.Start()
      Try
         Do
            Dim sckTmp As Socket = sckLis.AcceptSocket
            'AddMsg("接受了来自" & CType(sckTmp.RemoteEndPoint, IPEndPoint).Address.ToString & "的连接请求.", , False)
            Threading.ThreadPool.QueueUserWorkItem(New Threading.WaitCallback(AddressOf HandleReceive), sckTmp)
         Loop Until StopLis = True
      Catch e As Exception
         CloseListen()
      End Try
   End Sub

   Private Sub CloseListen()
      StopLis = True
      If Not IsNothing(sckLis) Then
         sckLis.Stop()
         sckLis = Nothing
      End If
   End Sub

   Private Sub HandleReceive(ByVal objSocket As Object)
      Dim sck As Socket = CType(objSocket, Socket)
      ......
   End Sub

[ineedchrist]

http://topic.csdn.net/u/20081027/16/7dee1546-b4b4-494d-bb3e-2ef6244731d4.html

或者百度里搜“TCP 丛纹弨”

发帖的时候最好搜一下，看看CSDN之前有没有提问过。

[jdsbjcailei]

ineedchrist

使用 Socket 的时候，2台机器 出现：由于目标机器积极拒绝(port:1234)

而使用 TcpListener 的时候 ，同样的端口和 ip 不出错 (port:1234)

[ineedchrist]

[Quote=引用 6 楼 jdsbjcailei 的回复:]
ineedchrist

使用 Socket  的时候，2台机器 出现：由于目标机器积极拒绝(port:1234)

而使用 TcpListener  的时候 ，同样的端口和 ip 不出错 (port:1234)
[/Quote]


我那个类肯定是没问题的，我现在的系统都用着呢，另外，TcpListener 本身就是个对Socket 的封装，还是你的代码有问题，仔细调一下

[vbfool]

我的想法是，你可以声明一个集合（比如List），然后用For Each Next 去遍历。因为集合可以动态的添加删除元素，我的程序里就是用这个办法的，不过如果太多客户端，队列的延迟我不敢保证。

[SanDy_O]

关注。。

[BATTLERxANGE]

其实可以这样，S端启动后建立一个监听线程，C端连接以后，S端再建立一个新的线程来继续监听，如此反复就可以了
我现在碰到的问题是S端如何来实现广播~也就是说StreamWriter必须使用全局变量，而且应该使用数组，广播的时候遍历数组然后写WriteLine
但是这样还是不太规范，所以还在想办法