TC官方合作论坛

标题: 求助：帮我看一下内网问题 [打印本页]
作者: 花落莫相离    时间: 2015-5-20 17:33
标题: 求助：帮我看一下内网问题
本帖最后由 花落莫相离 于 2015-5-20 17:37 编辑

启动客户端，有时候会把服务端的文件清空，找了半天也没发现问题在哪，求大神看一下，我只知道问题出现在内网通讯上，找不出具体问题出在哪

服务端代码
  1. 功能 发送日程()
  2. //____________________发送端代码:__________________
  3. 网络初始化()
  4. 变量 套接字句柄=网络套接字(1)
  5. 网络绑定(套接字句柄,8000)
  6. 网络**(套接字句柄,10)
  7. 变量 rIP=0,计数=0
  8. 变量 接收缓存
  9. 循环(真)
  10. 变量 套接字句柄1=网络接受(套接字句柄,rIP)
  11. 网络接收(套接字句柄1,接收缓存)
  12. 调试输出(接收缓存)
  13. 选择(接收缓存)
  14. 条件 "更新"
  15. 文件删除("d:\\进场安排.txt")
  16. 等待(300)
  17. 网络接收文件(套接字句柄1,"d:\\进场安排.txt")
  18. 等待(50)
  19. 更新()
  20. 条件 "发送"
  21. 变量 返回值=网络发送文件(套接字句柄1,"d:/进场安排.txt")
  22. 如果(0!=返回值)
  23. 消息框("发送文件失败")
  24. 结束
  25. 条件 "备份"
  26. 备份()
  27. 结束
  28. 网络关闭套接字(套接字句柄1)
  29. 结束
  30. 网络关闭套接字(套接字句柄)
  31. 网络关闭()
  32. 结束
复制代码

  2. <P>//==============================客户端代码
  3. <P>功能 检查网络环境()
  4. 变量 ret=文件是否存在("d:/主机IP.ini")
  5. 如果(ret==1)
  6. 变量 IP=文件读配置("主机IP","ip","d:\\主机IP.ini")
  7. 网络初始化()
  8. 变量 套接字句柄=网络套接字(1)
  9. 变量 连接状态=网络连接(套接字句柄,IP,8000)
  10. 调试输出("连接状态="&连接状态)
  11. 如果(连接状态==1)
  12. 网络关闭套接字(套接字句柄)
  13. 网络关闭()
  14. 等待(50)
  15. 连接主机(IP)
  16. 否则
  17. 文件删除("d:/主机IP.ini")
  18. 确定主机()
  19. 结束

  21. 否则
  22. 确定主机()
  23. 结束
  24. 结束
  25. 功能 确定主机()
  26. 控件创建("标签","标签1","",0,0,790,360,"背景颜色:ffffff","",控件获取句柄("表格0"))
  27. 控件创建("标签","标签2","软件第一次运行需要初始化网络环境,时间可能较长请耐心等待...",250,160,360,20,"背景颜色:ffffff","",控件获取句柄("标签1"))
  28. 网络初始化()
  29. 变量 套接字句柄=网络套接字(1)
  30. 遍历(变量 i = 100; i < 200; i++)
  31. 变量 连接状态=网络连接(套接字句柄,"192.168.1."&i,8000)
  32. 如果(连接状态==1)
  33. 标签设置文本("标签2","网络环境初始化完成")
  34. 等待(100)
  35. 文件写配置("主机IP","ip","192.168.1."&i,"d:\\主机IP.ini")
  36. 网络关闭套接字(套接字句柄)
  37. 控件销毁("标签1")
  38. 等待(100)
  39. 连接主机("192.168.1."&i)
  40. 跳出
  41. 结束
  42. 等待(500)
  43. 结束
  44. 网络关闭()
  45. 结束
  46. 功能 连接主机(连接IP)
  47. 网络初始化()
  48. 变量 套接字句柄=网络套接字(1)
  49. 变量 连接状态=网络连接(套接字句柄,连接IP,8000)
  50. 调试输出("连接状态="&连接状态)
  51. 如果(连接状态==1)
  52. 网络发送(套接字句柄,"发送")
  53. 等待(50)
  54. 变量 返回值=网络接收文件(套接字句柄,"d:\\进场安排.txt")
  55. 调试输出("返回值="&返回值)
  56. 如果(返回值==-3)
  57. 消息框("接收文件失败,请检查局域网是否畅通,或者ip:"&连接IP&"的电脑是否在线"&"\r\n"&"\r\n"&获取错误信息(1))
  58. 结束
  59. 网络关闭套接字(套接字句柄)
  60. 设置表格()
  61. 结束
  62. 网络关闭()
  63. 结束</P>
复制代码

作者: fuxiaojun185    时间: 2015-5-20 23:55
这个是监控器？，没研究过这方面的，难不
作者: 花落莫相离    时间: 2015-5-21 09:01
fuxiaojun185 发表于 2015-5-20 23:55
这个是监控器？，没研究过这方面的，难不

这个可不是什么监控器
算是内网共享之类的东西吧，选定一台电脑作为服务端存储数据，通过内网通讯的方式，把数据文件发送给内网里的任一台电脑，并通过客户端不定期对服务端进行数据维护。
这两段代码，就是服务端和客户端内网通讯的代码，不过代码有问题，客户端软件一启动，服务端数据经常会被清空，只是偶尔正常运行，自己是查不出来问题在哪，才发帖求助的
作者: fuxiaojun185    时间: 2015-5-22 00:31
花落莫相离 发表于 2015-5-21 09:01
这个可不是什么监控器
算是内网共享之类的东西吧，选定一台电脑作为服务端存储数据，通过内网通讯的 ...

那也属于监控器那种的，多台机子，一台控制，
作者: 花落莫相离    时间: 2015-5-22 21:11
花了一晚上,总算找到了问题所在,小鸟真是伤不起呀

虽然没人回答,还是宣布此求助帖作废



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1