代码之家 › 专栏 › 技术社区 › Andreas Rejbrand

Delphi SAPI文本到语音

createoleobject sapi text-to-speech delphi

10

Andreas Rejbrand · 技术社区 · 14 年前

首先:这不是 Delphi and SAPI . 我对“Delphi中的SAPI”主题有一个特别的问题。

var
  SpVoice: TSpVoice;

我会写字

SpVoice.Speak('This is an example.', 1);

得到异步

第一个问题

根据文件,我可以写

SpVoice.Speak('This is an example.', 0);

同步音频输出,但我得到一个EZeroDivide异常。为什么?

第二个问题

但更重要的是,我希望能够动态地创建SpVoice对象(我认为这是为了“后期绑定”SpVoice对象),部分原因是我的应用程序的所有会话中只有一小部分会使用它,部分原因是我不想假设最终用户系统上存在SAPI服务器。

为此,我努力了

procedure TForm1.FormClick(Sender: TObject);
var
  SpVoice: Variant;
begin
  SpVoice := CreateOleObject('SAPI.SpVoice');
  SpVoice.Speak('this is a test', 0);
end;

显然什么都没做(将0替换为1会导致EZeroDivide异常。)

免责声明

更新

为了让每个人都能遇到和我一样的问题,弗兰的视频§ois解释说SAPI/Windows中有一个bug(某些地方不兼容),这使得下面的代码引发了EZeroDivide异常:

procedure TForm1.FormClick(Sender: TObject);
var
  SpVoice: variant;
begin
  SpVoice := CreateOleObject('SAPI.SpVoice');
  SpVoice.Speak('This is a text.');
end;

procedure TForm1.FormClick(Sender: TObject);
var
  SpVoice: variant;
  SavedCW: Word;
begin
  SpVoice := CreateOleObject('SAPI.SpVoice');
  SavedCW := Get8087CW;
  Set8087CW(SavedCW or $4);
  SpVoice.Speak('This is a text.');
  Set8087CW(SavedCW);
end;

另外,如果你想异步播放声音,那么你必须确保播放器没有超出范围!

2 回复 | 直到 7 年前

1

4

Francesca 14 年前

this CodeRage 4 session 在 "Speech Enabling Delphi Applications (zip)" 你会得到你想要的“操作方法”。。。 (我猜你是在Vista或+上,因为零除法在XP上没有发生)

2

1

Jan Goyvaerts 12 年前

Set8087CW(SavedCW or $4) 这个问题提出的解决办法对我不起作用。它只是用另一个浮点异常替换了除零异常。

对我来说成功的是:

SavedCW := Get8087CW;
SetFPUExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]);
SpVoice.Speak('All floating point exceptions disabled!', 0);
Set8087CW(SavedCW);