AI 聊天机器人组件
构建具有人性化交互的对话式 AI 界面。由领先 AI 模型驱动，原生集成于 Delphi 中。
构建具有人性化交互的对话式 AI 界面。由领先 AI 模型驱动，原生集成于 Delphi 中。
即插即用的语音聊天机器人 — 捕获麦克风音频，通过 Whisper 转写，发送到 ChatCompletions，再通过文本转语音提供商播放回答。
TsgcAIOpenAIChatBot
Voice front-end on top of OpenAI Whisper + Chat Completions
Windows, macOS, Linux, iOS, Android
Enterprise（AI 附加模块）
将 AudioRecorder + TextToSpeech 插入 TsgcAIOpenAIChatBot，设置 API 密鑰，调用 Start。
uses
sgcAI, sgcAI_OpenAI, sgcAI_OpenAI_Audio_ChatBot,
sgcAI_AudioRecorder_MCI, sgcAI_TextToSpeech_System;
var
ChatBot: TsgcAIOpenAIChatBot;
Recorder: TsgcAudioRecorderMCI;
TTS: TsgcTextToSpeechSystem;
begin
Recorder := TsgcAudioRecorderMCI.Create(nil);
TTS := TsgcTextToSpeechSystem.Create(nil);
ChatBot := TsgcAIOpenAIChatBot.Create(nil);
ChatBot.OpenAIOptions.ApiKey := 'sk-...';
ChatBot.AudioRecorder := Recorder;
ChatBot.TextToSpeech := TTS;
ChatBot.OnAudioStart := ChatBotAudioStart;
ChatBot.OnAudioStop := ChatBotAudioStop;
ChatBot.OnTranscription := ChatBotTranscription;
ChatBot.OnChatCompletion := ChatBotChatCompletion;
ChatBot.Start; // begin microphone capture; Stop ends it
// You can also push a turn programmatically:
ChatBot.ChatAsUser('Tell me a joke about Delphi');
end;
procedure TForm1.ChatBotChatCompletion(Sender: TObject;
const Role, Content: string);
begin
memoLog.Lines.Add(Role + ': ' + Content);
end;6 个发布属性、4 个方法、4 个事件 — 来自组件参考。
Published properties: OpenAIOptions, ChatBotOptions.
Published properties: Version.
Properties: TextToSpeech, AudioRecorder.
Properties: Embeddings.
Methods: ChatAsUser, ChatAsSystem.
Methods: Start, Stop.
本组件所实现协议的权威参考来源。