首页 >  Delphi  > delphi 文字转换成声音

delphi 文字转换成声音

本文由 猛 于 2019-12-6 11:51 发布在  Delphi    

 

uses  ComObj;

procedure TForm1.btn1Click(Sender: TObject);
var
  voice: OLEVariant;
begin
  voice := CreateOLEObject('SAPI.SpVoice');
  voice.Speak(Memo1.Text, 0);
end;