播放一段文字

呐， 没什么作用的知识点

 

 

unit main;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Win.ComObj;

type
TFormMain = class(TForm)
TMemoContent: TMemo;
ButtonReadingStart: TButton;
ButtonReadingStop: TButton;
procedure ButtonReadingStartClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormMain : TFormMain;
voice : OLEVariant;

implementation

{$R *.dfm}

procedure TFormMain.ButtonReadingStartClick(Sender: TObject);
begin
voice := CreateOLEObject('SAPI.SpVoice');
voice.Speak(TMemoContent.Text);
end;

end.