texttospeechsimpleu.pas

softonline.dll中函数的使用,请见不同的例程,VB函数见VB例子,VC函数见VC例子,VFP函数见VFP的例子,BCB函数见BCB例子, Delphi函数见Delphi例子

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.