易语言服务器发送数据()的问题
第一个程序
编辑框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进数据,不过在接收端转换回来
易语言中好象有个正则表达式支持库提供转换命令,你在工具_支持库管理_把正则表达式支持库勾上
0条评论