精易论坛

标题: 网络服务器和网络客户端 [打印本页]

作者: 想学坏的小孩 时间: 2010-1-21 17:05
标题: 网络服务器和网络客户端
网络客户端
.版本 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_被单击

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

网络服务器.e

6.94 KB, 下载次数: 524, 下载积分: 精币 -2 枚

网络客户端.e

5.69 KB, 下载次数: 454, 下载积分: 精币 -2 枚

作者: 程序开发推广 时间: 2010-5-3 17:38
提示: 作者被禁止或删除内容自动屏蔽

作者: 1106791265 时间: 2010-6-17 17:53
不是网络的啊

作者: 想学坏的小孩 时间: 2010-6-20 23:41
怎么不是了

作者: 245271830 时间: 2010-7-17 05:54
号东西拿下

作者: 天涯流星 时间: 2010-7-19 15:10
写的不错，学习下

作者: jsfyin 时间: 2010-7-21 14:27
这个东西要好好学习学习

作者: 小太爷 时间: 2010-8-5 23:00
kan kan la ~~~~~~~~~~~!

作者: 原叶 时间: 2010-8-25 01:55
本帖最后由原叶于 2010-8-25 01:56 编辑

回复 1# 想学坏的小孩

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

作者: mycool5200 时间: 2010-9-11 00:27
太棒了正在找这方面资料

作者: 495071565 时间: 2010-9-14 21:00
支持学习 {:3_215:}

作者: 1094051666 时间: 2010-9-21 20:46
我正想要这个呢

作者: xiaocao54181452 时间: 2011-10-29 15:23
好好学习学习

作者: 至尊灬无赖 时间: 2011-10-29 17:05
这是神马东东啊？{:3_234:}

作者: wxlxmy 时间: 2011-10-29 19:45
看一看看一看

作者: 蓉儿 时间: 2011-12-4 02:27
下来看看！

作者: mlxieweihe 时间: 2011-12-11 10:40
太棒了正在找这方面资料

作者: smgyj 时间: 2011-12-21 22:59
学习了！！！！

作者: 复苏之魔 时间: 2012-1-5 12:13
我下载了试试哦

作者: 模拟小圣 时间: 2012-1-6 04:49
{:3_227:}{:3_227:}今天收货很多。明天继续

作者: can20meng 时间: 2012-2-10 18:48
不错呵呵怎么联网的

作者: 宇智波·佐助 时间: 2012-2-12 10:13

nna闹剧发表于 2012-2-10 17:33
没BBBBBBBBBBBBBB啊

灌水好明显啊

作者: 无视一切 时间: 2012-2-17 19:33
官方那就好反感几乎反复减肥减肥

作者: 无视一切 时间: 2012-2-17 19:35
反感几乎覆盖尽管减肥减肥

作者: 1045021218 时间: 2012-3-7 19:57

源之缘发表于 2010-5-3 17:38
坐个沙发,做的不错呀,兄弟......

额。我也顶了

作者: Megatron 时间: 2012-3-8 23:23
{:3_244:}{:3_244:}

作者: 许你，一世承诺 时间: 2012-9-11 22:57
没有钱了，不用介意我在回复一下

作者: 许你，一世承诺 时间: 2012-9-11 22:57
嘎嘎，是个好东西，拿走

作者: 许你，一世承诺 时间: 2012-9-11 22:58
在回复一下，赚一下钱

作者: 飞翔电脑 时间: 2012-9-28 23:35
下来看看是不是我需要的

作者: ???1 时间: 2012-10-9 22:39
好东西顶一个

作者: 125853547 时间: 2012-10-14 23:53
菜鸟进来学习下。

作者: 快乐学习生 时间: 2012-10-27 21:43
先拿来，貌似很强大

作者: yinyangtan 时间: 2012-12-14 15:24
顶起来

作者: 1017206190 时间: 2012-12-29 19:40
我下载试试。

作者: 过期的回忆 时间: 2013-4-2 21:55
这个东西要好好学习学习

作者: muye84 时间: 2013-4-3 22:26
收藏了~

本文章来自：精易论坛(http://125.confly.eu.org/forum.php?mod=viewthread&tid=116518）请保留此链接, 感谢!

作者: muye84 时间: 2013-4-3 22:28
收藏了~

本文章来自：精易论坛(http://125.confly.eu.org/forum.php?mod=viewthread&tid=116518）请保留此链接, 感谢!

作者: 回忆曾经の记忆 时间: 2013-4-4 08:42
学习学习喽!

作者: y928 时间: 2013-5-11 01:39
好东西顶一个{:soso_e179:}

作者: 739117563 时间: 2013-5-15 07:03
外网能用么？？想找外网能用的

作者: icesky33201 时间: 2013-5-16 09:15
好东西，下来研究研究

作者: 1312052689 时间: 2013-5-16 09:33
下载点怎么来的快啊？

作者: 1312052689 时间: 2013-5-16 09:33
下载点怎么来的快啊？

本文章来自：精易论坛(http://125.confly.eu.org/thread-6550-1-1.html）请保留此链接, 感谢!

作者: 凄海千秋QHQQ 时间: 2013-5-17 19:50
收下了 3Q

作者: 精易Evol 时间: 2013-5-17 20:02
如果 (客户端.连接 (编辑框1.内容, 到数值 (编辑框2.内容)) ＝真）），，这里的服务器地址怎样使用外网IP，一直木有搞懂，怎样实现在别人家使用，你懂

作者: 呔妃 时间: 2013-5-17 23:53
干什么用的不知道，不过貌似很厉害的样子

作者: 模拟小圣 时间: 2013-5-18 17:11
可以外网连接不。

作者: endtx 时间: 2013-5-20 11:05
不会弄客户端的问题

作者: xh5510 时间: 2013-5-21 17:56
来看看

作者: malu 时间: 2013-6-12 13:50

可以考虑

作者: RAP小Y 时间: 2013-6-13 21:50
好好学习看看

作者: 莫尔多瓦 时间: 2013-6-21 14:45

很好很强大

作者: 徐小志 时间: 2013-7-11 13:12
没下载点- -好东西，顶一个

作者: 徐小志 时间: 2013-7-11 13:17
为什么下不起- -

作者: 123v 时间: 2013-7-30 09:51

顶一个

作者: 123v 时间: 2013-7-30 09:52

再顶

作者: 123v 时间: 2013-7-30 09:53
再顶

作者: Jingyiq132 时间: 2015-3-2 20:06
,做的不错呀,兄弟......正在找这方面资料。就来了

作者: ASDHSA 时间: 2017-7-13 15:46
回复下载，看看源码。

作者: fusiyon 时间: 2018-6-20 10:57
,做的不错呀,兄弟..

作者: fusiyon 时间: 2018-6-20 11:00
做的不错呀,兄弟......

作者: xudaweia 时间: 2018-12-25 16:15
学习...........

作者: 墨尘新月 时间: 2019-1-10 16:58
坐个沙发,做的不错呀,兄弟......

作者: 墨尘新月 时间: 2019-1-10 16:58
太棒了正在找这方面资料

作者: a1074311366 时间: 2019-6-18 09:42
好东西，多谢分享

作者: qinpengfei39 时间: 2023-12-27 10:10
下载看看

作者: DECADEs 时间: 2024-11-12 03:29
66666666666666666

作者: DECADEs 时间: 2024-11-12 03:29
66666666666666666666

作者: pengdeyao 时间: 2025-3-10 01:23
感谢分享，~~

欢迎光临精易论坛 (https://125.confly.eu.org/)