Delphi 实现简易语音发音（基于TTS方式）

uses Comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
voice: OLEVariant;
begin
voice := CreateOLEObject('SAPI.SpVoice');
voice.Speak('Hello World!', 0);
end;

Delphi_TTS_1

unit Unit1; 

interface 

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Menus, OleCtrls, ACTIVEVOICEPROJECTLib_TLB; 

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Go1: TMenuItem;
    Alpha1: TMenuItem;
    N201: TMenuItem;
    N501: TMenuItem;
    N1001: TMenuItem;
    RT: TRichEdit;
    ss: TDirectSS;
    procedure RS(Sender: TObject);
    procedure N201Click(Sender: TObject);
    procedure N501Click(Sender: TObject);
    procedure N1001Click(Sender: TObject);
    procedure Go1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end; 

var
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.RS(Sender: TObject);
begin
rt.Width :=form1.Width -;
rt.Height :=form1.Height -;
end; 

procedure TForm1.N201Click(Sender: TObject);
begin
form1.AlphaBlendValue := ;
end; 

procedure TForm1.N501Click(Sender: TObject);
begin
form1.AlphaBlendValue := ;
end; 

procedure TForm1.N1001Click(Sender: TObject);
begin
form1.AlphaBlendValue := ;
end; 

procedure TForm1.Go1Click(Sender: TObject);
begin
ss.Speak(rt.Text);
end; 

end. 

SpeechLib_TLB控件效能

SpeechLib_TLB控件功能
我在Delphi编写的软件中用到SpeechLib_TLB，声音软件XPSpeech.msi，可以发出的声音不好听，而且声音很小，想请问是哪方面的原因，是XPSpeech.msi软件的原因吗？需要购买发声收费软件吗？
------解决方案--------------------------------------------------------

unit Ifly_Stts;

interface

implementation

// 各种声音格式

Const

 TTS_ADF_DEFAULT = ;

 TTS_ADF_PCM8K8B1C = ;

 TTS_ADF_PCM16K8B1C = ;

 TTS_ADF_PCM8K16B1C = ;

 TTS_ADF_PCM16K16B1C = ;

 TTS_ADF_PCM11K8B1C = ;

 TTS_ADF_PCM11K16B1C = ;

 TTS_ADF_ALAW16K1C = ;

 TTS_ADF_ULAW16K1C = ;

 TTS_ADF_ALAW8K1C = ;

 TTS_ADF_ULAW8K1C = ;

 TTS_ADF_ALAW11K1C = ;

 TTS_ADF_ULAW11K1C = ;

 TTS_ADF_ADPCMG7218K4B1C = ;

 TTS_ADF_ADPCMG7216K4B1C = ;

 TTS_ADF_ADPCMG7233B1C = ;

 TTS_ADF_ADPCMG7235B1C = ;

 TTS_ADF_VOX6K1C = ;

 TTS_ADF_VOX8K1C = ;

//文本内码

 TTS_CP_GB2312 = 

 TTS_CP_GBK = 

 TTS_CP_UNICODE = 

//'参数类型

 TTS_PARAM_LOCAL_BASE = &H0;

 TTS_PARAM_INBUFSIZE = &H1;

 TTS_PARAM_OUTBUFSIZE = &H2;

 TTS_PARAM_VID = &H3;

 TTS_PARAM_CODEPAGE = &H4;

 TTS_PARAM_AUDIODATAFMT = &H5;

 TTS_PARAM_SPEED = &H6;

 TTS_PARAM_AUDIOHEADFMT = &H7;

 TTS_PARAM_VOLUME = &H8;

 TTS_PARAM_PITCH = &H9;

type

//'================================================================

//' STTS Api 声明

//'================================================================

//' 初始化

function STTSInit():boolean;stdcall;

external 'STTSApi.dll';

//' 逆初始化

function STTSDeInit():boolean;stdcall;

external 'STTSApi.dll';

//' 建立与TTS服务器的连接

function  STTSConnect(sSerialNumber:string;sServerIP:string):Integer;stdcall; 

external 'STTSApi.dll';

//' 断开与TTS服务器的连接

Function STTSDisconnect(hTTSInstance:Integer):boolean;stdcall; 

external 'STTSApi.dll';

//' 设置本次连接的合成参数

Function STTSSetParam(hTTSInstance:integer;lngType:integer;lngParam:integer):Boolean;stdcall; 

external 'STTSApi.dll';

//' 获得本次连接的合成参数

Function STTSGetParam(hTTSInstance:Integer;lngType:integer;lngParam:integer):Boolean;stdcall; 

external 'STTSApi.dll';

//' 从字符串合成到音频文件

Function STTSString2AudioFile(hTTSInstance:Integer;sString:string;sWaveFile:string):Boolean;stdcall; 

external 'STTSApi.dll';

//' 从文本文件合成到音频文件

Function STTSFile2AudioFile(hTTSInstance:Integer;sTextFile:string;sWaveFile:string):Boolean;stdcall; 

external 'STTSApi.dll';

//'播放字符串

Function STTSPlayString(hTTSInstance:Integer;sTextFile:string;bAsynch:Boolean):Boolean;stdcall; 

external 'STTSApi.dll';

//'播放文本文件

Function SSTTSPlayTextFile(hTTSInstance:Integer;sTextFile:string;bAsynch:Boolean):Boolean;stdcall; 

external 'STTSApi.dll';

//'播放停止

Function STTSPlayStop():Boolean;stdcall; 

external 'STTSApi.dll';

//'查询播放状态

Function STTSQueryPlayStatus(lngStatus:Integer):Boolean;stdcall; 

external 'STTSApi.dll';

//'TTS版本信息

Function STTSAbout(sAboutInfo:string;ninfosize:Integer):Boolean;stdcall; 

external 'STTSApi.dll';
//' 用来获取错误代码的Windows API函数
//Public Declare Function GetLastError Lib "kernel32" () As Long
end;

end.

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    OpenDialog1: TOpenDialog;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

//'================================================================

//' STTS Api 声明

//'================================================================

//' 初始化

function STTSInit():boolean;stdcall; external 'STTSApi.dll';

//' 逆初始化

function STTSDeinit():boolean;stdcall;

external 'STTSApi.dll';

//' 建立与TTS服务器的连接

function  STTSConnect(sSerialNumber:string;sServerIP:string):Integer;stdcall;

external 'STTSApi.dll';

//' 断开与TTS服务器的连接

Function STTSDisconnect(hTTSInstance:Integer):boolean;stdcall;

external 'STTSApi.dll';

//' 设置本次连接的合成参数

Function STTSSetParam(hTTSInstance:integer;lngType:integer;lngParam:integer):Boolean;stdcall;

external 'STTSApi.dll';

//' 获得本次连接的合成参数

Function STTSGetParam(hTTSInstance:Integer;lngType:integer;lngParam:integer):Boolean;stdcall;

external 'STTSApi.dll';

//' 从字符串合成到音频文件

Function STTSString2AudioFile(hTTSInstance:Integer;sString:string;sWaveFile:string):Boolean;stdcall;

external 'STTSApi.dll';

//' 从文本文件合成到音频文件

Function STTSFile2AudioFile(hTTSInstance:Integer;sTextFile:string;sWaveFile:string):Boolean;stdcall;

external 'STTSApi.dll';

//'播放字符串

Function STTSPlayString(hTTSInstance:Integer;sString:string;bAsynch:Boolean):Boolean;stdcall;

external 'STTSApi.dll';

//'播放文本文件

Function STTSPlayTextFile(hTTSInstance:Integer;sTextFile:string;bAsynch:Boolean):Boolean;stdcall;

external 'STTSApi.dll';

//'播放停止

Function STTSPlayStop():Boolean;stdcall;

external 'STTSApi.dll';

//'查询播放状态

Function STTSQueryPlayStatus(lngStatus:Integer):Boolean;stdcall;

external 'STTSApi.dll';

//'TTS版本信息

Function STTSAbout(sAboutInfo:string;ninfosize:Integer):Boolean;stdcall;

external 'STTSApi.dll';

//' 用来获取错误代码的Windows API函数

//Public Declare Function GetLastError Lib "kernel32" () As Long

procedure TForm1.Button1Click(Sender: TObject);

var

myhandle:integer;

begin

STTSInit();

myhandle:=STTSconnect('','127.0.0.1');

STTSPlayString(myhandle,self.Memo1.Text,true) ;

STTSDisconnect(myhandle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
STTSPlayStop();
end;

procedure TForm1.Button3Click(Sender: TObject);
var
strls:string;
myhandle:integer;
begin
if not self.OpenDialog1.Execute then exit;
strls:=self.OpenDialog1.FileName;
STTSInit();
myhandle:=STTSconnect('','127.0.0.1');
STTSPlayTextFile(myhandle,strls,true);
STTSDisconnect(myhandle);

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
STTSDeInit();
end;

end.

运行目录下必须有四个DLL
AUCodec.dll
iFlySAPI.dll
iFlyTTS.dll
STTSApi.dll

应用 Microsoft TTS 语音引擎的 Delphi 语言实例

建立一个单窗体工程，添加一个 Edit 和 2 个 Button 控件，分别命名为 Edit1、btnSpeak、btnStop。然后安装引用 TTS 的 vtxtauto.tlb 类库文件，方法是点击菜单“工程-Import Type Library”，点“add”按钮，然后选中 Windows/speech 下的 Vtxtauto.tlb 文件，放入安装包后，再将其添加成 Delphi 的一个 Unit，自动产生的名字为“VTxtAuto_TLB”。然后，在主 Unit 的 Uses 里引用 VTxtAuto_TLB，即在 Uses 后添加字串“VTxtAuto_TLB”。最后参考以下代码：

procedure TfrmSpeech.FormCreate(Sender: TObject);

    begin

      vtxt:=CoVTxtAuto_.Create;

      vtxt.Register(‘’,‘Speech’);

      Edit1.Text:=‘I am a chinese, I love my homeland very much, and you?’

    end;

    procedure TfrmSpeech.btnSpeakClick(Sender: TObject);

    begin

      vtxt.Speed:=;

      vtxt.Speak(trim(Edit1.Text),);

    end;

    procedure TfrmSpeech.btnStopClick(Sender: TObject);

    begin

      vtxt.StopSpeaking;

    end;

    end.

delphi7如何调用系统语音库

（一）要使用系统的语音库，你需要先安装MicrosoftSpeechSDK5.1及其语言包，下载地址： SpeechSDK5.1: http://www.newhua.com/soft/38264.htmSpeechSDK5.1语言包（中英文）: http://www.onlinedown.net/soft/38265.htm

（二）安装完成后，需要在D7里导入类库以便生成SAPI组件于IDE组件面板. 启动D7,Project->ImportTypeLibrary->找到MicrosoftSpeechObjectLibrary(Version5.0) 点Install.. 成功后会在D7的组件面板里出现SAPI5.1控件页.

（三）OK，开始来个简单的工程. 启动D7新建个工程，往窗口里扔进一个TMemo,两个TButton,再扔进一个TSpVoice（SAPI5.1控件页），写下下边的代码：

unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,OleServer,SpeechLib_TLB,StdCtrls; type TForm1=class(TForm) Button1:TButton; Memo1:TMemo; SpVoice1:TSpVoice; Button2:TButton; Button3:TButton; procedureButton1Click(Sender:TObject); procedureButton3Click(Sender:TObject); private {Privatedeclarations} public procedurePlayVoxEx; end; var Form1:TForm1; implementation {$R*.dfm} {TForm1} procedureTForm1.PlayVoxEx;var i:Integer; s,t:String;begin s:=Memo1.Text; fori:=1toLength(s)do begin ifnot(s[i]in[#,#])then begin ifByteType(s,i)=mbSingleBytethen begin SpVoice1.Voice:=SpVoice1.GetVoices('','').Item();//设置报读的语种,0为英文,3为中文 t:=s[i]; end elseifByteType(s,i)=mbLeadBytethen begin SpVoice1.Voice:=SpVoice1.GetVoices('','').Item(3); t:=s[i]; t:=s[i] s[i 1]; end else continue; SpVoice1.Speak(t,SVSFlagsAsync);//读出Text end; end;end; procedureTForm1.Button1Click(Sender:TObject);begin SpVoice1.Voice:=SpVoice1.GetVoices('','').Item(3); SpVoice1.Speak(Memo1.Text,SVSFlagsAsync);end; procedureTForm1.Button3Click(Sender:TObject);begin SpVoice1.Voice:=SpVoice1.GetVoices('','').Item(0); SpVoice1.Speak(Memo1.Text,SVSFlagsAsync);end; end. Button1是直接读中文语音的，Button2可以读中英文混合（效果相当差），Button3直接读英文用的

我知道的就这么多了,希望对你有点用... 这边的代码直接复制编译会报错,需要按CTRL H打开替换框,复制"　"双引号内的字符替换成两个空格(全部替换),再编译就行了. procedureTForm1.Button3Click(Sender:TObject);begin SpVoice1.Voice:=SpVoice1.GetVoices('','').Item(0); SpVoice1.Speak(Memo1.Text,SVSFlagsAsync);end; 改成: procedureTForm1.Button3Click(Sender:TObject);begin PlayVoxEx;end; dclusr.dpk是缺省的用户安装控件包,多出来的应该是你之前安装到dclusr.dpk包里的一些别的控件...在导入ActiveX那个界面里点Install后,你可以选Intonewpackage,然后浏览一个目录填个包名再返回安装就不会有这些东西了.

追问：