Lazarus for 文本转语音程序（Lazaurs中文社区首发）

bruce0829

//text->轉 *.wav 語音檔, 測試不成功
procedure TForm1.Button4Click(Sender: TObject);
var SpVoice1: OleVariant;
    fs: OleVariant;
    VoiceString: WideString;
begin
  SpVoice1 := CreateOleObject('SAPI.SpVoice');
  fs:=CreateOleObject('Sapi.SpFileStream');
  //fs.Format.Type_ := $00000022; //SAFT44kHz16BitMono=$00000022 //無此成員函式


  fs.Open('test.wav',$00000003 , False); //SSFMCreateForWrite=$00000003

  //SpVoice1.AudioOutputStream:=fs; //無此成員函式

  VoiceString:=PCHAR('ready to say, 我會說中文');
  SpVoice1.Speak(VoiceString,0);

  fs.Close;
  //SpVoice1.AudioOutputStream:=nil; //無此成員函式

end;


[其他]
Balabolka – 文字轉語音免費軟體，支援中、英文朗讀並可輸出為影音檔
https://steachs.com/archives/25893     

jisand

跨平台吗？还是只是Win下？win下实现不难。