Delphi および Lazarus/FPC 用の OpenAI。

OpenAI for Delphi は、Delphi および Lazarus/FPC (Free Pascal Compiler) から OpenAI API に接続するためのクライアントライブラリです。このライブラリを使用すると、ChatGPT などの一般的な OpenAI サービスを Delphi または Lazarus アプリケーションから直接使用できます。

これは非公式のライブラリです。 OpenAI は、Delphi 用の公式ライブラリを提供していません。

インストール

ライブラリを使用するには、ソースフォルダーを IDE ライブラリパスまたはプロジェクトのソースパスに追加するだけです。

使用法

クライアントを使用するには、ユニットOpenAIClientおよびOpenAIDtosユニットの uses 句に追加します。

 uses 
  OpenAIClient, OpenAIDtos;

クライアントの作成

ライブラリは、Web サイトで入手できるアカウントの秘密 API キーを使用して構成する必要があります。 OPENAI_API_KEYという名前の環境変数として設定することをお勧めします。 API キーを取得したら、クライアントを作成し、次のようにキーを設定します。

 var
  Client: IOpenAIClient;
{ ... }
  Client := TOpenAIClient.Create;
  Client.Config.AccessToken := GetEnvironmentVariable( ' OPENAI_API_KEY ' );

メソッドの実行

OpenAI API エンドポイントのほとんどは、 OpenAIプロパティで提供されるインターフェイスの下でクライアントで使用できます。次の例は、CreateCompletion エンドポイントを使用して質問し、回答を受け取る方法を示しています。

 function AskQuestion ( const Question: string): string;
var
  Request: TCreateCompletionRequest;
  Response: TCreateCompletionResponse;
begin
  Response := nil ;
  Request := TCreateCompletionRequest.Create;
  try
    Request.Prompt := Question;
    Request.Model := ' text-davinci-003 ' ;
    Request.MaxTokens := 2048 ; // Be careful as this can quickly consume your API quota.
    Response := Client.OpenAI.CreateCompletion(Request);
    if Assigned(Response.Choices) and (Response.Choices.Count > 0 ) then
      Result := Response.Choices[ 0 ].Text
    else
      Result := ' ' ;
  finally
    Request.Free;
    Response.Free;
  end ;
end ;

作成され入力パラメータとして渡されたすべてのオブジェクト、およびクライアントによって作成され関数の結果として提供されたすべてのオブジェクトは、ユーザーが破棄する必要があります。破棄しないと、メモリリークが発生します。

Delphiコード補完を使用すると、利用可能なメソッド、パラメータ、型を確認し、ドキュメントのコメントを読むことができます。

要件

このライブラリにはサードパーティのライブラリは必要ありません。これは、ユニット ( System.Net.HttpClient ) と Lazarus/FPC を提供するすべての最新の Delphi バージョンで動作します。完全にはテストされていませんが、サポートされているすべてのプラットフォーム (Windows、Linux、macOS など) でも動作するはずです。

ライブラリには秘密 API キーが必要であるため、セキュリティリスクについて確信がない限り、秘密キーが公開されてしまうため、クライアントアプリケーションで使用することはお勧めできません。

カスタマイズをリクエストする

独自のリクエストファクトリを使用して、独自のニーズに合わせてリクエストをカスタマイズできます。インターフェイスIRestRequestFactoryを実装し、それをプロパティConfig.RequestFactoryに設定するだけです。

たとえば、カスタム組織 (HTTP ヘッダーで提供される) をセットアップする場合のサンプルコードは次のとおりです。

 uses { ... } , OpenApiRest;

type
  TMyRequestFactory = class (TInterfacedObject, IRestRequestFactory)
  strict private
    FFactory: IRestRequestFactory;
  public
    constructor Create(AFactory: IRestRequestFactory);
    function CreateRequest : IRestRequest;
  end ;

constructor TMyRequestFactory.Create(AFactory: IRestRequestFactory);
begin
  FFactory := AFactory;
end ;

function TMyRequestFactory.CreateRequest : IRestRequest;
begin
  Result := FFactory.CreateRequest;
  Result.AddHeader( ' OpenAI-Organization ' , ' org-nUilalMOTvqGjGeAopTDIsSB ' );
end ;

// Set it after creating the client
    FClient := TOpenAIClient.Create;
    FClient.Config.RequestFactory := TMyRequestFactory.Create(FClient.Config.RequestFactory);

Delphi での WhatsApp との統合

WPPConnect-Team の WPP4Delphi で openai-delphi を使用する例

Delphi を使用して WhatsApp Web に統合されたメッセージを送信するためのコンポーネントオープンソース

例: デモビュー

Delphi でのコード例:

 if SwtChatGPT.IsOn then
begin
if Question <> '' then
begin
	//Credits --> https://github.com/landgraf-dev/openai-delphi
	Answer      := AskQuestion(Question, AChat.id);
	phoneNumber := Copy(Answer, 1, pos('#', Answer)-1);
	Answer      := StringReplace(Answer, phoneNumber + '#', '',[]);

	if Trim(Answer) <> '' then
	frDemo.TWPPConnect1.SendTextMessageEx(phoneNumber, '?' + ' *ChatGPT* ' + Answer, 'createChat: true', '123')
	else
	frDemo.TWPPConnect1.SendTextMessageEx(phoneNumber, '?' + ' *ChatGPT* ' + 'Could not retrieve an answer.', 'createChat: true', '123');

end;
end;

WPP4Delphi でコードを完成させる

拡大する

追加情報