网络服务器和网络客户端

想学坏的小孩 · 发表于 2010-1-21 17:05:43

网络客户端
.版本 2
.支持库 sock
.支持库 EThread

.程序集窗口程序集1
.程序集变量客户端, 网络客户端
.程序集变量文件, 字节集
.程序集变量文件名, 文本型

.子程序 _按钮1_被单击

.如果 (客户端.连接 (编辑框1.内容, 到数值 (编辑框2.内容)) ＝真)
_启动窗口.标题＝ “连接成功”
.否则
_启动窗口.标题＝ “连接失败”
.如果结束

.子程序 _按钮2_被单击

.如果 (客户端.断开 () ＝真)
_启动窗口.标题＝ “断开成功”
.否则
_启动窗口.标题＝ “断开失败”
.如果结束

.子程序 _按钮3_被单击

.如果真 (通用对话框1.打开 () ＝真)
列表框1.清空 ()
文件名＝取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) －倒找文本 (通用对话框1.文件名, “\”, , 假))
文件＝读入文件 (通用对话框1.文件名)
列表框1.加入项目 (通用对话框1.文件名, )
列表框1.加入项目 (“文件大小：” ＋到文本 (取字节集长度 (文件)), )
.如果真结束

.子程序 _按钮4_被单击
.局部变量信息, 文本型

.如果真 (取字节集长度 (文件) ＞ 0)
客户端.发送 (文件名, 0)
信息＝到文本 (客户端.接收 (0))
.如果 (信息＝ “ok”)
      客户端.发送 (到字节集 (取字节集长度 (文件)), 0)
      启动线程 (&发送)
.否则
      .如果真 (信息＝ “no”)
         信息框 (“服务器拒绝接收”, 0, )
      .如果真结束

.如果结束

.如果真结束

.子程序发送

客户端.发送 (文件, -1)
客户端.发送 (“send_end”, 0)
信息框 (“传送完毕”, 0, )

网络服务器
.版本 2
.支持库 sock
.支持库 EThread

.程序集窗口程序集1
.程序集变量服务器, 网络服务器
.程序集变量文件大小, 整数型
.程序集变量数据, 字节集
.程序集变量客户句柄, 整数型

.子程序 _开启服务_被单击

数据＝ {  }
文件大小＝ 0
客户句柄＝ 0
.如果真 (服务器.启动 (到数值 (编辑框1.内容)) ＝真)
_启动窗口.标题＝ “开启成功”
启动线程 (&子程序1)
.如果真结束

.子程序子程序1
.局部变量临时数据, 字节集
.局部变量数据大小, 整数型

客户句柄＝服务器.监听 (0)
标签2.标题＝ “客户IP/端口： ” ＋到文本 (服务器.取客户IP (客户句柄)) ＋ “:” ＋到文本 (服务器.取客户端口 (客户句柄))
通用对话框1.文件名＝到文本 (服务器.接收 (客户句柄, 0))
.如果 (通用对话框1.打开 () ＝真)
服务器.发送 (客户句柄, “ok”, 0)
文件大小＝取字节集数据 (服务器.接收 (客户句柄, 0), #整数型)
标签3.标题＝ “文件大小:” ＋到文本 (文件大小)
.循环判断首 ()
      临时数据＝服务器.接收 (客户句柄, 0)
      数据大小＝数据大小＋取字节集长度 (临时数据)
      标签4.标题＝ “已经传送：” ＋到文本 (数据大小)
      .如果真 (取字节集右边 (临时数据, 8) ＝到字节集 (“send_end”))
         数据＝数据＋取字节集左边 (临时数据, 取字节集长度 (临时数据) － 8)
         跳出循环 ()
      .如果真结束
      数据＝数据＋临时数据
.循环判断尾 (真)
写到文件 (通用对话框1.文件名, 数据)
.否则
服务器.发送 (客户句柄, “no”, 0)
.如果结束

.子程序 _按钮2_被单击

.如果真 (服务器.断开连接 (客户句柄) ＝真)
_启动窗口.标题＝ “断开成功”
.如果真结束

.子程序 __启动窗口_创建完毕
.局部变量本机IP, 文本型, , "0"

本机IP ＝取本机IP ()
标签5.标题＝标签5.标题＋取本机名 ()
标签6.标题＝标签6.标题＋本机IP [1]

.子程序 _按钮3_被单击

.如果真 (服务器.停止 () ＝真)
_启动窗口.标题＝ “停止服务”
.如果真结束

程序开发推广 · 发表于 2010-5-3 17:38:30

坐个沙发,做的不错呀,兄弟......

1106791265 · 发表于 2010-6-17 17:53:04

不是网络的啊

想学坏的小孩 · 发表于 2010-6-20 23:41:10

怎么不是了

245271830 · 发表于 2010-7-17 05:54:51

号东西拿下

天涯流星 · 发表于 2010-7-19 15:10:29

写的不错，学习下

jsfyin · 发表于 2010-7-21 14:27:34

这个东西要好好学习学习

小太爷 · 发表于 2010-8-5 23:00:06

kan kan la ~~~~~~~~~~~!

原叶 · 发表于 2010-8-25 01:55:26

本帖最后由原叶于 2010-8-25 01:56 编辑

回复 1# 想学坏的小孩

{:3_216:} {:3_213:}正想找呢，谢谢了

mycool5200 · 发表于 2010-9-11 00:27:57

太棒了正在找这方面资料

		自动登录	找回密码
密码			注册

[易语言组件例程] 网络服务器和网络客户端

评分