delphi - 将 SAPI 文本转语音本地化为西类牙语

Question

我已经通过以下代码成功地在 Delphi/Lazarus 中使用 SAPI 文本转语音:

procedure TForm1.Button1Click(Sender: TObject);
var
  SpVoice: Variant;
begin
  SpVoice := CreateOleObject('SAPI.SpVoice');
  SpVoice.Speak('Hello World!', 0);
end;  

此代码自动选择英语标准语音。由于我需要将其本地化为西类牙语，因此我调查了我的系统(带有标准西类牙语的 Windows XP)是否有西类牙语语音，或者我需要安装它，以及如何更改默认语音，但到目前为止还没有运气。因此我的问题是:

1. 我如何知道我的系统是否已安装西类牙语语音或我需要安装它？
2. 假设我安装了所需的语音，如何让 SAPI 使用该语音而不是标准语音？

我猜我可以使用以下代码获得西类牙语语音(C0A 是西类牙语代码):

SpVoice.GetVoices('','Language=C0A').Item(0)

但不知道如何设置要使用的语音。

编辑:为了避免混淆，我需要使其与 Delphi 和 Lazarus 兼容，成为最后一个主要开发工具。

Answer 1

没有免费提供的 SAPI 版本附带西类牙语语音。 SAPI 5.1 for XP 自带中英文语音； SAPI 5.3 和 SAPI 5.4 仅安装了英语语音。

您可以从 Cepstral 购买西类牙语语音(以及其他供应商)适用于任何版本的 SAPI 5。(我没有使用过这些声音，所以我不能保证这些声音的质量。)