Quelle  reSpeech.pas   Sprache: Delphi

unit reSpeech;

interface

uses Windows, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, SysUtils, Utilities;

type
  TSpeechBox = class(TForm)
    OKButton: TButton;
    Panel1: TPanel;
    Copyright: TLabel;
    SpeakerBox: TComboBox;
    SpeedButton1: TSpeedButton;
    SpeechRate: TScrollBar;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure SpeechRateChange(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    VoiceRate:integer;
  end;

var
  SpeechBox: TSpeechBox;

procedure ShowSpeechBox;

implementation

{$R *.dfm}

const
  SCopyright     = 'Copyright © 1996, 1998-2002 Borland International';

procedure ShowSpeechBox;
begin
  with TSpeechBox.Create(Application) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TSpeechBox.FormCreate(Sender: TObject);
begin
  Caption := Format('Speech %s', [Application.Title]);
  CopyRight.Caption := SCopyRight;
end;

procedure TSpeechBox.SpeechRateChange(Sender: TObject);
begin
   VoiceRate:=SpeechRate.Position;
end;

procedure TSpeechBox.SpeedButton1Click(Sender: TObject);
var ii:integer;
begin
 ii:= Utilities.Speaker;
 Utilities.Speaker := SpeakerBox.ItemIndex;
 Utilities.Speak(SpeechRate.Position,'I will be standing right by your side.');
 Utilities.Speaker :=ii
end;

end.