delphi读音_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

unitUnit1;interface

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

Dialogs, StdCtrls, ComCtrls, Menus, OleCtrls, ACTIVEVOICEPROJECTLib_TLB;typeTForm1= class(TForm)

MainMenu1: TMainMenu;

Go1: TMenuItem;

Alpha1: TMenuItem;

N201: TMenuItem;

N501: TMenuItem;

N1001: TMenuItem;

RT: TRichEdit;

ss: TDirectSS;procedureRS(Sender: TObject);procedureN201Click(Sender: TObject);procedureN501Click(Sender: TObject);procedureN1001Click(Sender: TObject);procedureGo1Click(Sender: TObject);private

{Private declarations}

public

{Public declarations}

end;varForm1: TForm1;implementation

{$R *.dfm}

procedureTForm1.RS(Sender: TObject);beginrt.Width :=form1.Width -10;

rt.Height :=form1.Height -48;end;procedureTForm1.N201Click(Sender: TObject);beginform1.AlphaBlendValue := 51;end;procedureTForm1.N501Click(Sender: TObject);beginform1.AlphaBlendValue := 130;end;procedureTForm1.N1001Click(Sender: TObject);beginform1.AlphaBlendValue := 255;end;procedureTForm1.Go1Click(Sender: TObject);beginss.Speak(rt.Text);end;end.

View Code

SpeechLib_TLB控件效能

SpeechLib_TLB控件功能

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

unitIfly_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_ADPCMG7233B1