App Inventor 2 调用大模型API教程 - 阿里云百练等LLM集成

设 API_URL = "https://dashscope.aliyuncs.com/compatible-mode/v1/chat/completions"
设 API_KEY = "sk-your-api-key"

当 按钮_发送.被点击
  设 用户消息 = 输入框_问题.文本
  设 请求体 = "{""model"":""qwen-plus"",""messages"":[{""role"":""user"",""content"":""" & 调用 Web1.网址编码(用户消息) & """}]}"
  
  设 Web_大模型.请求头 = [
    "Content-Type: application/json",
    "Authorization: Bearer " & API_KEY
  ]
  调用 Web_大模型.执行Post文本请求(API_URL, 请求体, "UTF-8")
  标签_状态.文本 = "正在思考..."

当 Web_大模型.收到文本(网址, 响应码, 响应类型, 响应内容)
  如果 响应码 = 200
    设 响应数据 = 调用 文本.从JSON解析(响应内容)
    设 选择列表 = 从字典 响应数据 获取 "choices"
    设 第一个选择 = 列表第1项(选择列表)
    设 消息 = 从字典 第一个选择 获取 "message"
    设 回复内容 = 从字典 消息 获取 "content"
    标签_回复.文本 = 回复内容
  否则
    标签_状态.文本 = "❌ 请求失败：" & 响应码

设 对话历史 = 创建空列表

当 按钮_发送.被点击
  设 用户消息 = 输入框_问题.文本
  
  ' 添加用户消息到历史
  设 对话历史 = 添加列表项(对话历史, 创建字典("role" → "user", "content" → 用户消息))
  
  ' 构建请求体
  设 消息JSON = 调用 列表转消息JSON(对话历史)
  设 请求体 = "{""model"":""qwen-plus"",""messages"":" & 消息JSON & "}"
  
  设 Web_大模型.请求头 = [
    "Content-Type: application/json",
    "Authorization: Bearer " & API_KEY
  ]
  调用 Web_大模型.执行Post文本请求(API_URL, 请求体, "UTF-8")

当 Web_大模型.收到文本(网址, 响应码, 响应类型, 响应内容)
  如果 响应码 = 200
    设 响应数据 = 调用 文本.从JSON解析(响应内容)
    设 选择列表 = 从字典 响应数据 获取 "choices"
   设 回复内容 = 从字典 从字典 列表第1项(选择列表) 获取 "message" 获取 "content"
    
    ' 添加助手回复到历史
    设 对话历史 = 添加列表项(对话历史, 创建字典("role" → "assistant", "content" → 回复内容))
    
    标签_回复.文本 = 回复内容

设 API_URL = "https://api.deepseek.com/v1/chat/completions"
设 API_KEY = "sk-your-deepseek-key"
' 请求格式与阿里云百练完全相同，只需改model为 "deepseek-chat"

当 Screen1.初始化
  设 LLMAI2Ext1.API地址 = "https://dashscope.aliyuncs.com/compatible-mode/v1"
  设 LLMAI2Ext1.API密钥 = "sk-your-key"
  设 LLMAI2Ext1.模型 = "qwen-plus"

当 按钮_发送.被点击
  调用 LLMAI2Ext1.对话(输入框_问题.文本)

当 LLMAI2Ext1.收到回复(回复)
  标签_回复.文本 = 回复