研究了大半个晚上,琢磨出代码了,不知道可行不可行,顺便做个笔记,明天上班用内网测试一下{:soso_e113:}
- <P> //____________________接收端代码:__________________
- 功能 接收()
- 变量 ret=文件是否存在("e:\\进场安排.txt")
- 如果(ret==1)
- 文件删除("e:\\进场安排.txt")
- 否则
- 网络初始化()
- 变量 套接字句柄=网络套接字(1)
- 网络连接(套接字句柄,"127.0.0.1",8000)//由于是本机测试ip设置成了"127.0.0.1",可以根据实际情况更改成发送端ip
- 变量 返回值=网络接收文件(套接字句柄,"e:\\进场安排.txt")
- 如果(0!=返回值)
- 消息框("接收文件失败")
- 结束
- 网络关闭套接字(套接字句柄)
- 网络关闭()
- 结束
- 结束
- //____________________发送端代码:__________________ </P>
- <P>功能 发送()
-
- 网络初始化()
- 变量 套接字句柄=网络套接字(1)
- 网络绑定(套接字句柄,8000)
- 网络**(套接字句柄,20)
- 变量 rIP=0,计数
- 变量 IP=数组()
- 数组设置缓存大小(IP,20)
- 循环(真)
- 变量 套接字句柄1=网络接受(套接字句柄,rIP)
- 数组追加元素(IP,rIP)
- 变量 大小=数组大小(IP)
- 遍历(变量 i = 0; i < 大小; i++)
- 变量 对比=字符串比较(IP[i],rIP)
- 调试输出("对比="&对比)
- 如果(对比==0)
- 数组指定位置删除(IP,i)
- 计数=数组大小(IP)
- 结束
- 结束
-
- 变量 返回值=网络发送文件(套接字句柄1,"d:\\进场安排.txt")
- 如果(0!=返回值)
- 消息框("发送文件失败")
- 结束
- 网络关闭套接字(套接字句柄1)
- 如果(计数==20)
- 跳出
- 结束
- 结束
- 网络关闭套接字(套接字句柄)
- 网络关闭()
- 结束
- </P>
复制代码
|