OpenAI | Chat

Given a chat conversation, the model will return a chat completion response.

 

Simple Example

Interact with ChatGPT by sending a Hello message.

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

 

 

Advanced Example

Use the gpt-3-5 model to chat with more random output and generate 2 completions for each prompt.

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;