OLE类实现TTS方式语音朗读

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, );
end; end.

看效果:

Delphi - OLE类实现TTS方式语音朗读-LMLPHP

作者:Jeremy.Wu
  出处:https://www.cnblogs.com/jeremywucnblog/

  本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。

05-17 14:54