易语言-POST上传数据

.版本 2
.支持库 spec

.局部变量 数据包, 字节集
.局部变量 提交地址, 文本型
.局部变量 返回文本, 文本型
.局部变量 临时数据, 文本型
.局部变量 POST_分隔符, 文本型
.局部变量 换行符, 文本型
.局部变量 头部数据, 文本型

提交地址 ＝ “http://192.168.5.22/gm_cc_v02/upload_save_data.php”
' ’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘
POST_分隔符 ＝ “------------ei4cH2KM7gL6cH2ae0Ij5cH2cH2gL6”
换行符 ＝ 字符 (13) ＋ 字符 (10)
临时数据 ＝ 临时数据 ＋ “” ＋ POST_分隔符 ＋ 换行符
临时数据 ＝ 临时数据 ＋ “Content-Disposition: form-data; name=” ＋ #引号 ＋ “file_data” ＋ #引号 ＋ “; filename=” ＋ #引号 ＋ “d:\我的文档\桌面\hbluange.rar” ＋ #引号 ＋ 换行符
临时数据 ＝ 临时数据 ＋ “Content-Type: application/octet-stream” ＋ 换行符
临时数据 ＝ 临时数据 ＋ “” ＋ 换行符
' 调试输出 (临时数据)
数据包 ＝ 到字节集 (临时数据) ＋ 读入字节集 (打开文件 (“d:\我的文档\桌面\hbluange.rar”, #读入, ), 取文件长度 (打开文件 (“d:\我的文档\桌面\hbluange.rar”, #读入, )))