OpenAI を使った AI 搭載 Delphi アプリの構築

2025年11月6日 · コンポーネント

sgcAI OpenAI コンポーネントを使用すると、Delphi チームは自然言語処理・コード生成・会話フローを既存の VCL・FMX 製品に組み込んだスマートなエクスペリエンスを迅速に提供できます。たった一つのドロップインコンポーネントで、SaaS ベンダーはインフラを再構築することなく、AI 駆動のアシスタント・自動ドキュメント生成・多言語チャットを提供できます。

OpenAI コンポーネントが商用プロジェクトを加速させる理由

市場投入の迅速化：REST・WebSocket・ストリーミングサポートが標準で用意されており、統合期間を数週間から数時間に短縮できます。
エンタープライズグレードのセキュリティ：TLS 1.3、HTTP/2、プロキシ互換性により、規制対象の展開環境でも顧客データを保護します。
スケーラブルな収益化：マルチテナントのトークン管理とレート制限により、ISV は AI 機能をプレミアムアドオンとして再販できます。
クロスプラットフォーム対応：同じコンポーネントが Delphi でビルドした Windows・macOS・Linux・iOS・Android ターゲットで動作します。

Delphi で OpenAI コンポーネントを準備する

最新の sgcWebSockets パッケージをインストールし、プロジェクトで sgcAI_OpenAI ユニットが使用可能であることを確認してください。
OpenAI ダッシュボードで OpenAI API キーを作成し、安全な場所（環境変数、暗号化された INI ファイル、またはシークレットボルト）に保管してください。
フォームまたはデータモジュールの uses 句に sgcAI.OpenAI を追加してください。

設定例（VCL フォーム）

下のスニペットは実行時に TsgcOpenAI コンポーネントを設定する例です。フォームに TButton、TMemo、TListBox を配置して会話を可視化してください。

uses
  System.SysUtils, sgcAI_OpenAI;
procedure TFormMain.FormCreate(Sender: TObject);
begin
  OpenAI := TsgcOpenAI.Create(Self);
  OpenAI.APIKey := GetEnvironmentVariable('OPENAI_API_KEY');
  OpenAI.DefaultModel := 'gpt-4o-mini';
  OpenAI.HTTP.Proxy.Host := 'proxy.company.local';
  OpenAI.HTTP.Proxy.Port := 8080;
  OpenAI.HTTP.Timeout := 15000;
  OpenAI.Streaming := True;
end;
procedure TFormMain.ButtonAskClick(Sender: TObject);
var
  LRequest: TsgcOpenAIChatRequest;
  LResponse: TsgcOpenAIChatResponse;
begin
  LRequest := TsgcOpenAIChatRequest.Create;
  try
    LRequest.Messages.Add('system', 'Answer as a senior support engineer.');
    LRequest.Messages.Add('user', MemoPrompt.Lines.Text);
    LResponse := OpenAI.Chat.Create(LRequest);
    try
      ListBoxHistory.Items.Add(LResponse.Choices[0].Message.Content);
    finally
      LResponse.Free;
    end;
  finally
    LRequest.Free;
  end;
end;

収益機会の拡大

Delphi ベンダーは AI コパイロット・ナレッジ検索・音声文字起こしをサブスクリプション階層としてパッケージ化することで、新たな収益源を開拓できます。組み込みの分析イベントとトークン管理により、エンゲージメントの測定・アップセルの根拠提示・パーソナライズされたカスタマーサクセスワークフローの構築が容易に行えます。