delphi - 如何更改spvoice语言

Question

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

这会说话:SpVoice1.Speak('你好，怎么了', 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，所以显然我仍然需要弄清楚如何使其正常工作。但这只是一个开始......