OLE类实现TTS方式语音朗读
标签：
Delphi调用OLE类实现TTS方式语音朗读直接看代码：
unit uMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Comobj, Dialogs, StdCtrls, RzButton; type TFrmMain = class(TForm) btnStart: TRzBitBtn; mmMsg: TMemo; procedure btnStartClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var FrmMain: TFrmMain; implementation {$R *.dfm} procedure TFrmMain.btnStartClick(Sender: TObject); var voice: OLEVariant; begin voice := CreateOLEObject(‘SAPI.SpVoice‘); voice.Speak(mmMsg.Lines.Text, 0); end; end.
看效果：
Delphi - OLE类实现TTS方式语音朗读
标签：
原文地址：https://www.cnblogs.com/jeremywucnblog/p/11758084.html
温馨提示: 本文由杰米博客推荐，转载请保留链接: https://www.jmwww.net/file/9620.html
