【原创】lazarus调用deepseek持续对话的API

deepseek(只要接口兼容OpenAI接口的都可以使用这个方法)只需在messages一并提交上次返回的历史记录就可以：

procedure TLargeModelFrm.LoadLargeModelAPI(question,urls,APIkey,modelName:string);
var
  JSONRequest: TJSONObject;
begin
  if RequestBody<>nil then
    RequestBody.Free;
  RequestBody := TStringStream.Create('', TEncoding.UTF8);
  JSONRequest := TJSONObject.Create;

  try
    // 构建请求 JSON
    JSONRequest.Add('model', modelName);
    JSONRequest.Add('stream', true);
    JSONRequest.Add('messages',
      TJSONArray.Create([
        TJSONObject.Create(['role', 'assistant', 'content', assistantStr]), //一并提交上次对话历史记录
        TJSONObject.Create(['role', 'user', 'content', question])
      ]));
    JSONRequest.Add('temperature', 0.7);

    // 设置请求头和 URL
    RequestBody.WriteString(JSONRequest.AsJSON);

    //启用多线程提交查询的问题
    FHTTPThread := THTTPThread.Create(urls+'/v1/chat/completions',APIkey, RequestBody);
    FHTTPThread.OnStreamData := @HandleStreamData;//接收返回的答案

  finally
    JSONRequest.Free;
  end;
end;