|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
用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
|
|