|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我是一个新手,求大神指点。
问题是这样的,我自己想写一个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) //关闭套接字释放资源
网络关闭() //关闭网络环境释放资源
结束
|
|