马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 花落莫相离 于 2015-5-20 17:37 编辑
启动客户端,有时候会把服务端的文件清空,找了半天也没发现问题在哪,求大神看一下,我只知道问题出现在内网通讯上,找不出具体问题出在哪{:soso_e118:}
服务端代码
- 功能 发送日程()
- //____________________发送端代码:__________________
- 网络初始化()
- 变量 套接字句柄=网络套接字(1)
- 网络绑定(套接字句柄,8000)
- 网络**(套接字句柄,10)
- 变量 rIP=0,计数=0
- 变量 接收缓存
- 循环(真)
- 变量 套接字句柄1=网络接受(套接字句柄,rIP)
- 网络接收(套接字句柄1,接收缓存)
- 调试输出(接收缓存)
- 选择(接收缓存)
- 条件 "更新"
- 文件删除("d:\\进场安排.txt")
- 等待(300)
- 网络接收文件(套接字句柄1,"d:\\进场安排.txt")
- 等待(50)
- 更新()
- 条件 "发送"
- 变量 返回值=网络发送文件(套接字句柄1,"d:/进场安排.txt")
- 如果(0!=返回值)
- 消息框("发送文件失败")
- 结束
- 条件 "备份"
- 备份()
- 结束
- 网络关闭套接字(套接字句柄1)
- 结束
- 网络关闭套接字(套接字句柄)
- 网络关闭()
- 结束
复制代码
- <P>//==============================客户端代码
- <P>功能 检查网络环境()
- 变量 ret=文件是否存在("d:/主机IP.ini")
- 如果(ret==1)
- 变量 IP=文件读配置("主机IP","ip","d:\\主机IP.ini")
- 网络初始化()
- 变量 套接字句柄=网络套接字(1)
- 变量 连接状态=网络连接(套接字句柄,IP,8000)
- 调试输出("连接状态="&连接状态)
- 如果(连接状态==1)
- 网络关闭套接字(套接字句柄)
- 网络关闭()
- 等待(50)
- 连接主机(IP)
- 否则
- 文件删除("d:/主机IP.ini")
- 确定主机()
- 结束
- 否则
- 确定主机()
- 结束
- 结束
- 功能 确定主机()
- 控件创建("标签","标签1","",0,0,790,360,"背景颜色:ffffff","",控件获取句柄("表格0"))
- 控件创建("标签","标签2","软件第一次运行需要初始化网络环境,时间可能较长请耐心等待...",250,160,360,20,"背景颜色:ffffff","",控件获取句柄("标签1"))
- 网络初始化()
- 变量 套接字句柄=网络套接字(1)
- 遍历(变量 i = 100; i < 200; i++)
- 变量 连接状态=网络连接(套接字句柄,"192.168.1."&i,8000)
- 如果(连接状态==1)
- 标签设置文本("标签2","网络环境初始化完成")
- 等待(100)
- 文件写配置("主机IP","ip","192.168.1."&i,"d:\\主机IP.ini")
- 网络关闭套接字(套接字句柄)
- 控件销毁("标签1")
- 等待(100)
- 连接主机("192.168.1."&i)
- 跳出
- 结束
- 等待(500)
- 结束
- 网络关闭()
- 结束
- 功能 连接主机(连接IP)
- 网络初始化()
- 变量 套接字句柄=网络套接字(1)
- 变量 连接状态=网络连接(套接字句柄,连接IP,8000)
- 调试输出("连接状态="&连接状态)
- 如果(连接状态==1)
- 网络发送(套接字句柄,"发送")
- 等待(50)
- 变量 返回值=网络接收文件(套接字句柄,"d:\\进场安排.txt")
- 调试输出("返回值="&返回值)
- 如果(返回值==-3)
- 消息框("接收文件失败,请检查局域网是否畅通,或者ip:"&连接IP&"的电脑是否在线"&"\r\n"&"\r\n"&获取错误信息(1))
- 结束
- 网络关闭套接字(套接字句柄)
- 设置表格()
- 结束
- 网络关闭()
- 结束</P>
复制代码
|