有大佬会qwen_vl_识别吗

我是滑稽人啊

写了一晚上了 还是没成功 几乎所有ai都用了找不到问题 一直出错 麻烦大佬帮忙看一下

  

子程序名	返回值类型	公开	备 注
qwen_vl_识别	文本型
参数名	类 型	参考	可空	数组	备 注
image_path	文本型
prompt	文本型

变量名	类 型	静态	数组	备 注
返回文本	文本型
Head	文本型
Data_Text	文本型
Data_Bytes	字节集
API_Token	文本型
file_data	字节集
image_base64	文本型
res_status	文本型
res_header	文本型

' ====================== 1. 初始化 ======================
API_Token ＝ “sk-46866799907b447ca1b867dfa7d88d09”
如果真 (prompt ＝ “”)
prompt ＝ “这张图片里有什么？”
如果真 (image_path ＝ “” 或 文件是否存在 (image_path) ＝ 假)
返回 (“错误：图片路径无效”)

' ====================== 2. 读图片+Base64 ======================
file_data ＝ 读入文件 (image_path)
如果真 (取字节集长度 (file_data) ＝ 0)
返回 (“错误：图片读取失败”)
如果真 (取字节集长度 (file_data) ＞ 1 × 1024 × 1024)  ' 【先试1MB以内的小图！】
返回 (“错误：请先使用小于1MB的图片测试”)

image_base64 ＝ 纯代码_Base64编码 (file_data)
如果真 (image_base64 ＝ “”)
返回 (“错误：Base64编码失败”)

' ====================== 3. 拼JSON文本 ======================
Head ＝ “Content-Type: application/json;charset=utf-8” ＋ #换行符
Head ＝ Head ＋ “Authorization: Bearer ” ＋ API_Token
Data_Text ＝ “{” ＋ #引号 ＋ “model” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “qwen-vl-plus” ＋ #引号 ＋ “, ” ＋ #引号 ＋ “input” ＋ #引号 ＋ “:{” ＋ #引号 ＋ “messages” ＋ #引号 ＋ “:[{ ” ＋ #引号 ＋ “role” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “user” ＋ #引号 ＋ “,” ＋ #引号 ＋ “content” ＋ #引号 ＋ “: [{” ＋ #引号 ＋ “image” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “data:image/jpeg;base64,” ＋ image_base64 ＋ #引号 ＋ “},{” ＋ #引号 ＋ “text” ＋ #引号 ＋ “: ” ＋ #引号 ＋ prompt ＋ #引号 ＋ “ }]}]}}}”
' ====================== 【核心双保险！】强制转UTF-8无BOM字节集 ======================
Data_Bytes ＝ 到字节集 (Data_Text)
' ====================== 4. 改回网页_访问S，传字节集，看状态码 ======================
返回文本 ＝ 网页_访问S (“https://dashscope.aliyuncs.com/a ... neration/generation”, 1, Data_Text, , , Head, res_header, 假, , , , , , 30, , res_status)
' ====================== 5. 【调试必备】先看状态码和返回头 ======================
如果真 (返回文本 ＝ “”)
返回 (“请求无响应！状态码：” ＋ res_status ＋ “ | 返回头：” ＋ res_header)

返回 (返回文本)
' ====================== 纯代码无换行Base64 ======================

子程序名	返回值类型	公开	备 注
纯代码_Base64编码	文本型
参数名	类 型	参考	可空	数组	备 注
源字节集	字节集

变量名	类 型	静态	数组	备 注
码表	文本型
结果	文本型
源长度	整数型
i	整数型
字节1	整数型
字节2	整数型
字节3	整数型
索引1	整数型
索引2	整数型
索引3	整数型
索引4	整数型

码表 ＝ “ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”
源长度 ＝ 取字节集长度 (源字节集)
结果 ＝ “”
i ＝ 1
判断循环首 (i ≤ 源长度)
字节1 ＝ 取字节集数据 (源字节集, #字节型, i)
索引1 ＝ 右移 (字节1, 2)
如果 (i ＋ 1 ≤ 源长度)
字节2 ＝ 取字节集数据 (源字节集, #字节型, i ＋ 1)
索引2 ＝ 位或 (左移 (位与 (字节1, 3), 4), 右移 (字节2, 4))
如果 (i ＋ 2 ≤ 源长度)
字节3 ＝ 取字节集数据 (源字节集, #字节型, i ＋ 2)
索引3 ＝ 位或 (左移 (位与 (字节2, 15), 2), 右移 (字节3, 6))
索引4 ＝ 位与 (字节3, 63)
结果 ＝ 结果 ＋ 取文本中间 (码表, 索引1 ＋ 1, 1) ＋ 取文本中间 (码表, 索引2 ＋ 1, 1) ＋ 取文本中间 (码表, 索引3 ＋ 1, 1) ＋ 取文本中间 (码表, 索引4 ＋ 1, 1)
索引3 ＝ 左移 (位与 (字节2, 15), 2)
结果 ＝ 结果 ＋ 取文本中间 (码表, 索引1 ＋ 1, 1) ＋ 取文本中间 (码表, 索引2 ＋ 1, 1) ＋ 取文本中间 (码表, 索引3 ＋ 1, 1) ＋ “=”

索引2 ＝ 左移 (位与 (字节1, 3), 4)
结果 ＝ 结果 ＋ 取文本中间 (码表, 索引1 ＋ 1, 1) ＋ 取文本中间 (码表, 索引2 ＋ 1, 1) ＋ “==”

i ＝ i ＋ 3
判断循环尾 ()
' 彻底清理
结果 ＝ 子文本替换 (结果, #换行符, “”, , , 假)
结果 ＝ 子文本替换 (结果, 字符 (9), “”, , , 假)
结果 ＝ 子文本替换 (结果, 字符 (13), “”, , , 假)
返回 (结果)

.版本 2<br /> <br /> .子程序 qwen_vl_识别, 文本型, 公开<br /> .参数 image_path, 文本型, 可空<br /> .参数 prompt, 文本型, 可空<br /> .局部变量 返回文本, 文本型<br /> .局部变量 Head, 文本型<br /> .局部变量 Data_Text, 文本型<br /> .局部变量 Data_Bytes, 字节集<br /> .局部变量 API_Token, 文本型<br /> .局部变量 file_data, 字节集<br /> .局部变量 image_base64, 文本型<br /> .局部变量 res_status, 文本型<br /> .局部变量 res_header, 文本型<br /> <br /> ' ====================== 1. 初始化 ======================<br /> API_Token ＝ “sk-46866799907b447ca1b867dfa7d88d09”<br /> .如果真 (prompt ＝ “”)<br />     prompt ＝ “这张图片里有什么？”<br /> .如果真结束<br /> .如果真 (image_path ＝ “” 或 文件是否存在 (image_path) ＝ 假)<br />     返回 (“错误：图片路径无效”)<br /> .如果真结束<br /> <br /> ' ====================== 2. 读图片+Base64 ======================<br /> file_data ＝ 读入文件 (image_path)<br /> .如果真 (取字节集长度 (file_data) ＝ 0)<br />     返回 (“错误：图片读取失败”)<br /> .如果真结束<br /> .如果真 (取字节集长度 (file_data) ＞ 1 × 1024 × 1024)  ' 【先试1MB以内的小图！】<br />     返回 (“错误：请先使用小于1MB的图片测试”)<br /> .如果真结束<br /> <br /> image_base64 ＝ 纯代码_Base64编码 (file_data)<br /> .如果真 (image_base64 ＝ “”)<br />     返回 (“错误：Base64编码失败”)<br /> .如果真结束<br /> <br /> ' ====================== 3. 拼JSON文本 ======================<br /> Head ＝ “Content-Type: application/json;charset=utf-8” ＋ #换行符<br /> Head ＝ Head ＋ “Authorization: Bearer ” ＋ API_Token<br /> <br /> Data_Text ＝ “{” ＋ #引号 ＋ “model” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “qwen-vl-plus” ＋ #引号 ＋ “, ” ＋ #引号 ＋ “input” ＋ #引号 ＋ “:{” ＋ #引号 ＋ “messages” ＋ #引号 ＋ “:[{ ” ＋ #引号 ＋ “role” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “user” ＋ #引号 ＋ “,” ＋ #引号 ＋ “content” ＋ #引号 ＋ “: [{” ＋ #引号 ＋ “image” ＋ #引号 ＋ “: ” ＋ #引号 ＋ “data:image/jpeg;base64,” ＋ image_base64 ＋ #引号 ＋ “},{” ＋ #引号 ＋ “text” ＋ #引号 ＋ “: ” ＋ #引号 ＋ prompt ＋ #引号 ＋ “ }]}]}}}”<br /> <br /> ' ====================== 【核心双保险！】强制转UTF-8无BOM字节集 ======================<br /> Data_Bytes ＝ 到字节集 (Data_Text)<br /> <br /> ' ====================== 4. 改回网页_访问S，传字节集，看状态码 ======================<br /> 返回文本 ＝ 网页_访问S (“https://dashscope.aliyuncs.com/a ... neration/generation”, 1, Data_Text, , , Head, res_header, 假, , , , , , 30, , res_status)<br /> <br /> ' ====================== 5. 【调试必备】先看状态码和返回头 ======================<br /> .如果真 (返回文本 ＝ “”)<br />     返回 (“请求无响应！状态码：” ＋ res_status ＋ “ | 返回头：” ＋ res_header)<br /> .如果真结束<br /> <br /> 返回 (返回文本)<br /> <br /> <br /> ' ====================== 纯代码无换行Base64 ======================<br /> <br /> .子程序 纯代码_Base64编码, 文本型<br /> .参数 源字节集, 字节集<br /> .局部变量 码表, 文本型<br /> .局部变量 结果, 文本型<br /> .局部变量 源长度, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 字节1, 整数型<br /> .局部变量 字节2, 整数型<br /> .局部变量 字节3, 整数型<br /> .局部变量 索引1, 整数型<br /> .局部变量 索引2, 整数型<br /> .局部变量 索引3, 整数型<br /> .局部变量 索引4, 整数型<br /> <br /> 码表 ＝ “ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”<br /> 源长度 ＝ 取字节集长度 (源字节集)<br /> 结果 ＝ “”<br /> i ＝ 1<br /> <br /> .判断循环首 (i ≤ 源长度)<br />     字节1 ＝ 取字节集数据 (源字节集, #字节型, i)<br />     索引1 ＝ 右移 (字节1, 2)<br /> <br />     .如果 (i ＋ 1 ≤ 源长度)<br />         字节2 ＝ 取字节集数据 (源字节集, #字节型, i ＋ 1)<br />         索引2 ＝ 位或 (左移 (位与 (字节1, 3), 4), 右移 (字节2, 4))<br /> <br />         .如果 (i ＋ 2 ≤ 源长度)<br />             字节3 ＝ 取字节集数据 (源字节集, #字节型, i ＋ 2)<br />             索引3 ＝ 位或 (左移 (位与 (字节2, 15), 2), 右移 (字节3, 6))<br />             索引4 ＝ 位与 (字节3, 63)<br />             结果 ＝ 结果 ＋ 取文本中间 (码表, 索引1 ＋ 1, 1) ＋ 取文本中间 (码表, 索引2 ＋ 1, 1) ＋ 取文本中间 (码表, 索引3 ＋ 1, 1) ＋ 取文本中间 (码表, 索引4 ＋ 1, 1)<br />         .否则<br />             索引3 ＝ 左移 (位与 (字节2, 15), 2)<br />             结果 ＝ 结果 ＋ 取文本中间 (码表, 索引1 ＋ 1, 1) ＋ 取文本中间 (码表, 索引2 ＋ 1, 1) ＋ 取文本中间 (码表, 索引3 ＋ 1, 1) ＋ “=”<br />         .如果结束<br /> <br />     .否则<br />         索引2 ＝ 左移 (位与 (字节1, 3), 4)<br />         结果 ＝ 结果 ＋ 取文本中间 (码表, 索引1 ＋ 1, 1) ＋ 取文本中间 (码表, 索引2 ＋ 1, 1) ＋ “==”<br />     .如果结束<br /> <br />     i ＝ i ＋ 3<br /> .判断循环尾 ()<br /> <br /> ' 彻底清理<br /> 结果 ＝ 子文本替换 (结果, #换行符, “”, , , 假)<br /> 结果 ＝ 子文本替换 (结果, 字符 (9), “”, , , 假)<br /> 结果 ＝ 子文本替换 (结果, 字符 (13), “”, , , 假)<br /> 返回 (结果)

liuyue5086

你apikey泄露了，赶紧去删除了吧，重置下key避免被他人盗用.....

xiaoyu1986

网址不全没法调试。看着没什么大问题。不过你还是把那个纯代码_Base64编码(file_data)换成 到文本 (编码_BASE64编码A (file_data))吧。另外试试把API_Tokenbase64编码一下看看。