请选择 进入手机版 | 继续访问电脑版

Lazarus中文社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
12
返回列表
楼主: bugxiong

Lazarus for 文本转语音程序(Lazaurs中文社区首发)

[复制链接]

该用户从未签到

发表于 2019-5-30 16:03:05 | 显示全部楼层

RE: Lazarus for 文本转语音程序(Lazaurs中文社区首发)

//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     
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2020-2-8 00:58:31 | 显示全部楼层

RE: Lazarus for 文本转语音程序(Lazaurs中文社区首发)

跨平台吗?还是只是Win下?win下实现不难。
回复 支持 反对

使用道具 举报

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1

GMT+8, 2020-6-4 19:31 , Processed in 0.042885 second(s), 19 queries .

Powered by Discuz! F1.0 Build 20160930

© 2001-2020 Comsenz Inc. & Discuz! Fans

快速回复 返回顶部 返回列表