Yapay Zeka ChatBot Bileşeni

İnsan benzeri etkileşimlerle konuşma tabanlı yapay zeka arayüzleri oluşturun. Önde gelen yapay zeka modelleriyle güçlendirilmiş, Delphi'de yerel olarak entegre edilmiştir.

TsgcAIOpenAIChatBot

Tak ve çalıştır sesli sohbet botu — mikrofon sesini yakalayın, Whisper ile metne dökün, ChatCompletions'a gönderin, yanıtı bir metinden konuşmaya sağlayıcısı aracılığıyla seslendirin.

Bileşen sınıfı

TsgcAIOpenAIChatBot

Protokol

OpenAI Whisper + Chat Completions üzerine kurulu ses ön yüzü

Platformlar

Windows, macOS, Linux, iOS, Android

Sürüm

Enterprise (yapay zeka eklentisi)

Bileşeni ekleyin, birkaç özellik ayarlayın, başlayın

Bir TsgcAIOpenAIChatBot içine bir AudioRecorder + TextToSpeech takın, API anahtarını ayarlayın, Start çağırın.

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;

İçeride neler var

6 yayımlanmış özellik, 4 metot, 4 olay — bileşen referansından alınmıştır.

Yapılandırma

Yayımlanmış özellikler: OpenAIOptions, ChatBotOptions.

Tanılama

Yayımlanmış özellikler: Version.

Ses

Özellikler: TextToSpeech, AudioRecorder.

RAG

Özellikler: Embeddings.

Sohbet

Metotlar: ChatAsUser, ChatAsSystem.

Oturum

Metotlar: Start, Stop.

Belirtimler ve referanslar

Bu bileşenin uyguladığı protokoller için yetkili kaynaklar.

Belgeler ve Demolar

Bileşen referansına doğrudan bağlanın, çalışmaya hazır demo projesini alın ve denemeyi indirin.

Çevrimiçi Yardım — TsgcAIOpenAIChatBot Bu bileşen için tam özellik, metot ve olay referansı.
Demo Projesi — Demos\AI\ChatBot Çalışmaya hazır örnek proje. sgcWebSockets paketinin içinde gelir, aşağıdan denemeyi indirin.
Teknik Belge (PDF) Özellikler, hızlı başlangıç, Delphi ve C++ Builder için kod örnekleri ve birincil kaynak referansları, yalnızca bu bileşen.
Kullanıcı Kılavuzu (PDF) Kütüphanedeki her bileşeni kapsayan kapsamlı kılavuz.

Bugün Yapay Zeka ChatBot'ları Oluşturmaya Başlayın

Ücretsiz denemeyi indirin ve Delphi uygulamalarınıza dakikalar içinde konuşma tabanlı yapay zeka ekleyin.