TC官方合作论坛

标题: UDP协议通讯问题，求助大神帮忙！小弟先谢过了 [打印本页]

作者: 326160071 时间: 2017-9-1 21:53
标题: UDP协议通讯问题，求助大神帮忙！小弟先谢过了
我是一个新手，求大神指点。
问题是这样的，我自己想写一个UDP通讯的聊天窗口测试，结果接受的总是无响应（先点击开始按钮，在点击接受按钮后就无响应了），用的是TC7.0。还有个问题是，用这个代码发出去的数据在使用网上下载的网络调试软件居然接收到的是乱码，请大神帮忙解惑。
谢谢了！！！

开启=按钮0  发送=按钮1  接受=按钮2

代码如下
英文：
var 线程ID
//从这里开始执行
var ServerHandle,rPort,rRcvTemp,rIP
function 执行()
//从这里开始你的代码
end

function 按钮0_点击()
//这里添加你要执行的代码
netwsastartup() //初始化网络环境
ServerHandle=netsocket(2) //创建数据报(UDP)套接字

end

function 按钮1_点击()
//这里添加你要执行的代码
netsendto(ServerHandle,editgettext("编辑框0"),"192.168.2.226",9999) //向指定地址端发送一串字符串
end

function 按钮2_点击()
//这里添加你要执行的代码
netbind(ServerHandle,3001) //开启了计算机的9999端口,供外界连接
while(true)
      netrecvfrom(ServerHandle,rRcvTemp,100,rIP,rPort) //接收数据
      editsettext("编辑框0",rRcvTemp)//打印从指定地址接收的字串
      if(rRcvTemp=="关闭")
         break
      end
end
netclosesocket(ServerHandle) //关闭套接字释放资源
netclose() //关闭网络环境释放资源
end

中文：
变量线程ID
//从这里开始执行
变量 ServerHandle,rPort,rRcvTemp,rIP
功能执行()
//从这里开始你的代码
结束

功能按钮0_点击()
//这里添加你要执行的代码
网络初始化() //初始化网络环境
ServerHandle=网络套接字(2) //创建数据报(UDP)套接字

结束

功能按钮1_点击()
//这里添加你要执行的代码
网络发送到(ServerHandle,编辑框获取文本("编辑框0"),"192.168.2.226",9999) //向指定地址端发送一串字符串
结束

功能按钮2_点击()
//这里添加你要执行的代码
网络绑定(ServerHandle,3001) //开启了计算机的9999端口,供外界连接
循环(真)
      网络接收来自(ServerHandle,rRcvTemp,100,rIP,rPort) //接收数据
      编辑框设置文本("编辑框0",rRcvTemp)//打印从指定地址接收的字串
      如果(rRcvTemp=="关闭")
         跳出
      结束
结束
网络关闭套接字(ServerHandle) //关闭套接字释放资源
网络关闭() //关闭网络环境释放资源
结束

作者: 花落莫相离 时间: 2017-9-2 23:33
[attach]25445[/attach]

这是我以前总结的内网通讯源码，希望对你有帮助

作者: 326160071 时间: 2017-9-2 23:40

花落莫相离发表于 2017-9-2 23:33
这是我以前总结的内网通讯源码，希望对你有帮助

谢谢啦我去研究研究

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