TC官方合作论坛

标题: tc怎么判断网络是否有数据发过来 [打印本页]

作者: hsucceed 时间: 2015-7-17 09:21
标题: tc怎么判断网络是否有数据发过来
用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 时间: 2015-7-22 17:21
有全代码分析吗

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)