Delphi AI 翻訳コンポーネント

uses
  sgcAI, sgcAI_OpenAI, sgcAI_OpenAI_Audio_Translator,
  sgcAI_AudioRecorder_MCI, sgcAI_TextToSpeech_System;

var
  Translator: TsgcAIOpenAITranslator;
begin
  Translator := TsgcAIOpenAITranslator.Create(nil);
  Translator.OpenAIOptions.ApiKey := 'sk-...';
  Translator.AudioRecorder := TsgcAudioRecorderMCI.Create(nil);
  Translator.TextToSpeech  := TsgcTextToSpeechSystem.Create(nil);

  Translator.OnAudioStart  := TranslatorAudioStart;
  Translator.OnAudioStop   := TranslatorAudioStop;
  Translator.OnTranslation := TranslatorTranslation;

  Translator.TranslatorOptions.Translation.Model := 'gpt-transcribe';
  Translator.TranslatorOptions.Translation.ChatModel := 'gpt-6-luna';
  Translator.TranslatorOptions.Translation.Language := 'English';

  // Speak in any language: the audio is transcribed, the text is
  // translated into Language, then spoken back through TTS.
  Translator.Start;
end;