2 wangl0907 wangl0907 于 2016.04.06 15:10 提问

vb编程 我使用的TCPListener和异步方法BeginAcceptTCPClient多个客户端 连接TCP服务器

Public Sub TCPlisten()

try

    Dim listener As New TcpListener(IPAddress.Any, Local_Port) 
    listener.Start()
    listener.BeginAcceptTcpClient(New AsyncCallback(AddressOf AcceptClient), listener) '异步操作

Public Sub AcceptClient(result As IAsyncResult)
try
Dim tempListener As TcpListener = CType(result.AsyncState, TcpListener)

    Dim client As TcpClient = tempListener.EndAcceptTcpClient(result)
    Dim bytes(1024) As Byte
    Dim data As String = Nothing
    Dim stream As NetworkStream = client.GetStream()
    Dim i As Int32

    i = stream.Read(bytes, 0, bytes.Length)
    listener.BeginAcceptTcpClient(AddressOf AcceptClient, listener)  //应该加在while循环前面吧
    While True     //这里的循环怎么写可以替换成异步通信
            data = System.Text.Encoding.ASCII.GetString(bytes, 0, i) '数字0表示从缓冲区的起始位置,
            receiveBytes = System.Text.Encoding.ASCII.GetBytes(data) '转换为字节数
            Me.BeginInvoke(New System.EventHandler(AddressOf TCP_Refresh), receiveBytes) //异步委托

            i = stream.Read(bytes, 0, bytes.Length)

    End While

            //这里有部分内容不懂,怎么处理网络流关闭???
    Catch ex As Exception
        listener.Stop()
        listener = Nothing
    End Try

End Sub

Public Sub TCPserver(sender As Object, e As EventArgs)
    Try
        Dim str As String = Nothing
        str = System.Text.Encoding.ASCII.GetString(sender)
        TextBox1.Text = str & vbCrLf & TextBox1.Text
    Catch ex As Exception
        MsgBox(e.ToString())
    End Try
    //这里的网络流关闭写在哪里啊??? 大家帮帮忙吧???
   ‘ stream.Close()

End Sub


现在问题是,只要客户端发送数据,服务器客户端可以接收数据,就是发送中间会出现没有反应???
发现断开连接时候会出现服务器端不会响应,怎么办???


特别是其中的异步TCP编程
看了这篇文章有了很大的认识
http://blog.csdn.net/jjjfox/article/details/8212271

10个回答

wangl0907
wangl0907   2016.04.06 15:26

没人帮忙吗,自己顶一个

wangl0907
wangl0907   2016.04.07 12:37

这么多人浏览了,就没有说说问题。

zhao4zhong1
zhao4zhong1   Rxr 2016.04.08 09:21

这不是VB6,是VB.NET

wangl0907
wangl0907   2016.04.08 10:31

是的vb.net ,赵4老师

wangl0907
wangl0907   2016.04.08 10:34

老师,vb编程中调用BeginAcceptTcpClient的异步操作出现图片说明,还有
我使用按钮触发关闭连接状态的,可是 listener.Stop() 不知道写到那个地方关闭侦听

wangl0907
wangl0907   2016.04.08 15:57

大家看了,可以说说有什么很严重的问题也是好事啊,谢谢

wangl0907
wangl0907   2016.04.09 09:41

大家好,这里问题是函数调用太多了吗
While True

    data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
    receiveBytes = System.Text.Encoding.ASCII.GetBytes(data)
    TextBox1.Text = data  //这里显示接受的数据,怎么没有看到??
    ' If InStr(1, Encoding.ASCII.GetString(receiveBytes), KeyWord) <> 0 Then
    'Me.BeginInvoke(New System.EventHandler(AddressOf TCP_Refresh), receiveBytes)
    ' End If
    'i = stream.Read(bytes, 0, bytes.Length)

End While
    还是这个循环有问题
wangl0907
wangl0907   2016.04.09 18:49

这次的工作中碰到的问题,基本可以实现我想的要求,还有很大的改进,没有人给过我希望,难道是我没有把问题没说明白吗,还是对于这么简单的问题就不屑一顾。很是疑惑,对于我这样的新手

zhao4zhong1
zhao4zhong1   Rxr 2016.04.11 11:08

请参考MSDN里面自带的相关VB.net例子代码。

wangl0907
wangl0907   2016.04.12 12:55

谢谢老师,这里有个疑问
提示:Stop 方法并不会关闭任何已接受的连接。并且你应该负责关闭这些连接,可是多个客户端的连接,怎么关闭每个连接呢???

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!