Traduttore AI per Delphi

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';

  // Parla in qualsiasi lingua: l'audio viene trascritto, il testo viene
  // tradotto in Language e poi riprodotto tramite TTS.
  Translator.Start;
end;