OpenAI-Delphi

A simple wrapper for the GPT-3 OpenAI API using Delphi.

2023-10-03 - Demo is now working with ChatGPT

This library should wrapper all the API requests. All the returning data will be translated into a memory table/dataset for easly of handling.

We are going to cover the following requests:

1. Engines ✓
2. Completions ✓
3. Search
4. Classifications
5. Answers
6. Files
7. Images ✓
8. Chat ✓

The demo provided still doesn't have the Chat API yet, so follow the lib, it's a bit similar the Completions.

IMPORTANT: to use GPT-3 you'll need to have your own API key. Please go to https://www.openai.com/.

Understand that I am not an AI (even GPT-3) expert. This work was done so I could learn about. Please follow the OpenAI documentation for doubts. Eventually Not all the features/attributes could be available througout the requests.

Simple example of use:

Initialize the wrapper:

// Store your key safely. Never share or expose it!
procedure TfrmDemoOpenAI.InitOpenAI;
begin
  OpenAIKey := TFile.ReadAllText(API_KEY);
  OpenAI := TOpenAI.Create(FDMemTable1);
  OpenAI.APIKey := OpenAIKey;
  OpenAI.Endpoint := OpenAI_PATH;
  OpenAI.Engine := TOAIEngine.egTextDavinci002;
  OpenAI.OnResponse := OnOpenAIResponse;
end;

Example on how to use ChatGPT: See: https://platform.openai.com/docs/guides/chat/introduction

procedure TfrmDemoOpenAI.CreateChatGPT;
begin
   OpenAI.Engine := TOAIEngine.egGPT3_5Turbo;
   OpenAI.RequestType := orChat;
   
   OpenAI.Chat.ClearMessages;

   OpenAI.Chat.AddMessage('You are a helpful assistant.', TMessageRole.mrSystem);   
   OpenAI.Chat.AddMessage('Who won the world series in 2020?', TMessageRole.mrUser);
   OpenAI.Chat.AddMessage('The Los Angeles Dodgers won the World Series in 2020.', TMessageRole.mrAssistant);

   TThread.CreateAnonymousThread(
   procedure
   begin
	OpenAI.Execute;
   end).Start;
end;

procedure TfrmDemoOpenAI.OnOpenAIResponse(Sender: TObject);
var
   lResponses: TArray<String>;
   text: String;
begin
   lResponses := OpenAI.GetChatResult;
   for texto in lResponses do
      Memo1.lines.add(Texto + #13);
   Memo1.lines.add('');
end;

Example on how to create an completion:

procedure TfrmDemoOpenAI.CreateCompletions;
var
   Completions: TCompletions;
begin
   Completions := TCompletions.Create;
   Completions.Prompt := 'Once upon a time';
   Completions.MaxTokens := 64;
   Completions.SamplingTemperature := 1; // Default 1
   Completions.NucleusSampling := 1; // top_p
   
   // Do the job!
   OpenAI.RequestType := rCompletions;
   OpenAI.Execute;
end;

Quite easy, right? Well, feel free to open a push request if there's anything you want to contribute.

---

This library is licensed under Creative Commons CC-0 (aka CC Zero), which means that this a public dedication tool, which allows creators to give up their copyright and put their works into the worldwide public domain. You're allowed to distribute, remix, adapt, and build upon the material in any medium or format, with no conditions.