Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: 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.

¤ Dauer der Verarbeitung: 0.16 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.