使用 OpenAI 构建 AI 驱动的 Delphi 应用

2025年11月6日 · 组件

sgcAI OpenAI 组件使 Delphi 团队能够在现有 VCL 和 FMX 产品中融入自然语言理解、代码生成和对话流，快速交付智能、可盈利的用户体验。借助单一即插即用组件，SaaS 供应商无需重建基础设施，即可提供 AI 驱动的助手、自动化文档或多语言聊天功能。

OpenAI 组件为何能加速商业项目开发

更快上市：现成的 REST、WebSocket 和流式传输支持将集成时间从数周缩短至数小时。
企业级安全：TLS 1.3、HTTP/2 和代理兼容性在受监管的部署环境中保护客户数据。
可扩展的商业化：多租户 token 管理和速率限制使独立软件供应商能够将 AI 功能作为高级附加服务转售。
跨平台覆盖：同一组件适用于 Delphi 构建的 Windows、macOS、Linux、iOS 和 Android 目标平台。

在 Delphi 中准备 OpenAI 组件

安装最新的 sgcWebSockets 包，确保 sgcAI_OpenAI 单元在项目中可用。
在 OpenAI 控制台创建 OpenAI API 密钥并安全存储（环境变量、加密 INI 文件或密钥保管库）。
将 sgcAI.OpenAI 添加到窗体或数据模块的 uses 子句中。

配置示例（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 辅助工具、知识检索和音频转录打包为订阅层级，从而开辟新的收入来源。借助内置的分析事件和 token 计费，可以轻松衡量用户参与度、验证追加销售的价值，并构建个性化的客户成功工作流。