tc怎么判断网络是否有数据发过来

hsucceed

用tc写了给简单的聊天工具，通过tcp建立连接后就可像qq一样聊天，程序一收到对方新的数据后就会显示在消息接收框，但是要怎么判断接收到一个新的消息到来，建立连接后又不能断开连接。有什么办法

这是一段服务函数

function CreateServer()
    netwsastartup() //初始化网络环境
    ServerHandle=netsocket(1) //创建流式(TCP)套接字
    netbind(ServerHandle,editgettext("edit0")) //开启了计算机的9999端口,供外界连接
    netlisten(ServerHandle,5) //**套接字,设置可连接数为5个

    while(true) //循环接受处理连接
        ClientHandle=netaccept(ServerHandle,rIP)//这里程序会挂起等待,直到有客户端连接到来
        netsend(ClientHandle,SendTemp)//向指定客户端发送一串字符串
        netrecv(ClientHandle,rRcvTemp) //接收从客户端发送的字串
        editsettext("edit1",rRcvTemp)
        if(rRcvTemp=="关闭") //客户端如果发送 关闭 服务器将关闭
            messagebox("服务器关闭")
            break
        end
    end
    netclosesocket(ServerHandle) //关闭套接字释放资源
    netclose() //关闭网络环境释放资源


end

dasan

有全代码分析吗