易语言的一个字节集post访问,改写成E4A

小米加鸡蛋

  

子程序名	返回值类型	公开	备 注
上传文件	文本型
参数名	类 型	参考	可空	数组	备 注
服务器_地址	文本型
服务器文件名	文本型
本地文件路径	文本型
文件	字节集

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_方式	整数型
局_提交数据	字节集
ADD_协议头	类_POST数据类
局_提交协议头	文本型
局_结果	字节集
局_返回	文本型

局_网址 ＝ 服务器_地址
局_方式 ＝ 1
局_提交数据 ＝ 到字节集 (“----------------------------761452601140280315160516” ＋ #换行符 )
局_提交数据 ＝ 局_提交数据 ＋ 到字节集 (“Content-Disposition: form-data; name=” ＋ #引号 ＋ “file” ＋ #引号 ＋ “; filename=” ＋ #引号 ＋ 服务器文件名 ＋ #引号 ＋ “” ＋ #换行符 )
局_提交数据 ＝ 局_提交数据 ＋ 到字节集 (“Content-Type: image/jpeg” ＋ #换行符 ＋ “” ＋ #换行符 )
如果真 (文件 ≠ {  } 且 本地文件路径 ＝ “”)
局_提交数据 ＝ 局_提交数据 ＋ 文件 ＋ 到字节集 ( #换行符 )
如果真 (本地文件路径 ≠ “” 且 文件 ＝ {  })
局_提交数据 ＝ 局_提交数据 ＋ 读入文件 (本地文件路径) ＋ 到字节集 ( #换行符 )
局_提交数据 ＝ 局_提交数据 ＋ 到字节集 (“----------------------------761452601140280315160516”)
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”, )
ADD_协议头.添加 (“Content-Type”, “multipart/form-data; boundary=--------------------------761452601140280315160516”, )
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , , , 局_提交数据, , , , , , , , , )
局_返回 ＝ 到文本 (编码_Utf8到Ansi (局_结果))
返回 (局_返回)

.版本 2<br /> <br /> .子程序 上传文件, 文本型<br /> .参数 服务器_地址, 文本型<br /> .参数 服务器文件名, 文本型<br /> .参数 本地文件路径, 文本型, 可空<br /> .参数 文件, 字节集, 可空<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 局_提交数据, 字节集<br /> .局部变量 ADD_协议头, 类_POST数据类<br /> .局部变量 局_提交协议头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> <br /> 局_网址 ＝ 服务器_地址<br /> 局_方式 ＝ 1<br /> 局_提交数据 ＝ 到字节集 (“----------------------------761452601140280315160516” ＋ #换行符)<br /> 局_提交数据 ＝ 局_提交数据 ＋ 到字节集 (“Content-Disposition: form-data; name=” ＋ #引号 ＋ “file” ＋ #引号 ＋ “; filename=” ＋ #引号 ＋ 服务器文件名 ＋ #引号 ＋ “” ＋ #换行符)<br /> 局_提交数据 ＝ 局_提交数据 ＋ 到字节集 (“Content-Type: image/jpeg” ＋ #换行符 ＋ “” ＋ #换行符)<br /> .如果真 (文件 ≠ {  } 且 本地文件路径 ＝ “”)<br />     局_提交数据 ＝ 局_提交数据 ＋ 文件 ＋ 到字节集 (#换行符)<br /> .如果真结束<br /> .如果真 (本地文件路径 ≠ “” 且 文件 ＝ {  })<br />     局_提交数据 ＝ 局_提交数据 ＋ 读入文件 (本地文件路径) ＋ 到字节集 (#换行符)<br /> .如果真结束<br /> 局_提交数据 ＝ 局_提交数据 ＋ 到字节集 (“----------------------------761452601140280315160516”)<br /> ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”, )<br /> ADD_协议头.添加 (“Content-Type”, “multipart/form-data; boundary=--------------------------761452601140280315160516”, )<br /> 局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()<br /> 局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , , , 局_提交数据, , , , , , , , , )<br /> 局_返回 ＝ 到文本 (编码_Utf8到Ansi (局_结果))<br /> 返回 (局_返回)

易语言的一个字节集post访问,改写成E4A

4834

论坛比较少用原生组件做的登录UI，用EXUI打包时又要多带上一个文件，于是自己研究了一个，大佬勿喷。