如何更改spvoice语言

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，所以很明显，我仍然需要想办法让它正常工作。但这只是一个开始。。。