为什么tc的网络发送文件，第一个成功，第二个就老是失败？

四水哥

第一个文件发送成功收到，第二个失败，代码都一样，为什么会结果不同？
接收文件端代码如下：

1. 功能 接收配置文件()
   
2.    
   
3.     网络.初始化()//初始化网络环境
   
4.     套接字句柄=网络.套接字(1)//创建流式(TPC)套接字
   
5.     网络.绑定(套接字句柄,8888)//开启了计算机的9999端口,供外界连接
   
6.     网络.**(套接字句柄,5)//**套接字,设置可连接数为5个
   
7.     rIP=0
   
8.     新套接字句柄=网络.接受(套接字句柄,rIP)//这里程序会挂起等待,直到有客户端连接到来
   
9.     循环(真)
   
10.         返回值=网络.接收文件(新套接字句柄,被控端文件路径&"pezi.txt")//接收从客户端发送文件并保存到E盘下2.bmp
    
11.         如果(返回值==0)
    
12.             网络.关闭套接字(新套接字句柄)//关闭套接字释放资源
    
13.             网络.关闭套接字(套接字句柄)//关闭套接字释放资源
    
14.             网络.关闭()//关闭网络环境释放资源
    
15.             跳出
    
16.         如果结束
    
17.     循环结束
    
18. 功能结束

复制代码

1. 功能 接收设置文件()
   
2.    
   
3.     网络.初始化()//初始化网络环境
   
4.     套接字句柄=网络.套接字(1)//创建流式(TPC)套接字
   
5.     网络.绑定(套接字句柄,8888)//开启了计算机的9999端口,供外界连接
   
6.     网络.**(套接字句柄,5)//**套接字,设置可连接数为5个
   
7.     rIP="0.0.0.0"
   
8.     新套接字句柄=网络.接受(套接字句柄,rIP)//这里程序会挂起等待,直到有客户端连接到来
   
9.     循环(真)
   
10.         返回值=网络.接收文件(新套接字句柄,被控端文件路径&"sezi.dat")//接收从客户端发送文件并保存到E盘下2.bmp
    
11.         如果(返回值==0)
    
12.             //如果(rIP!="0.0.0.0")
    
13.             //辅助.消息框(rIP)
    
14.             //如果结束
    
15.             网络.关闭套接字(新套接字句柄)//关闭套接字释放资源
    
16.             网络.关闭套接字(套接字句柄)//关闭套接字释放资源
    
17.             网络.关闭()//关闭网络环境释放资源
    
18.             跳出
    
19.         如果结束
    
20.     循环结束
    
21. 功能结束

复制代码

1. 功能 网络连接()
   
2.    
   
3.     网络.初始化() //初始化网络环境
   
4.     主控端套接字句柄=网络.套接字(1) //创建流式(TCP)套接字
   
5.     被控端IP=编辑框.获得文本("IP地址")
   
6.     网络.连接(主控端套接字句柄,被控端IP,9999) //这里测试所以连接的是本机
   
7.     发送缓存="主控端请求连接"
   
8.     网络.发送(主控端套接字句柄,发送缓存)//向指定服务器发送一串字符串
   
9.     网络.接收(主控端套接字句柄,接收缓存) //接收从服务器发送的字串
   
10.     注册码=接收缓存
    
11.     被控端文件路径=程序路径&注册码&"\\"
    
12.     文件.创建文件夹(被控端文件路径)
    
13.     网络.接收(主控端套接字句柄,接收缓存) //接收从服务器发送的字串
    
14.     如果(接收缓存=="准备发送设置文件")
    
15.         接收设置文件=线程.开启("远程控制主控端.接收设置文件","")
    
16.     如果结束
    
17.     辅助.等待(500)
    
18.     网络.接收(主控端套接字句柄,接收缓存) //接收从服务器发送的字串
    
19.     如果(接收缓存=="准备发送配置文件")
    
20.         接收设置文件=线程.开启("远程控制主控端.接收配置文件","")
    
21.          
    
22.     如果结束
    
23.    辅助.消息框(接收缓存)
    
24.    
    
25.     网络.关闭套接字(主控端套接字句柄)//关闭套接字释放资源
    
26.     网络.关闭()//关闭网络环境释放资源

复制代码

四水哥

以下是发送端代码

1. 功能 发送设置文件()
   
2.     网络.初始化()//初始化网络环境
   
3.     套接字句柄=网络.套接字(1)//创建流式(TPC)套接字
   
4.     网络.连接(套接字句柄,"127.0.0.1",8888)//这里测试所以连接的是本机
   
5.     辅助.等待(500)
   
6.     返回值=网络.发送文件(套接字句柄,程序路径&"sezi.dat")//发送文件
   
7.     如果(0!=返回值)
   
8.         辅助.消息框("发送文件失败")
   
9.     如果结束
   
10.     网络.关闭套接字(套接字句柄)//关闭套接字释放资源
    
11.     网络.关闭()//关闭网络环境释放资源
    
12. 功能结束
    
13. 
    
14. 功能 发送配置文件()
    
15.     网络.初始化()//初始化网络环境
    
16.     套接字句柄=网络.套接字(1)//创建流式(TPC)套接字
    
17.     网络.连接(套接字句柄,"127.0.0.1",8888)//这里测试所以连接的是本机
    
18.     辅助.等待(1000)
    
19.     返回值=网络.发送文件(套接字句柄,程序路径&硬盘串号[0]&"\\sezi.dat")//发送文件
    
20.     如果(0!=返回值)
    
21.         辅助.消息框("发送文件失败")
    
22.     如果结束
    
23.     网络.关闭套接字(套接字句柄)//关闭套接字释放资源
    
24.     网络.关闭()//关闭网络环境释放资源
    
25. 功能结束

复制代码

1. 功能 开启服务器()
   
2.     网络.初始化() //初始化网络环境
   
3.     被控端套接字句柄=网络.套接字(1) //创建流式(TCP)套接字
   
4.     网络.绑定(被控端套接字句柄,9999) //开启了计算机的9999端口,供外界连接
   
5.     网络.**(被控端套接字句柄,5) //**套接字,设置可连接数为5个
   
6.     返回IP,接收缓存
   
7.         主控端套接字句柄=网络.接受(被控端套接字句柄,返回IP)//这里程序会挂起等待,直到有客户端连接到来
   
8.         
   
9.   发送缓存=注册码
   
10.     网络.发送(主控端套接字句柄,发送缓存)//向指定客户端发送一串字符串
    
11.    
    
12.     发送缓存="准备发送设置文件"
    
13.     网络.发送(主控端套接字句柄,发送缓存)//向指定客户端发送一串字符串
    
14.     //辅助.等待(500)
    
15.     远程控制被控端.发送设置文件()
    
16.    
    
17.     发送缓存="准备发送配置文件"
    
18.    
    
19.     网络.发送(主控端套接字句柄,发送缓存)//向指定客户端发送一串字符串
    
20.     辅助.等待(1000)
    
21.     远程控制被控端.发送配置文件()
    
22. 功能结束

复制代码

四水哥

最终改成用三个不同的端口发送成功，已解决问题

498518599

客户端  创建网络  发送  接收  关闭网络  
服务器  创建网络  接收  发送  关闭网络

498518599

客户端  创建网络  发送  接收  关闭网络  
服务器  创建网络  接收  发送  关闭网络