文本到语音

Question

我正在改进多年前创建的小型警报/提醒应用程序，并且我想每小时发一次嘟嘟声，但不要发出哔哔声，它会更好。 在DELPHI D2007或更高版本中有没有简单的方法可以做到这一点？ 感谢

Answer 1

检查布赖恩龙教程的 Speech Synthesis & Speech Recognition Using SAPI 5.1

我用这个教程编写了一个文本语音软件。

当我按下CTRL 它读取剪贴板中的内容+ F10

Answer 2

在我的代码我使用MS Agent和TAgntSrvr组件： http://delphi.icm.edu.pl/ftp/d30free/agntsrvr.htm

您也可以围绕检查此link或只是谷歌：“文本语音德尔福”

Answer 3

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, ComObj; 

[...]

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Voice: Variant; 
begin 
    Voice := CreateOLEObject('SAPI.SpVoice'); 
    Voice.speak('Hello World'); 
end; 

Answer 4

我做了一段时间的视频回making your applications talk在Delphi。我个人还没有发现过的文本到语音的应用，我的应用程序之一，但它是一个有趣的事情就知道怎么做;-)

Answer 5

您可以使用eSpeak用Delphi，以支持更多的语言和Mac （并希望未来Linux）。德尔福的例子是here。