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 -10; rt.Height :=form1.Height -48; end; procedure TForm1.N201Click(Sender: TObject); begin form1.AlphaBlendValue := 51; end; procedure TForm1.N501Click(Sender: TObject); begin form1.AlphaBlendValue := 130; end; procedure TForm1.N1001Click(Sender: TObject); begin form1.AlphaBlendValue := 255; 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 = 0; TTS_ADF_PCM8K8B1C = 1; TTS_ADF_PCM16K8B1C = 2; TTS_ADF_PCM8K16B1C = 3; TTS_ADF_PCM16K16B1C = 4; TTS_ADF_PCM11K8B1C = 5; TTS_ADF_PCM11K16B1C = 6; TTS_ADF_ALAW16K1C = 9; TTS_ADF_ULAW16K1C = 10; TTS_ADF_ALAW8K1C = 11; TTS_ADF_ULAW8K1C = 12; TTS_ADF_ALAW11K1C = 13; TTS_ADF_ULAW11K1C = 14; TTS_ADF_ADPCMG7218K4B1C = 17; TTS_ADF_ADPCMG7216K4B1C = 18; TTS_ADF_ADPCMG7233B1C = 19; TTS_ADF_ADPCMG7235B1C = 20; TTS_ADF_VOX6K1C = 21; TTS_ADF_VOX8K1C = 22; //文本内码 TTS_CP_GB2312 = 1 TTS_CP_GBK = 2 TTS_CP_UNICODE = 4 //'参数类型 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('80','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('80','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:=100; vtxt.Speak(trim(Edit1.Text),10); 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[#10,#13])then begin ifByteType(s,i)=mbSingleBytethen begin SpVoice1.Voice:=SpVoice1.GetVoices('','').Item(0);//设置报读的语种,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,然后浏览一个目录填个包名再返回安装就不会有这些东西了.
追问：
