【控件功能】我来做练习-第56课-文字语音朗读TextToSpeech

本文链接：https://blog.csdn.net/reson100/article/details/138593309

这篇博客介绍了如何在Delphi中实现文字到语音的转换。通过SpVoice1控件，实现朗读Memo中的文本，并提供了调整语速、音量的选项。此外，还涉及了保存音频为.wav文件以及选择不同语音引擎的功能。

摘要由CSDN通过智能技术生成

文章目录

- 文字语音朗读
- 核心源码

文字语音朗读

提示：这里可以添加技术概要
请添加图片描述在这里插入图片描述

核心源码

用到控件SpVoice1
var
Form1: TForm1;
Fmt: array[0…35] of SpeechAudioFormatType=(SAFT8kHz8BitMono,SAFT8kHz8BitStereo,SAFT8kHz16BitMono,SAFT8kHz16BitStereo,
SAFT11kHz8BitMono,SAFT11kHz8BitStereo,SAFT11kHz16BitMono,SAFT11kHz16BitStereo,
SAFT12kHz8BitMono,SAFT12kHz8BitStereo,SAFT12kHz16BitMono,SAFT12kHz16BitStereo,
SAFT16kHz8BitMono,SAFT16kHz8BitStereo,SAFT16kHz16BitMono,SAFT16kHz16BitStereo,
SAFT22kHz8BitMono,SAFT22kHz8BitStereo,SAFT22kHz16BitMono,SAFT22kHz16BitStereo,
SAFT24kHz8BitMono,SAFT24kHz8BitStereo,SAFT24kHz16BitMono,SAFT24kHz16BitStereo,
SAFT32kHz8BitMono,SAFT32kHz8BitStereo,SAFT32kHz16BitMono,SAFT32kHz16BitStereo,
SAFT44kHz8BitMono,SAFT44kHz8BitStereo,SAFT44kHz16BitMono,SAFT44kHz16BitStereo,
SAFT48kHz8BitMono,SAFT48kHz8BitStereo,SAFT48kHz16BitMono,SAFT48kHz16BitStereo);
fpn:string;//保存文件全路径名
strEng,strVol,strRate,strFmt:string; //引擎属性，音量，语速，音频格式(音质)
implementation
uses ShellAPI,StrUtils;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); //朗读memo中文本
begin
SpVoice1.AudioOutputStream:=SpVoice1.AudioOutputStream; //使设置生效,此句不可省
SpVoice1.speak(Memo1.Lines.Text,1); //SPFM_CREATE_ALWAYS=1
end;

procedure TForm1.Button2Click(Sender: TObject); //暂停
begin
SpVoice1.Pause;
end;

procedure TForm1.Button4Click(Sender: TObject); //微调语速(-10~10)加1
begin
if SpVoice1.Rate<10 then
TrackBar1.Position:=TrackBar1.Position+1;
//SpVoice1.Rate:=SpVoice1.Rate+1;
end;

procedure TForm1.Button5Click(Sender: TObject); //语速(-10~10)减1
begin
if SpVoice1.Rate>-10 then
TrackBar1.Position:=TrackBar1.Position-1;
//SpVoice1.Rate:=SpVoice1.Rate-1;
end;

procedure TForm1.Button6Click(Sender: TObject); //音量(0~100)加1
begin
if SpVoice1.Volume<100 then
ScrollBar1.Position:=ScrollBar1.Position+1;
//SpVoice1.Volume:=SpVoice1.Volume+1;
end;

procedure TForm1.Button7Click(Sender: TObject); //音量(0~100)减1
begin
if SpVoice1.Volume>0 then
ScrollBar1.Position:=ScrollBar1.Position+1;
//SpVoice1.Volume:=SpVoice1.Volume-1;
end;

procedure TForm1.Button8Click(Sender: TObject); //添加一行文本