易语言文件和图片上传源码-配合PHP支持实现-文件上传-主流图片上传-全开源带验证 - 觅风论坛

.版本 2
.支持库 spec
.子程序上传图片文件, 逻辑型, , 上传图片到服务器
.参数图片地址, 文本型, 参考
.参数错误提示, 文本型, 可空
.局部变量分隔符, 文本型
.局部变量时间戳, 文本型
.局部变量 API_KEY, 文本型
.局部变量头信息, 文本型
.局部变量文件名, 文本型
.局部变量表单数据, 字节集
.局部变量上传结果, 字节集
.局部变量 json, 类_json
.局部变量 api地址, 文本型
api地址＝ “<a href="http://127.0.0.1/image_api.php" target="_blank">http://127.0.0.1/image_api.php</a>”
' 生成随机分隔符
分隔符＝ “---------------------------” ＋取十六进制文本 (取随机数 (100000000, 999999999))
时间戳＝时间_到时间戳 (取现行时间 (), 真, )
文件名＝文件_取文件名 (图片地址, 真)
API_KEY ＝校验_取md5 (到字节集 (时间戳＋ “QQ516221198_QUN1071098978” ＋文件名), , )
' 构造头信息
头信息＝ “X-API-TIMESTAMP: ” ＋时间戳＋ #换行符＋ “X-API-SIGNATURE: ” ＋ API_KEY ＋ #换行符＋ “Content-Type: multipart/form-data; boundary=” ＋分隔符
头信息＝头信息＋ #换行符＋ “User-Agent: Mozilla/5.0”
' 构造表单数据
表单数据＝到字节集 (“--” ＋分隔符＋ #换行符＋ “Content-Disposition: form-data; name=” ＋ #引号＋ “image” ＋ #引号＋ “; filename=” ＋ #引号＋文件名＋ #引号＋ #换行符＋ “Content-Type: application/octet-stream” ＋ #换行符＋ #换行符) ＋读入文件 (图片地址) ＋到字节集 (#换行符＋ “--” ＋分隔符＋ “--”)
' 发送POST请求
上传结果＝编码_编码转换对象 (网页_访问_对象 (api地址, 1, , , , 头信息, , , , 表单数据, , , , , , , , , ), , , )
json.解析 (到文本 (上传结果), , )
调试输出 (到文本 (上传结果))
.如果 (json.取属性对象 (“success”) ＝ “true”)
图片地址＝ json.取通用属性 (“['image_url']”, )
返回 (真)
.否则
图片地址＝ “”
错误提示＝ json.取通用属性 (“message”, )
.如果结束
返回 (假)
.子程序上传任何文件, 逻辑型, , 上传图片到服务器
.参数图片地址, 文本型, 参考
.参数错误提示, 文本型, 可空
.局部变量分隔符, 文本型
.局部变量时间戳, 文本型
.局部变量 API_KEY, 文本型
.局部变量头信息, 文本型
.局部变量文件名, 文本型
.局部变量表单数据, 字节集
.局部变量上传结果, 字节集
.局部变量 json, 类_json
.局部变量 api地址, 文本型
api地址＝ “<a href="http://127.0.0.1/File_api.php" target="_blank">http://127.0.0.1/File_api.php</a>”
' 生成随机分隔符
分隔符＝ “---------------------------” ＋取十六进制文本 (取随机数 (100000000, 999999999))
时间戳＝时间_到时间戳 (取现行时间 (), 真, )
文件名＝文件_取文件名 (图片地址, 真)
API_KEY ＝校验_取md5 (到字节集 (时间戳＋ “QQ516221198_QUN1071098978” ＋文件名), , )
' 构造头信息
头信息＝ “X-API-TIMESTAMP: ” ＋时间戳＋ #换行符＋ “X-API-SIGNATURE: ” ＋ API_KEY ＋ #换行符＋ “Content-Type: multipart/form-data; boundary=” ＋分隔符
头信息＝头信息＋ #换行符＋ “User-Agent: Mozilla/5.0”
' 构造表单数据
表单数据＝到字节集 (“--” ＋分隔符＋ #换行符＋ “Content-Disposition: form-data; name=” ＋ #引号＋ “file” ＋ #引号＋ “; filename=” ＋ #引号＋文件名＋ #引号＋ #换行符＋ “Content-Type: application/octet-stream” ＋ #换行符＋ #换行符) ＋读入文件 (图片地址) ＋到字节集 (#换行符＋ “--” ＋分隔符＋ “--”)
' 发送POST请求
上传结果＝编码_编码转换对象 (网页_访问_对象 (api地址, 1, , , , 头信息, , , , 表单数据, , , , , , , , , ), , , )
json.解析 (到文本 (上传结果), , )
调试输出 (到文本 (上传结果))
.如果 (json.取属性对象 (“success”) ＝ “true”)
图片地址＝ json.取通用属性 (“['file_url']”, )
返回 (真)
.否则
图片地址＝ “”
错误提示＝ json.取通用属性 (“message”, )
.如果结束
返回 (假)

复制代码