Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   De texto a voz (https://www.clubdelphi.com/foros/showthread.php?t=87399)

JoseGallo 28-12-2014 16:54:29

De texto a voz
 
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 Noteví 28-12-2014 17:03:18

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

duilioisola 29-12-2014 17:45:12

Quizás este hilo te ayude...

JoseGallo 01-01-2015 16:53:06

error en SpeechLib_TLB
 
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 Noteví 01-01-2015 19:03:35

Cita:

Empezado por JoseGallo (Mensaje 487225)
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 01-01-2015 19:56:09

lo siento soy nuevo en esto
 
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.

Casimiro Noteví 01-01-2015 20:43:26

Cita:

Empezado por JoseGallo (Mensaje 487227)
[Error] Unit1.pas(30): Missing operator or semicolon

'semicolon' es el 'punto y coma' del final, que no lo has puesto.


La franja horaria es GMT +2. Ahora son las 18:02:27.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi