?? texttospeechsimpleu.pas
字號:
unit TextToSpeechSimpleU;
//Uses SAPI 5.1 early bound Automation
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ActnList, ComCtrls, Buttons, ImgList, ToolWin,
OleServer, SpeechLib_TLB;
type
TfrmTextToSpeech = class(TForm)
memText: TMemo;
Label7: TLabel;
Button1: TButton;
SpVoice1: TSpVoice;
procedure Button1Click(Sender: TObject);
end;
var
frmTextToSpeech: TfrmTextToSpeech;
implementation
{$R *.dfm}
{ TfrmTextToSpeech }
procedure TfrmTextToSpeech.Button1Click(Sender: TObject);
begin
SpVoice1.Speak(memText.Text, SVSFDefault)
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -