[新手]易语言40行代码对接deepseek官方接口+设定角色

KD飞飞

1.对接了deepseek官方接口
2.只使用精易模块
3.只支持少量单句对话 没有流，也没有记忆
4.可设置角色
5.协助新手更好理解入门 json解析和deepseek官方接口对接
代码回复可见，仅调用精易模块,不回复也可直接下载附件

1

  

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

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

变量名	类 型	静态	数组	备 注
返回内容	文本型
协议头	类_POST数据类
响应头	文本型
CDKEY	文本型
请求数据	文本型
响应状态码	整数型
错误信息	文本型
返回协议头内容	文本型
JSON	类_json
content内容	文本型

CDKEY ＝ “你的API ”  ' 替换为实际API密钥
协议头.添加 (“Content-Type”, “application/json”)
协议头.添加 (“Authorization”, “Bearer ” ＋ CDKEY)
' 拼接完整的请求数据
请求数据 ＝ #请求头 ＋ 编辑框1.内容 ＋ #请求尾
' 调试信息：输出请求数据
调试输出 (“请求数据：” ＋ 请求数据)
' 发送请求，禁止重定向
返回内容 ＝ 到文本 (编码_Utf8到Ansi (网页_访问_对象 (“https://api.deepseek.com/v1/chat/completions”, 1, 请求数据, , , 协议头.获取协议头数据 (), 返回协议头内容, 响应状态码, , , , )))
调试输出 (返回内容)
' 调试信息：输出响应状态码和响应头
调试输出 (“响应状态码：” ＋ 到文本 (响应状态码))
调试输出 (“响应状态码：” ＋ 到文本 (返回协议头内容))
如果 (响应状态码 ＝ 200)
' 解析JSON
如果 (JSON.解析 (返回内容))
content内容 ＝ JSON.取通用属性 (“choices[0].message.content”)
调试输出 (“content内容：”, content内容)
编辑框2.内容 ＝ content内容



信息框 (“JSON解析失败”, 0, , )

如果 (响应状态码 ＝ 404)
错误信息 ＝ “请求失败，状态码：404（未找到资源，请检查 URL 路径）”
错误信息 ＝ “请求失败，状态码：” ＋ 到文本 (响应状态码)
编辑框2.内容 ＝ 错误信息
调试输出 (错误信息)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 返回内容, 文本型<br /> .局部变量 协议头, 类_POST数据类<br /> .局部变量 响应头, 文本型<br /> .局部变量 CDKEY, 文本型<br /> .局部变量 请求数据, 文本型<br /> .局部变量 响应状态码, 整数型<br /> .局部变量 错误信息, 文本型<br /> .局部变量 返回协议头内容, 文本型<br /> .局部变量 JSON, 类_json<br /> .局部变量 content内容, 文本型<br /> <br /> CDKEY ＝ “你的API ”  ' 替换为实际API密钥<br /> 协议头.添加 (“Content-Type”, “application/json”)<br /> 协议头.添加 (“Authorization”, “Bearer ” ＋ CDKEY)<br /> ' 拼接完整的请求数据<br /> 请求数据 ＝ #请求头 ＋ 编辑框1.内容 ＋ #请求尾<br /> ' 调试信息：输出请求数据<br /> 调试输出 (“请求数据：” ＋ 请求数据)<br /> ' 发送请求，禁止重定向<br /> 返回内容 ＝ 到文本 (编码_Utf8到Ansi (网页_访问_对象 (“https://api.deepseek.com/v1/chat/completions”, 1, 请求数据, , , 协议头.获取协议头数据 (), 返回协议头内容, 响应状态码, , , , )))<br /> 调试输出 (返回内容)<br /> ' 调试信息：输出响应状态码和响应头<br /> 调试输出 (“响应状态码：” ＋ 到文本 (响应状态码))<br /> 调试输出 (“响应状态码：” ＋ 到文本 (返回协议头内容))<br /> .如果 (响应状态码 ＝ 200)<br />     ' 解析JSON<br />     .如果 (JSON.解析 (返回内容))<br />         content内容 ＝ JSON.取通用属性 (“choices[0].message.content”)<br />         调试输出 (“content内容：”, content内容)<br />         编辑框2.内容 ＝ content内容<br /> <br />     .否则<br /> <br />         信息框 (“JSON解析失败”, 0, , )<br />     .如果结束<br /> <br /> .否则<br />     .如果 (响应状态码 ＝ 404)<br />         错误信息 ＝ “请求失败，状态码：404（未找到资源，请检查 URL 路径）”<br />     .否则<br />         错误信息 ＝ “请求失败，状态码：” ＋ 到文本 (响应状态码)<br />     .如果结束<br />     编辑框2.内容 ＝ 错误信息<br />     调试输出 (错误信息)<br /> .如果结束

1

luigiyaoqi

谢谢分享，我试试看

王筅笙

感谢分享，很给力！

lm88818

        感谢分享，很给力！~

lyjzyq

6666666666666666666666666666666666666666666666

lyjzyq

6666666666666666666666666666666

lyjzyq

666666666666666666

cscscscs

支持一下厉害大哥

cscscscs

支持一下厉害大哥

sqg88

感谢分享，很给力！~

ghostw

感谢分享，很给力！~