OpenAI | Chat

给定聊天对话后，模型将返回聊天补全响应。

 

简单示例

通过发送 Hello 消息与 ChatGPT 进行交互。

OpenAI := TsgcHTTP_API_OpenAI.Create(nil);
OpenAI.OpenAIOptions.ApiKey := 'API_KEY';
WriteLn(OpenAI._CreateChatCompletion('gpt-3.5-turbo', 'Hello!'));

 

 

高级示例

使用 gpt-3-5 模型进行聊天，输出随机性更高，并为每个提示词生成 2 个补全结果。

OpenAI := TsgcHTTP_OpenAI_JSON.Create(nil);
OpenAI.OpenAIOptions.ApiKey := 'API_KEY';
 
oRequest := TsgcOpenAIClass_Request_ChatCompletion.Create;
Try
  oRequest.Model := 'gpt-3.5-turbo';
  oMessage := TsgcOpenAIClass_Request_Completion_Message.Create;
  oMessage.Role := 'user';
  oMessage.Content := 'Hello!';
  oMessages := oRequest.Messages;
  SetLength(oMessages, 1);
  oMessages[0] := oMessage;
  oRequest.Messages := oMessages;
  oRequest.Temperature := 1;
  oRequest.N := 2; 
  oResponse := OpenAI.CreateChatCompletion(oRequest);
   
  if Length(oResponse.Choices) > 0 then
    WriteLn(oResponse.Choices[0]._Message.Content);
Finally
  oRequest.Free;
  oResponse.Free;
End;