delphi - SAPI 与 Dephi : Async speech doesn't work

Question

以下内容完美运行(Delphi 7):

procedure TMainForm.SayIt(s:string); // s is the string to be spoken
var
voice: OLEVariant;
begin
  memo1.setfocus;
  voice := CreateOLEObject ('SAPI.SpVoice');
  voice.Voice := voice.GetVoices.Item(combobox1.ItemIndex); // current voice selected
  voice.volume := tbVolume.position;
  voice.rate := tbRate.position;
  voice.Speak (s, SVSFDefault);
end;

上面的工作在“同步”模式(SVSFDefault 标志)，但如果我将标志更改为 SVSFlagsAsync 尝试在异步模式下播放声音，则不会产生声音。没有给出错误消息，但扬声器上没有播放任何内容。

问题可能是什么？我在 Delphi 的 Imports 文件夹中有 SpeechLib_TLB 单元。

编辑:这是在 Windows XP 中

谢谢， 布鲁诺。

Answer 1

当您使用SVSFlagsAsync时标志，语音流在内部缓冲区中排队并等待语音服务执行，所以我认为您的问题与语音对象的生命周期有关，因为是一个局部变量，实例在之前被销毁执行声音。

作为解决方法，您可以使用 WaitUntilDone 等待声音。方法

  voice.Speak (s, SVSFlagsAsync);
  repeat  Sleep(100); until  voice.WaitUntilDone(10);

或在表单定义中声明voice变量。

  TMainForm = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   voice: OLEVariant;
   procedure SayIt(const s:string);
  end;

var
  MainForm: TMainForm;

implementation

uses
   ComObj;

{$R *.dfm}
procedure TMainForm.SayIt(const s:string); // s is the string to be spoken
const
  SVSFDefault = 0;
  SVSFlagsAsync = 1;
  SVSFPurgeBeforeSpeak= 2;
begin
  memo1.setfocus;
  voice.Voice := voice.GetVoices.Item(combobox1.ItemIndex); // current voice selected
  voice.volume := tbVolume.position;
  voice.rate := tbRate.position;
  voice.Speak (s, SVSFlagsAsync {or SVSFPurgeBeforeSpeak});
end;


procedure TMainForm.Button1Click(Sender: TObject);
begin
  SayIt('Hello');
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  voice := CreateOLEObject('SAPI.SpVoice');
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  voice  := Unassigned;
end;

end.

作为补充说明，由于您使用的是后期绑定(bind)，因此不需要 SpeechLib_TLB 单元。