De texto a voz

[JoseGallo]

Hola amigos necesito ayuda en como convertir el texto escrito en un edit en voz con SAPI soy nuevo en este lenguaje y no encuentro mucha informacion gracias de antemano

[Casimiro Notevi]

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

[[duilioisola]]

Quizás este hilo te ayude...

[JoseGallo]

me sale error en esa libreria

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, SpeechLib_TLB, ActiveX, ComObj, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var BeenPaused : Boolean;
begin
  if not BeenPaused then
    SpVoice.Speak(reText.Text, SVSFlagsAsync)
  else
  begin
    SpVoice.Resume;
    BeenPaused := False
  end
end;

end.

[Casimiro Notevi]

Empezado por JoseGallo

me sale error en esa libreria

Este año tampoco nos han regalado una bola de cristal.
Así que como no digas qué error te sale, dónde, cuándo, etc.

[JoseGallo]

ya solucione ese error no tenia instalada la libreria
pero ahora me sale este error

Build
[Error] Unit1.pas(30): Object or class type required
[Error] Unit1.pas(30): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, SpeechLib_TLB, ActiveX, ComObj, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    SpVoice1: TSpVoice;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
    SpVoice.Speak (reText.Text, SVSFlagsAsync) //aqui marca error y el puntero se pone despues de Speak

    SpVoice.Resume;

end;

end.