| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
victoronate
Cdt
Registrado: 20 Sep 2002Mensajes: 4
|
 Publicado: Mar 04 Mar, 2003 7:08 pm Asunto: de texto a voz |
 |
|
hay un active x que se lla ma text to speech que pasa de texto a voz
pero no se utilizarlo si alguien save como por favor envieme el codigo |
|
| Volver arriba |
|
 |
joseluisbz
Lt Cmdr
Registrado: 31 Ene 2003Mensajes: 101Ubicación: Medellín - Colombia de Barranquilla
|
| Publicado: Vie 07 Mar, 2003 12:29 am Asunto: |
|
|
Escríbeme a mi dirección y te lo hago llegar...
Pero como nada es gratis primewro dime como lo vas a utilizar, para ver si nos colaboramos mutuamente...
Saludos.-..
_________________
Please Response to:joseluisbz@bigfoot.com |
|
| Volver arriba |
|
|
joseluisbz
Lt Cmdr
Registrado: 31 Ene 2003Mensajes: 101Ubicación: Medellín - Colombia de Barranquilla
|
| Publicado: Vie 07 Mar, 2003 9:08 am Asunto: |
|
|
Aquí hay algo...
La implentación
| Código: |
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "TTS.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ACTIVEVOICEPROJECTLib_OCX"
#pragma link "ACTIVEVOICEPROJECTLib_OCX"
///#pragma link "TELLib_OCX"
///#pragma link "ACTIVEVOICEPROJECTLib_OCX"
///#pragma link "HTTSLib_OCX"
///#pragma link "ACTIVELISTENPROJECTLib_OCX"
#pragma link "ACTIVEVOICEPROJECTLib_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int i,LengthString;
AnsiString TempString = "1034";
// "Mfg=Microsoft;Gender=1;Language=Spanish";
WideString MyWS;
LengthString = TempString.Length()+1;
wchar_t* Mywchar_t =L"1034";
//Para el español es 1034
//StringToWideChar(TempString,Mywchar_t,LengthString);
//TempString.WideChar(Mywchar_t,TempString.Length());
intEngine = DirectSS1->Find(Mywchar_t);
DirectSS1->Select(intEngine);
/*//
DirectSS1->LanguageID()
//*/
for (i = 1;i<DirectSS1->CountEngines;i++)
{
strVoiceType = DirectSS1->ModeName(i);
ComboBox1->Items->Add(strVoiceType);
ComboBox2->Items->Add((AnsiString)DirectSS1->Speaker(i));
}
ComboBox1->ItemIndex = DirectSS1->CurrentMode-1;
TrackBar1->Max = DirectSS1->MaxSpeed;
TrackBar1->Min = DirectSS1->MinSpeed;
TrackBar1->Position=DirectSS1->Speed;
MaxEdit->Text = TrackBar1->Max;
MinEdit->Text = TrackBar1->Min;
RealEdit->Text = TrackBar1->Position;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
DirectSS1->CurrentMode = ComboBox1->ItemIndex+ 1;
if (DirectSS1->Gender(DirectSS1->CurrentMode) == 1)
DirectSS1->LipType = 0;
else
DirectSS1->LipType = 1;
TrackBar1->Max = DirectSS1->MaxSpeed;
TrackBar1->Min = DirectSS1->MinSpeed;
TrackBar1->Position=DirectSS1->Speed;
MaxEdit->Text = TrackBar1->Max;
MinEdit->Text = TrackBar1->Min;
RealEdit->Text = TrackBar1->Position;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LeerClick(TObject *Sender)
{
int LengthString = Memo1->Text.Length()+1;
wchar_t* Mywchar_t = new wchar_t[LengthString];
StringToWideChar(Memo1->Text,Mywchar_t,LengthString);
DirectSS1->Speak(Mywchar_t);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
DirectSS1->Speed=TrackBar1->Position;
RealEdit->Text = TrackBar1->Position;
}
//---------------------------------------------------------------------------
|
El archivo cabecera...
| Código: |
//---------------------------------------------------------------------------
#ifndef TTSH
#define TTSH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <wstring.h>
//#include "ACTIVEVOICEPROJECTLib_OCX.h"
#include <OleCtrls.hpp>
//#include "ACTIVEVOICEPROJECTLib_OCX.h"
///#include "TELLib_OCX.h"
#include "TapiLine.h"
///#include "ACTIVEVOICEPROJECTLib_OCX.h"
#include <ComCtrls.hpp>
///#include "HTTSLib_OCX.h"
///#include "ACTIVELISTENPROJECTLib_OCX.h"
#include <ExtCtrls.hpp>
#include "ACTIVEVOICEPROJECTLib_OCX.h"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TComboBox *ComboBox1;
TDirectSS *DirectSS1;
TButton *Leer;
TMemo *Memo1;
TButton *Llamar;
TEdit *TelEdit;
TButton *Colgar;
TRadioGroup *RadioGroup1;
TRadioButton *PulseRadioButton;
TRadioButton *ToneRadioButton;
TEdit *DigitEdit;
TButton *SendDigitButton;
TLabel *Label1;
TEdit *MaxEdit;
TEdit *MinEdit;
TEdit *RealEdit;
TTrackBar *TrackBar1;
TButton *HoldButton;
TGroupBox *GroupBox1;
TRadioGroup *RadioGroup2;
TRadioButton *PressedRadioButton;
TRadioButton *ReleasedRadioButton;
TComboBox *ComboBox2;
TListBox *ListBox1;
void __fastcall FormCreate(TObject *Sender);
void __fastcall ComboBox1Click(TObject *Sender);
void __fastcall LeerClick(TObject *Sender);
void __fastcall LlamarClick(TObject *Sender);
void __fastcall ColgarClick(TObject *Sender);
void __fastcall SendDigitButtonClick(TObject *Sender);
void __fastcall TrackBar1Change(TObject *Sender);
void __fastcall HoldButtonKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift);
void __fastcall HoldButtonKeyUp(TObject *Sender, WORD &Key,
TShiftState Shift);
void __fastcall ChangeHoldRadioButtonClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
int intEngine;
AnsiString strVoiceType;
CTapiLine m_TapiLine;
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
|
Te recomiendo que antes de copiar y pegar todo...
Primero busca las máquinas de Voz... éstas vienen con Babylon o con Dígalo, Elan....
Instalas el componente Activex y aparecerá en la pestaña indicada...
Solo copia el código de los métodos .. porque todo depende de la instalación del paquete....
_________________
Please Response to:joseluisbz@bigfoot.com |
|
| Volver arriba |
|
|
Alfredo
Invitado
|
| Publicado: Vie 07 Mar, 2003 8:00 pm Asunto: Componente |
|
|
Donde podemos obtener este OCX?
Gracias!!! |
|
| Volver arriba |
|
|
joseluisbz
Lt Cmdr
Registrado: 31 Ene 2003Mensajes: 101Ubicación: Medellín - Colombia de Barranquilla
|
| Publicado: Sab 08 Mar, 2003 12:01 am Asunto: |
|
|
Los componentes Activex OCX, son las máquinas en sí.. y vienen con programas Babylon, Digalo, IBM, etc...
Te sugiero que entres a sus páginas... |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
