文本字符串转成wav声音文件

最新推荐文章于 2025-05-30 11:21:49 发布

i8013

最新推荐文章于 2025-05-30 11:21:49 发布

阅读量262

点赞数 1

CC 4.0 BY-SA版权

文章标签：开发语言

本文链接：https://blog.csdn.net/i8013/article/details/142754495

uses ComObj, SpeechLib_TLB,Activex;

procedure TextToWav(Atext: string; AFieldName: string);
var
  SpFileStream1: TSpFileStream;
  SpVoice1: TSpVoice;
  ShengYinXuHao: integer;
begin
  // 声音序号  0为中文，1为英文
  ShengYinXuHao := 1;
  if ShengYinXuHao <> 1 then
    ShengYinXuHao := 0;
  //
  SpVoice1 := TSpVoice.Create(nil);
  SpFileStream1 := TSpFileStream.Create(nil);
  try
    SpVoice1.Voice := SpVoice1.GetVoices('', '').item(ShengYinXuHao);
    // SpVoice1.Volume := 30; //音量 0到100
    // SpVoice1.Rate := 0; // 读速 -5到5之间
    SpFileStream1.Format.type_ := SAFT8kHz8BitStereo; // SAFT8kHz8BitMono;
    SpFileStream1.Open(AFieldName, SSFMCreateForWrite, false); // + '.wav';
    SpVoice1.AudioOutputStream := SpFileStream1.DefaultInterface;
    SpVoice1.Speak(Atext, SVSFlagsAsync);
    SpVoice1.WaitUntilDone(-1);
    SpFileStream1.Close;
  finally
    if SpVoice1 <> nil then
      SpVoice1.Free;
    if SpFileStream1 <> nil then
      SpFileStream1.Free;
  end;
end;

//使用方法：

  sPath := ExtractFilePath(ParamStr(0));
  try
    coinitialize(nil);
    TextToWav('begin', sPath + 'mp3\av.wav');
  finally
    couninitialize;
  end;