易语言服务器和客户端怎么发送文件

客户端.发送数据（到字节集（“标识”+“文件名称”+“|”）+读入文件（路径））

-------------------------服务器端

未处理=服务器.取回数据（）

如果真（“标识”=到文本（取字节集左边（未处理，4））

数组=分割字节集（取字节集右边（未处理，取字节集长度（未处理）-4），到字节集（“|”））

写到文件（取运行目录（）+“\”+到文本（数组[1]）,数组[2]）

.版本 2

.支持库 downlib

.支持库 iext

.支持库 internet

.程序集变量 上传文件, FTP上传对象

.程序集变量 参数, 任务参数

.子程序 上传

参数.类型 ＝ 2 ＋ 3 ' 参数详见提示

参数.传送类型 ＝ 1

参数.文件地址 ＝ “ftp://” ＋ FTP地址 ＋ “/” ＋ FTP账号 ＋ “/1/1.txt” ' 这里是FTP服务器路径，可以修改。

参数.用户名 ＝ FTP账号

参数.用户密码 ＝ FTP密码

参数.本地文件路径 ＝ “c:\1.txt” ' 这里的文件名是需要上传的文件路径，可以修改。

参数.线程等待超时 ＝ 1000

透明标签1.标题 ＝ “正在连接服务器...”

透明标签2.标题 ＝ “正在上传文件...”

.判断开始 (连接FTP服务器 (FTP地址, FTP账号, FTP密码, , ))

透明标签1.标题 ＝ “已连接！”

输出调试文本 (FTP取现行目录 () ＋ “aaa”)

.默认

透明标签1.标题 ＝ “连接失败！”

返回 ()

.判断结束

' 双线内代码为测试服务器是否可用，可以不需要

上传文件.上传文件 (参数)

我这个方法可以保持原文件名不变

.版本

2

.支持库

shell

.局部变量

分割终对路径,

文本型,

,

"0"

通用对话框1.打开

()

分割终对路径

＝

分割文本

(通用对话框1.文件名,

“\”,

)

移动文件

(通用对话框1.文件名,

浏览文件夹

(“移动到”,

)

＋

“\”

＋

分割终对路径

[取数组成员数

(分割终对路径)])

---