文本到語音

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。