秋·風

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;