以编程方式将新的 wordlist.txt 添加到 SAPI 字典

问题描述

我正在开发一个新的 Delphi 应用程序，它使用语音到文本听写作为其主要数据输入，所需的数据与医学术语特别相关，例如，用户只需要输入任何或所有这些词（高血压、中风、心脏病、肾病等）。由于我对 COM 对象编程的知识非常有限，因此我一直在寻找一种简单的解决方案来训练 sapi 5.4，通过制作文本词表并以编程方式将此列表引入 sapi 语音识别引擎来训练那些可能有数百个医学术语的医学术语。我希望它通过代码完成，而不是通过 sapi 培训窗口或向导。我尝试以下操作：通过将整个 wordlist.txt（大约 100,000 个单词）复制到名为 (WordList) 的 TFDTable 中，然后我运行此代码，但它无法运行且没有任何错误消息。

 Procedure TForm1.BtnClick( Sender : TObject );
Var
  Hr : HRESULT;
Begin
  Wordlist.First;
  While Not Wordlist.Eof Do
    Begin
      SpLexicon.AddPronunciation( Wordlist.FieldByName( 'Field1' )
          .Asstring,406,SPPS_Noun,'' );
      If Hr = S_OK Then
        Wordlist.Next
      Else
        Begin
          ShowMessage( 'Failed' );
          Exit
        End;
    End;
  ShowMessage( 'OK' );
End;

我做错了什么？预先非常感谢您。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

delphi sapi