py调用deepseek-r1 api成功，谁能帮我转成易语言

违规用户名309721

说实话   研究的有点搞笑

谈谈的味道

可爱小姐姐 发表于 2025-2-3 13:03
[e=0].版本 2
.支持库 spec
.支持库 internet

eJSON分享下这个模块

麦八

.版本 2
.支持库 e2ee
.支持库 spec

.数据类型 消息类型
    .成员 角色, 文本型
    .成员 内容, 文本型

.子程序 调用DeepSeek_API, 文本型, 公开
.参数 消息数组, 消息类型, 数组
.局部变量 URL, 文本型
.局部变量 请求头, 文本型
.局部变量 请求数据, 文本型
.局部变量 JSON, Json对象
.局部变量 响应内容, 文本型
.局部变量 响应JSON, Json对象
.局部变量 响应头, 文本型
.局部变量 状态码, 整数型
.局部变量 结果, 文本型

' 设置API地址和请求头
URL ＝ "http://api.bingapi.us.kg:2095/v1/chat/completions"
请求头 ＝ "Authorization: Bearer op_Fu0vdY7Gjko69IkYlg69Fr" ＋ #换行符 ＋ "Content-Type: application/json"

' 构造JSON请求数据
JSON.创建()
JSON.置文本 ("model", "deepseek-r1")
JSON.置数组 ("messages")

.计次循环首 (取数组成员数 (消息数组), 索引)
    JSON.加对象 ("messages")
    JSON.置文本 ("messages[" ＋ 到文本 (索引 － 1) ＋ "].role", 消息数组 [索引].角色)
    JSON.置文本 ("messages[" ＋ 到文本 (索引 － 1) ＋ "].content", 消息数组 [索引].内容)
.计次循环尾 ()

请求数据 ＝ JSON.到JSON文本 ()

' 发送POST请求（需要"网页访问"支持库）
响应内容 ＝ 到文本 (网页_访问 (URL, 1, 请求数据, , , 请求头, 响应头, , 真, , 300))

' 获取HTTP状态码
状态码 ＝ 取响应状态码(

我很低调

找不到  JSON.进入数组

可爱小姐姐

  

子程序名	返回值类型	公开	备 注
调用DeepSeek接口	文本型		返回助理回复内容
参数名	类 型	参考	可空	数组	备 注
消息数组	文本型

变量名	类 型	静态	数组	备 注
请求头	文本型
请求数据	文本型
JSON	类_json
消息数	整数型
i	整数型
响应内容	文本型
响应JSON	类_json
结果文本	文本型

' 构造请求头
请求头 ＝ "Authorization: Bearer op_Fu0vdY7Gjko69IkYlg69Fr" ＋ #换行符 ＋ "Content-Type: application/json"
' 创建请求数据
JSON.清除 ()
JSON.置属性 ("model", "deepseek-r1")
JSON.加成员 ("messages", "", 真)  ' 创建空数组
' 遍历消息数组填充数据
消息数 ＝ 取数组成员数 (消息数组)
计次循环首 (消息数, i)
JSON.进入数组 ("messages")
JSON.加成员对象 ()
JSON.置属性 ("role", 文本_取左边 (消息数组 [i], "|"))
JSON.置属性 ("content", 文本_取右边 (消息数组 [i], "|"))
JSON.退出数组 ()
计次循环尾 ()
请求数据 ＝ JSON.取数据文本 ()
' 发送POST请求
响应内容 ＝ 到文本 (网页_访问 ("http://api.bingapi.us.kg:2095/v1/chat/completions", 1, 请求数据, , , 请求头, , , , 300000))
' 调试输出响应内容
调试输出 ("API响应：", 响应内容)
' 解析响应JSON
如果 (响应JSON.解析 (响应内容))
如果 (响应JSON.取属性 ("error").取数据文本 () ≠ "null")
结果文本 ＝ "API返回错误：" ＋ 响应JSON.取属性 ("error").取数据文本 ()
如果 (响应JSON.取属性 ("choices[0].message.content").取数据文本 () ≠ "null")
结果文本 ＝ 响应JSON.取属性 ("choices[0].message.content").取文本 ()
结果文本 ＝ "响应中未找到有效回复内容"

结果文本 ＝ "响应JSON解析失败"

返回 结果文本
' 示例用法

子程序名	返回值类型	公开	备 注
示例调用

变量名	类 型	静态	数组	备 注
消息数组	文本型		0
返回内容	文本型

' 构造消息数组（格式：角色|内容）
加入成员 (消息数组, "system|You are a helpful assistant.")
加入成员 (消息数组, "user|写一个汽车广告")
返回内容 ＝ 调用DeepSeek接口 (消息数组)
调试输出 ("助理回复：", 返回内容)

i支持库列表	支持库注释
spec	特殊功能支持库
internet	互联网支持库
eJSON	(未知支持库)

.版本 2<br /> .支持库 spec<br /> .支持库 internet<br /> .支持库 eJSON<br /> <br /> .子程序 调用DeepSeek接口, 文本型, 公开, 返回助理回复内容<br /> .参数 消息数组, 文本型, 数组<br /> .局部变量 请求头, 文本型<br /> .局部变量 请求数据, 文本型<br /> .局部变量 JSON, 类_json<br /> .局部变量 消息数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 响应内容, 文本型<br /> .局部变量 响应JSON, 类_json<br /> .局部变量 结果文本, 文本型<br /> <br /> ' 构造请求头<br /> 请求头 ＝ "Authorization: Bearer op_Fu0vdY7Gjko69IkYlg69Fr" ＋ #换行符 ＋ "Content-Type: application/json"<br /> <br /> ' 创建请求数据<br /> JSON.清除 ()<br /> JSON.置属性 ("model", "deepseek-r1")<br /> JSON.加成员 ("messages", "", 真)  ' 创建空数组<br /> <br /> ' 遍历消息数组填充数据<br /> 消息数 ＝ 取数组成员数 (消息数组)<br /> .计次循环首 (消息数, i)<br />     JSON.进入数组 ("messages")<br />     JSON.加成员对象 ()<br />     JSON.置属性 ("role", 文本_取左边 (消息数组 <i>, "|"))<br />     JSON.置属性 ("content", 文本_取右边 (消息数组 <i>, "|"))<br />     JSON.退出数组 ()<br /> .计次循环尾 ()<br /> <br /> 请求数据 ＝ JSON.取数据文本 ()<br /> <br /> ' 发送POST请求<br /> 响应内容 ＝ 到文本 (网页_访问 ("http://api.bingapi.us.kg:2095/v1/chat/completions", 1, 请求数据, , , 请求头, , , , 300000))<br /> <br /> ' 调试输出响应内容<br /> 调试输出 ("API响应：", 响应内容)<br /> <br /> ' 解析响应JSON<br /> .如果 (响应JSON.解析 (响应内容))<br />     .如果 (响应JSON.取属性 ("error").取数据文本 () ≠ "null")<br />         结果文本 ＝ "API返回错误：" ＋ 响应JSON.取属性 ("error").取数据文本 ()<br />     .否则<br />         .如果 (响应JSON.取属性 ("choices[0].message.content").取数据文本 () ≠ "null")<br />             结果文本 ＝ 响应JSON.取属性 ("choices[0].message.content").取文本 ()<br />         .否则<br />             结果文本 ＝ "响应中未找到有效回复内容"<br />         .如果结束<br />     .如果结束<br /> .否则<br />     结果文本 ＝ "响应JSON解析失败"<br /> .如果结束<br /> <br /> 返回 结果文本<br /> <br /> ' 示例用法<br /> .子程序 示例调用<br /> .局部变量 消息数组, 文本型, , "0"<br /> .局部变量 返回内容, 文本型<br /> <br /> ' 构造消息数组（格式：角色|内容）<br /> 加入成员 (消息数组, "system|You are a helpful assistant.")<br /> 加入成员 (消息数组, "user|写一个汽车广告")<br /> <br /> 返回内容 ＝ 调用DeepSeek接口 (消息数组)<br /> <br /> 调试输出 ("助理回复：", 返回内容)