求助图床上传方法

xjwlkj

我自己试使用易语言上传图床一直传不了
求大佬帮写个传图床的，图床：https://pic.tl-science.asia/

婆过客

01.rar (228.28 KB, 下载次数: 4)

2024-11-17 10:36 上传

点击文件名下载附件

8881020

上传照片.e (1.08 MB, 下载次数: 1)

2024-11-17 10:47 上传

点击文件名下载附件

sgw15099991207

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
上传
参数名	类 型	参考	可空	数组	备 注
图片路径	文本型

变量名	类 型	静态	数组	备 注
提交数据	字节集
返回值	文本型

提交数据 ＝ 到字节集 ( #提交数据 )
提交数据 ＝ 子字节集替换 (提交数据, 到字节集 (“[img]”), 读入文件 (图片路径), , )
提交数据 ＝ 子字节集替换 (提交数据, 到字节集 (“[filename]”), 到字节集 (文件_取文件名 (图片路径, 真)), , )
返回值 ＝ 网页_访问S (“https://pic.tl-science.asia/api.php”, 1, , , , #协议头, , , , , , , , , , , , , , 提交数据, )
调试输出 (返回值)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果真 (通用对话框1.打开 ())
上传 (通用对话框1.文件名)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 上传<br /> .参数 图片路径, 文本型<br /> .局部变量 提交数据, 字节集<br /> .局部变量 返回值, 文本型<br /> <br /> 提交数据 ＝ 到字节集 (#提交数据)<br /> 提交数据 ＝ 子字节集替换 (提交数据, 到字节集 (“[img]”), 读入文件 (图片路径), , )<br /> 提交数据 ＝ 子字节集替换 (提交数据, 到字节集 (“[filename]”), 到字节集 (文件_取文件名 (图片路径, 真)), , )<br /> 返回值 ＝ 网页_访问S (“https://pic.tl-science.asia/api.php”, 1, , , , #协议头, , , , , , , , , , , , , , 提交数据, )<br /> 调试输出 (返回值)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果真 (通用对话框1.打开 ())<br />     上传 (通用对话框1.文件名)<br /> <br /> .如果真结束

xjwlkj

  

子程序名	返回值类型	公开	备 注
上传图床	文本型
参数名	类 型	参考	可空	数组	备 注
pic	字节集
是否成功	逻辑型

变量名	类 型	静态	数组	备 注
URL	文本型
返回结果	文本型
UA	文本型
HTTP协议头	文本型
cookies	文本型
POST数据	字节集
POST数据长度	文本型
json	zyJsonDocument

cookies ＝ “”
UA ＝ “Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36”
URL ＝ “https://pic.tl-science.asia/api.php”
POST数据 ＝ 到字节集 ( #数据头 ) ＋ pic ＋ 到字节集 ( #数据尾 )
POST数据长度 ＝ 到文本 (取字节集长度 (POST数据))
HTTP协议头 ＝ “Host: pic.tl-science.asia” ＋ #换行符 ＋ “Connection: keep-alive” ＋ #换行符 ＋ “Content-Length: ” ＋ POST数据长度 ＋ #换行符 ＋ “Accept: application/json, text/javascript, */*; q=0.01” ＋ #换行符 ＋ “Content-Type: multipart/form-data; boundary=----WebKitFormBoundarysBpi0KS9j04BzIjd” ＋ #换行符
返回结果 ＝ 到文本 (网页_访问 (URL, 1, , cookies, , HTTP协议头, , , POST数据, , ))
json.解析 (返回结果)
调试输出 (返回结果)
是否成功 ＝ json.取文本 (“status”) ＝ “success”
返回 (json.取文本 (“message”))

常量名称	常量值	公 开	备 注
数据尾	------WebKitFormBoundarysBpi0KS9j04BzIjdContent-Disposition: form-data; name="image"; filename="xtpic.jpg

Content-Type: image/jpeg
"

常量名称	常量值	公 开	备 注
数据头

------WebKitFormBoundarysBpi0KS9j04BzIjd--
"

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 上传图床, 文本型<br /> .参数 pic, 字节集<br /> .参数 是否成功, 逻辑型, 参考 可空<br /> .局部变量 URL, 文本型<br /> .局部变量 返回结果, 文本型<br /> .局部变量 UA, 文本型<br /> .局部变量 HTTP协议头, 文本型<br /> .局部变量 cookies, 文本型<br /> .局部变量 POST数据, 字节集<br /> .局部变量 POST数据长度, 文本型<br /> .局部变量 json, zyJsonDocument<br /> <br /> cookies ＝ “”<br /> UA ＝ “Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36”<br /> URL ＝ “https://pic.tl-science.asia/api.php”<br /> POST数据 ＝ 到字节集 (#数据头) ＋ pic ＋ 到字节集 (#数据尾)<br /> POST数据长度 ＝ 到文本 (取字节集长度 (POST数据))<br /> HTTP协议头 ＝ “Host: pic.tl-science.asia” ＋ #换行符 ＋ “Connection: keep-alive” ＋ #换行符 ＋ “Content-Length: ” ＋ POST数据长度 ＋ #换行符 ＋ “Accept: application/json, text/javascript, */*; q=0.01” ＋ #换行符 ＋ “Content-Type: multipart/form-data; boundary=----WebKitFormBoundarysBpi0KS9j04BzIjd” ＋ #换行符<br /> 返回结果 ＝ 到文本 (网页_访问 (URL, 1, , cookies, , HTTP协议头, , , POST数据, , ))<br /> json.解析 (返回结果)<br /> 调试输出 (返回结果)<br /> 是否成功 ＝ json.取文本 (“status”) ＝ “success”<br /> 返回 (json.取文本 (“message”))<br /> .版本 2<br /> <br /> .常量 数据尾, "------WebKitFormBoundarysBpi0KS9j04BzIjdContent-Disposition: form-data; name="image"; filename="xtpic.jpg"<br /> Content-Type: image/jpeg<br /> <br /> "<br /> .常量 数据头, "<br /> ------WebKitFormBoundarysBpi0KS9j04BzIjd--<br /> "