易语言服务器发送数据()的问题

易语言服务器发送数据()的问题,第1张

第一个程序

编辑框1用来显示文件路径

编辑框2用来显示对方发来的文本

按钮1用来浏览文件

按钮2用来发送文件

此外还有服务器 通用对话框

版本 2

程序集 窗口程序集1

子程序 _按钮1_被单击

通用对话框1打开 ()

编辑框1内容 = 通用对话框1文件名

子程序 _按钮2_被单击

服务器1发送数据 (客户IP, 读入文件 (通用对话框1文件名), 1000)

信息框 (“发送成功”, 0, )

子程序 _服务器1_数据到达

局部变量 file, 字节集

file = 服务器1取回数据 ()

编辑框2内容 = 到文本 (file)

信息框 (“数据到达”, 0, )

第二个程序

编辑框1用来显示保存文件的路径

编辑框2用来显示发送的文本

按钮1用来发送文本

此外还有通用对话框 客户

版本 2

程序集 窗口程序集1

子程序 _按钮1_被单击

客户1连接 (用户IP, 19730)

客户1发送数据 (编辑框1内容)

信息框 (“已发送”, 0, )

子程序 _客户1_数据到达

局部变量 file, 字节集

file = 客户1取回数据 ()

通用对话框1打开 ()

编辑框1内容 = 通用对话框1文件名

信息框 (“已保存”, 0, )

我试过了,可以的……

在使用时可以将“客户IP”与“用户IP”替换成想要的IP地址就可以了 IP为文本型

服务器代码如下:

版本 2

子程序 _服务器1_数据到达

局部变量 待分割数据, 字节集

局部变量 分割数据, 字节集, , "0"

局部变量 文件1, 字节集

局部变量 文件2, 字节集

待分割数据 = 服务器1取回数据 ()

分割数据 = 分割字节集 (服务器1取回数据 (), 到字节集 (“&分割号&”), )

如果真 (取数组成员数 (分割数据) = 3)

文件1 = 分割数据 [1]

文件2 = 分割数据 [2]

文件3 = 分割数据 [3]

客服端代码如下:

版本 2

子程序 _按钮1_被单击

客户1发送数据 (“文件1” + “&分割号&” + “文件2” + “&分割号&” + “文件3”)

思路就是这样,应该会看明白吧

其实计算机内数据都是通过机器语言传递的,因此都为2进制所谓传16进数据,不过在接收端转换回来

易语言中好象有个正则表达式支持库提供转换命令,你在工具_支持库管理_把正则表达式支持库勾上

DABAN RP主题是一个优秀的主题,极致后台体验,无插件,集成会员系统
网站模板库 » 易语言服务器发送数据()的问题

0条评论

发表评论

提供最优质的资源集合

立即查看 了解详情