【新】易语言 调用 DeepSeek API 含深度思考与历史对话 2.0

AliGod

(2026年4月)实现 用 易语言 调用 DeepSeek API 含深度思考 与 历史对话功能。例程
调用 精益模块。(已与源码一同打包)


历史：
本源码根据 https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14848336 二次修复、优化、完善。然后有了v1版本https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14874358。
但这 v1版 存在严重BUG：
1、json转化问题，随便输入几个特殊字符（比如换行、回车符，/\、""等乱七八糟的东西）就直接报错了，导致无返回结果。
2、上个版本的编码_Utf8到Ansi调用的是易会开发支持库(yihui.fne)，而不是易语言自带的库，所以导致部分用户无法打开源码。

现重新修复并完善...就有了你现在看到的"v2版本" ! ~\(≥▽≤)/~
经过测试，多轮、多类型问答下基本无问题。(除了ai回复出现emoji表情，这个表情在易语言编辑框中显示为"???")...

使用方法：
在"DeepSeek 开放平台"https://platform.deepseek.com/api_keys 中获取你的key，然后粘贴到编辑框中即可正常使用。
注意：为了账号/财产安全，不建议把API key公开给他人或直接写在源码中。

shuidaxia

感谢分享，学习了

AliGod

小观众 发表于 2026-4-23 16:41
JSON转换还是有问题，提示：Failed to parse the request body as JSON: messages[1].content: control ch ...

json格式转换问题已修复。请将"json格式转换"子程序换成下面的：


.版本 2

.子程序 json格式转换, 文本型, , main | 将特殊字符转换为\n\t等，避免错误字符导致API报错
.参数 原文本, 文本型
.局部变量 字节集, 字节集
.局部变量 结果字节集, 字节集
.局部变量 i, 整数型
.局部变量 当前字节, 字节型

' 第一步：先转义反斜杠和双引号（在文本层面）
原文本 ＝ 文本_替换 (原文本, , , , “\”, “\\”)
原文本 ＝ 文本_替换 (原文本, , , , #引号, “\” ＋ #引号)

' 第二步：将文本转换为字节集（保留原始编码，通常是 ANSI/GBK）
字节集 ＝ 到字节集 (原文本)
结果字节集 ＝ {  }

' 第三步：遍历每个字节，只保留需要的字节
.计次循环首 (取字节集长度 (字节集), i)
    当前字节 ＝ 字节集
    ' 允许保留的字节：
    ' 9(\t), 10(\n), 13(\r) 以及 >=32 的可见字符（包括中文字节）
    .如果真 (当前字节 ≥ 32 或 当前字节 ＝ 9 或 当前字节 ＝ 10 或 当前字节 ＝ 13)
        结果字节集 ＝ 结果字节集 ＋ 到字节集 (字符 (当前字节))
        ' 否则：其他控制字符（0-8,11,12,14-31）直接丢弃
    .如果真结束

.计次循环尾 ()
' 第四步：将过滤后的字节集转回文本
原文本 ＝ 到文本 (结果字节集)
原文本 ＝ 文本_替换 (原文本, , , , #换行符, “\n”)  ' #换行符 是 \r\n
原文本 ＝ 文本_替换 (原文本, , , , 字符 (13), “\r”)
原文本 ＝ 文本_替换 (原文本, , , , 字符 (10), “\n”)
原文本 ＝ 文本_替换 (原文本, , , , 字符 (9), “\t”)
返回 (原文本)

AliGod

张张利利 发表于 2026-4-23 22:18
这个骂人的没素质的AI 边骂便给了个访问代码  注意 API 要收费的  才能用  玩玩一元就够了

子程序 _启动 ...

ai骂人，是用户给的提示词突破了它原本的限制...所以不能赖ai，赖用户给的提示词

网络注册网员

感谢分享

深圳梦

感谢分享，很给力！~

lrmsdyjd

3223232312231323211

张张利利

这个骂人的没素质的AI 边骂便给了个访问代码  注意 API 要收费的  才能用  玩玩一元就够了

子程序 _启动子程序, 整数型
.局部变量 返回文本, 文本型
.局部变量 请求地址, 文本型
.局部变量 请求数据, 文本型
请求地址 ＝ “https://api.openai.com/v1/completions”
请求数据 ＝ “{” ＋ #引号 ＋ “model” ＋ #引号 ＋ “:” ＋ #引号 ＋ “text-davinci-003” ＋ #引号 ＋ “,” ＋ #引号 ＋ “prompt” ＋ #引号 ＋ “:” ＋ #引号 ＋ “Say this is a test” ＋ #引号 ＋ “,” ＋ #引号 ＋ “max_tokens” ＋ #引号 ＋ “:7}”
.如果真 (HTTP访问 (请求地址, 请求数据, 返回文本, , “Authorization: Bearer 你的Key”) ＝ 假)
    输出调试文本 (“请求失败: ” ＋ 返回文本)
    返回 (0)
.如果真结束
输出调试文本 (“返回结果: ” ＋ 返回文本)
返回 (0)
.子程序 HTTP访问, 逻辑型, 公开
.参数 地址, 文本型
.参数 提交数据, 文本型
.参数 返回文本, 文本型, 参考
.参数 附加协议头, 文本型, 可空
.参数 自定义协议头, 文本型, 可空
.局部变量 WinHttp, 对象
.局部变量 返回数据, 字节集
WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, )
WinHttp.方法 (“Open”, “POST”, 地址, 假)
WinHttp.写属性 (“Option”, 6, 假)  ' 忽略证书错误
.如果真 (是否为空 (自定义协议头) ＝ 假)
    WinHttp.方法 (“SetRequestHeader”, “Content-Type”, “application/json”)
    WinHttp.方法 (“SetRequestHeader”, 取文本左边 (自定义协议头, 寻找文本 (自定义协议头, “:”, , 假) － 1), 取文本右边 (自定义协议头, 取文本长度 (自定义协议头) － 寻找文本 (自定义协议头, “:”, , 假)))
.否则
    .如果真 (是否为空 (附加协议头) ＝ 假)
        WinHttp.方法 (“SetRequestHeader”, 取文本左边 (附加协议头, 寻找文本 (附加协议头, “:”, , 假) － 1), 取文本右边 (附加协议头, 取文本长度 (附加协议头) － 寻找文本 (附加协议头, “:”, , 假)))
    .如果真结束
.如果结束
WinHttp.方法 (“Send”, 提交数据)
WinHttp.方法 (“WaitForResponse”, )
返回数据 ＝ WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
返回文本 ＝ 到文本 (返回数据)
返回 (真)

小虎来了

感谢分享啊

AliGod

shj0205 发表于 2026-4-23 10:46
需要充值不

deepseek API需要充值使用。钱是打给deepseek的。
但是也不贵，我几个月前就充了1块钱，用到现在还剩5毛...(但高频率大内容就不一定了)