windows - Delphi中的文字转语音

Question

我正在改进我多年前构建的一个小型警报/提醒应用程序，我想每小时发出一次哔声，但与其发出哔声，它会更好地告诉时间。在 DELPHI D2007 或更高版本中是否有任何简单的方法可以做到这一点？

Answer 1

查看 Brian Long 教程的 Speech Synthesis & Speech Recognition Using SAPI 5.1

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

当我按下CTRL+时，它会读取剪贴板内容F10

Answer 2

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 3

不久前，我制作了一段视频，介绍如何让您的应用程序在 Delphi 中进行对话。我个人从未在我的一个应用程序中发现文本到语音的用途，但知道如何做是一件有趣的事情；-)

Answer 4

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

你也可以查看这个链接或者只是谷歌：“文本语音德尔福”

Answer 5

您可以将eSpeak与 Delphi 一起使用以支持更多语言和 Mac（希望将来支持 Linux）。Delphi 示例在这里。