如何更改语音语言

Question

尝试使用Delphi 2010制作带有发音的俄语抽认卡。我可以将其用于英语。我在Win10上安装了俄语作为Text2Speech语言，但是我不知道如何切换语言。

这说：SpVoice1.Speak('Hello, what's up', SVSFDefault); 这是无声的：SpVoice1.Speak('Привет, как дела', SVSFDefault);

Answer 1

由于很难找到，我通过剖析别人的代码来回复自己的线程。我将其放在OnCreate事件中以更改声音：

procedure TForm1.FormCreate(Sender: TObject);
var
  AllVoices: ISpeechObjectTokens;
begin
  AllVoices := SpVoice1.GetVoices('', '');
  SpVoice1.Voice := AllVoices.Item(2);
end;

有效，因为在我的计算机上俄语声音恰好是2，所以显然我仍然需要弄清楚如何使其正常工作。但这是一个开始...