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

bugxiong

这个程序好玩，可以朗读MEMO上文字
Lazarus中文社区首发
开发工具：FreePascal2.6.0 + Lazarus 0.9.30.4
作者：东兰梦舞
时间：2012.03.18





网盘直接下载：
http://filemarkets.com/file/bugxiong/0b7963d5/

bugxiong

没有，源码作者没有公开

aaa

那位有完整点的，入门容易点的，微软语音库使用的教程？必须中文的。

东兰梦舞

反编译是好样的，呵呵。

这里有源码……
http://www.fpccn.com/read.php?tid=1700

bugxiong

东兰梦舞:反编译是好样的，呵呵。

这里有源码……
http://www.fpccn.com/read.php?tid=1700 (2012-03-20 18:19) 

哈哈，原来是这样滴啊
有证就是不一般

samsam598

请问一下没源码？

flyliyang

链接打不开了.

bruce0829

這裡有一些參考資料, 暫時抵著先 ...
http://www.blong.com/Conferences ... h/SAPI51/SAPI51.htm

取之於社會, 用之於社會

bruce0829

先試出講英文的

uses ...., comobj;

//參考 http://wiki.freepascal.org/SAPI
procedure TForm1.Button1Click(Sender: TObject);
var SavedCW: Word;
    SpVoice: Variant;
begin
  SpVoice := CreateOleObject('SAPI.SpVoice'); //use comobj
  // Change FPU interrupt mask to avoid SIGFPE exceptions
  SavedCW := Get8087CW;
  try
    Set8087CW(SavedCW or $4);
    SpVoice.Speak('This is a book, that is a pen', 0);  //播放 'This is a book, that is a pen'
  finally
    // Restore FPU mask
    Set8087CW(SavedCW);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var SpVoice1: Variant;
    VoiceString: WideString; // WideString must be used to assign variable for speech to function, can be Global.
begin
  SpVoice1 := CreateOleObject('SAPI.SpVoice'); // Can be assigned in form.create
  VoiceString := Button2.Caption;              // variable assignment  //播放 Button2.Caption (:='Lazarus is the best')
  SpVoice1.Speak(VoiceString,0);
end;                                   

bruce0829

講中文的

procedure TForm1.Button1Click(Sender: TObject);
var SavedCW: Word;
    SpVoice: OleVariant;
    lO, lV, lX: OleVariant;
    Voices, Voice: OleVariant;
    x: integer;
    VoiceString: WideString;
begin
  SpVoice := CreateOleObject('SAPI.SpVoice'); //use comobj   

  //獲取系統語音庫列表(放到 Memo1 上)
  lV := SpVoice.GetVoices;
  for x := 0 to lV.count - 1 do
  begin
    lX := lV.item(x);
    Memo1.Lines.Add(lX.GetDescription);
  end;

  Voices := SpVoice.GetVoices;
  Voice := Voices.Item(0); //使用第一個系統語音庫
  Caption := string(Voice.GetDescription);
  SpVoice.Voice := IDispatch(Voice);

  VoiceString:=PChar('ready to say , 我會說中文'); //中文試好久才知要加 PChar()
  SpVoice.Speak(VoiceString, 0);

end;