📄 unit1.pas
字号:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons, OleServer, SpeechLib_TLB, Gauges,
ComCtrls, XPMenu, Volumes, TFlatComboBoxUnit, TFlatButtonUnit;
type
TForm1 = class(TForm)
Panel1: TPanel;
SpVoice1: TSpVoice;
SpeedButton7: TSpeedButton;
OpenDialog1: TOpenDialog;
GroupBox1: TGroupBox;
Gauge1: TGauge;
RichEdit1: TRichEdit;
Panel4: TPanel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Panel2: TPanel;
czwbt: TRadioButton;
cywbt: TRadioButton;
zyhhbt: TRadioButton;
NowRead: TCheckBox;
inputRead: TCheckBox;
Timer1: TTimer;
nowtime: TStaticText;
XPMenu1: TXPMenu;
TrackBar1: TTrackBar;
VolumeControl1: TVolumeControl;
SpeedButton8: TSpeedButton;
SpFileStream1: TSpFileStream;
SaveDialog1: TSaveDialog;
SpeedButton2: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
GroupBox2: TGroupBox;
SpeedButton10: TSpeedButton;
Panel3: TPanel;
StaticText1: TStaticText;
ComboBox1: TComboBox;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
StaticText3: TStaticText;
SpeedButton13: TSpeedButton;
FlatComboBox1: TFlatComboBox;
FlatComboBox2: TFlatComboBox;
FlatComboBox3: TFlatComboBox;
StaticText2: TStaticText;
StaticText5: TStaticText;
StaticText6: TStaticText;
procedure SpeedButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure RichEdit1SelectionChange(Sender: TObject);
procedure RichEdit1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SpeedButton9Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RichEdit1Change(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
procedure AddItemToFmtCB;
procedure AddFmts(name: string; fmt: SpeechAudioFormatType);
//procedure SetSpeakingState(bSpeaking : Boolean; bPaused :Boolean);
public
{ Public declarations }
end;
var
Form1: TForm1;
d:string;//分析后的待朗读内容
p:integer;//中英判断 0为中文 1为英文 即判断止一次＆存放本次判断的结果
s1:string;
now:integer;//当前语速
word:string;
yinpin:string;//保存为WAV文件时的音频属性，默认为SAFT32kHz8BitMono
implementation
var
arrfmt: array[0..35] of SpeechAudioFormatType;
m_speakFlags: SpeechVoiceSpeakFlags = SVSFlagsAsync or SVSFPurgeBeforeSpeak or SVSFIsXML;
m_bSpeaking :Boolean=false;
m_bPaused : Boolean=false;
{$R *.dfm}
//---------------------------------
procedure TForm1.AddItemToFmtCB;
begin
AddFmts('SAFT8kHz8BitMono', SAFT8kHz16BitMono);
AddFmts('SAFT8kHz8BitStereo', SAFT8kHz8BitStereo);
AddFmts('SAFT8kHz16BitMono', SAFT8kHz16BitMono);
AddFmts('SAFT8kHz16BitStereo', SAFT8kHz16BitStereo);
AddFmts('SAFT11kHz8BitMono', SAFT11kHz8BitMono);
AddFmts('SAFT11kHz8BitStereo', SAFT11kHz8BitStereo);
AddFmts('SAFT11kHz16BitMono', SAFT11kHz16BitMono);
AddFmts('SAFT11kHz16BitStereo', SAFT11kHz16BitStereo);
AddFmts('SAFT12kHz8BitMono', SAFT12kHz8BitMono);
AddFmts('SAFT12kHz8BitStereo', SAFT12kHz8BitStereo);
AddFmts('SAFT12kHz16BitMono', SAFT12kHz16BitMono);
AddFmts('SAFT12kHz16BitStereo', SAFT12kHz16BitStereo);
AddFmts('SAFT16kHz8BitMono', SAFT16kHz8BitMono);
AddFmts('SAFT16kHz8BitStereo', SAFT16kHz8BitStereo);
AddFmts('SAFT16kHz16BitMono', SAFT16kHz16BitMono);
AddFmts('SAFT16kHz16BitStereo', SAFT16kHz16BitStereo);
AddFmts('SAFT22kHz8BitMono', SAFT22kHz8BitMono);
AddFmts('SAFT22kHz8BitStereo', SAFT22kHz8BitStereo);
AddFmts('SAFT22kHz16BitMono', SAFT22kHz16BitMono);
AddFmts('SAFT22kHz16BitStereo', SAFT22kHz16BitStereo);
AddFmts('SAFT24kHz8BitMono', SAFT24kHz8BitMono);
AddFmts('SAFT24kHz8BitStereo', SAFT24kHz8BitStereo);
AddFmts('SAFT24kHz16BitMono', SAFT24kHz16BitMono);
AddFmts('SAFT24kHz16BitStereo', SAFT24kHz16BitStereo);
AddFmts('SAFT32kHz8BitMono', SAFT32kHz8BitMono);
AddFmts('SAFT32kHz8BitStereo', SAFT32kHz8BitStereo);
AddFmts('SAFT32kHz16BitMono', SAFT32kHz16BitMono);
AddFmts('SAFT32kHz16BitStereo', SAFT32kHz16BitStereo);
AddFmts('SAFT44kHz8BitMono', SAFT44kHz8BitMono);
AddFmts('SAFT44kHz8BitStereo', SAFT44kHz8BitStereo);
AddFmts('SAFT44kHz16BitMono', SAFT44kHz16BitMono);
AddFmts('SAFT44kHz16BitStereo', SAFT44kHz16BitStereo);
AddFmts('SAFT48kHz8BitMono', SAFT48kHz8BitMono);
AddFmts('SAFT48kHz8BitStereo', SAFT48kHz8BitStereo);
AddFmts('SAFT48kHz16BitMono', SAFT48kHz16BitMono);
AddFmts('SAFT48kHz16BitStereo', SAFT48kHz16BitStereo);
end;
//--------------------------------
procedure TForm1.AddFmts(name: string; fmt: SpeechAudioFormatType);
var
index: integer;
begin
index := flatComboBox2.Items.Count;
arrfmt[index] := fmt;
flatcombobox2.Items.Add(name);
end;
//--------------------------------
{procedure TForm1.SetSpeakingState(bSpeaking, bPaused: Boolean);
begin
menuFileOpenText.Enabled := Not bSpeaking;
menuFileSpeakWave.Enabled := Not bSpeaking;
menuFileSaveToWave.Enabled := Not bSpeaking;
SpeakBtn.Enabled := True;
StopBtn.Enabled := bSpeaking;
SkipBtn.Enabled := (bSpeaking And Not bPaused);
PauseBtn.Enabled := bSpeaking;
If bPaused Then
PauseBtn.Caption := 'Resume'
Else
PauseBtn.Caption := 'Pause';
m_bSpeaking := bSpeaking;
m_bPaused := bPaused;
end;}
//--------------------------------
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
s:string;//存放待分析的文本内容
d1:string;
z:string;//存放临时字符
l:integer;//s字符串的长度
i:integer;//
o:integer;
begin
p:=100;
l:=1;
s:=richedit1.Text;
//////////////////////////////////////////////////////
if czwbt.Checked then //纯中文朗读
begin
//注：此处若不将之转换为全角，则TTS会读为"点"
s:=StringReplace(s,'.','。',[rfReplaceAll, rfIgnoreCase]);
spvoice1.Speak('<LANG LANGID="804">'+s,1);
end
/////////////////////////////////////////////////////
else if cywbt.Checked then //纯英文朗读
begin
spvoice1.Speak('<LANG LANGID="409">'+s,1);
end
else if zyhhbt.Checked then //中英混合朗读
///////////////////////////////////////////////////////
begin
gauge1.Visible:=true;
s:=StringReplace(s,'a','ａ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'b','ｂ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'c','ｃ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'d','ｄ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'e','ｅ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'f','ｆ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'g','ｇ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'h','ｈ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'i','ｉ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'j','ｊ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'k','ｋ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'l','ｌ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'m','ｍ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'n','ｎ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'o','ｏ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'p','ｐ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'q','ｑ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'r','ｒ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'s','ｓ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'t','ｔ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'u','ｕ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'v','ｖ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'w','ｗ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'x','ｘ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'y','ｙ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'z','ｚ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,' ',' ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,',','，',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'.','。',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,';','；',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,':','：',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'''','＇',[rfReplaceAll, rfIgnoreCase]);//注意单引号的引用
s:=StringReplace(s,'<','〈',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'>','〉',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'/','／',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'\','＼',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'?','？',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'|','‖',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'[','［',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,']','］',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'{','｛',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'}','｝',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'(','（',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,')','）',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'-','－',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'_','﹎',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'=','＝',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'+','＋',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'!','！',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'@','＠',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'#','＃',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'$','＄',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'%','％',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'^','ˇ',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'&','＆',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'*','※',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'1','１',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'2','２',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'3','３',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'4','４',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'5','５',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'6','６',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'7','７',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'8','８',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'9','９',[rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s,'0','０',[rfReplaceAll, rfIgnoreCase]);
//注：若加入数字过滤后，将无法朗读所有数字
//showmessage(s);//以上代码没问题
l:=length(s);
i:=1;
d:='';
while i<l do
begin
z:=Copy(s,i,2);
if (z<>'ａ') and (z<>'ｂ') and (z<>'ｃ') and (z<>'ｄ') and (z<>'ｅ')
and (z<>'ｆ') and (z<>'ｇ') and (z<>'ｈ') and (z<>'ｉ') and (z<>'ｊ')
and (z<>'ｋ') and (z<>'ｌ') and (z<>'ｍ') and (z<>'ｎ') and (z<>'ｏ')
and (z<>'ｐ') and (z<>'ｑ') and (z<>'ｒ') and (z<>'ｓ') and (z<>'ｔ')
and (z<>'ｕ') and (z<>'ｖ') and (z<>'ｗ') and (z<>'ｘ') and (z<>'ｙ')
and (z<>'ｚ') or (z='１') or (z='２') or (z='３') or (z='４') or (z='５')
or (z='６') or (z='７') or (z='８') or (z='９') or (z='０')
{and (z<>'＼') and (z<>'？') and (z<>'‖') and (z<>'［') and (z='］')
and (z<>'｛') and (z<>'｝') and (z<>'（') and (z<>'）') and (z<>'－')
and (z<>'﹎') and (z<>'＝') and (z<>'＋') and (z<>'！') and (z<>'＠')
and (z<>'＃') and (z<>'＄') and (z<>'％') and (z<>'ˇ') and (z<>'＆')
and (z<>'※') and (z<>'＇')}then
begin ////
z:=StringReplace(z,'１','1',[rfReplaceAll, rfIgnoreCase]);
z:=StringReplace(z,'２','2',[rfReplaceAll, rfIgnoreCase]);
z:=StringReplace(z,'３','3',[rfReplaceAll, rfIgnoreCase]);
z:=StringReplace(z,'４','4',[rfReplaceAll, rfIgnoreCase]);
z:=StringReplace(z,'５','5',[rfReplaceAll, rfIgnoreCase]);
z:=StringReplace(z,'６','6',[rfReplaceAll, rfIgnoreCase]);
z:=StringReplace(z,'７','7',[rfReplaceAll, rfIgnoreCase]);
z:=StringReplace(z,'８','8',[rfReplaceAll, rfIgnoreCase]);
z:=StringReplace(z,'９','9',[rfReplaceAll, rfIgnoreCase]);
z:=StringReplace(z,'０','0',[rfReplaceAll, rfIgnoreCase]);
if p=0 then //若上次也是中文
begin
d:=d+z;
p:=0;
i:=i+2;
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -