Delay entre un sndPlaySound y otro

[aromigaret]

Buenas noches,
Desarrolle un sistema de facturación con el ingreso de los artículos a facturar mediante lectura de código de barra. Como no quieren que se ingrese manualmente la cantidad cuando se repiten los ítems, se tiene que escanear uno por uno. Lo que me piden es que el sistema vaya informando por voz, cuantos ítems llevan ingresado. Es decir que ha medida que se escanee, vaya contando, 'uno', 'dos', 'tres' y así sucesivamente. Obviamente no voy a grabar voces desde el uno hasta 2.000, la idea es armar los números como por ejemplo 'diez y' + 'seis' o 'diez y' + 'siete'. Todo eso ya esta grabado, el inconveniente esta en que al hacer el sndPlaySound de 'diez y' tarda unos segundos para ejecutar el sndPlaySound de 'seis' entonces el numero 16, que cortado. Existe alguna forma de quitar ese delay entre un sndPlaySound y otro ? O hay alguna API que no haga ese gap?. Desde ya muchas gracias.

[navbuoy]

quizas si reproduces con PlaySound

en C++ builder:

#include <windows.h> 
#include <mmsystem.h>

en Delphi:

uses
  Windows, MMSystem;

con el parametro SND_ASYNC y reproduces uno detras de otro mejores eso

formato de PlaySound que yo uso:

C++ Builder code:

PlaySound(L".\\music\\PP_BluNotes.wav", NULL, SND_FILENAME || SND_ASYNC);

Delphi Code:

PlaySound(PChar('.\music\PP_BluNotes.wav'), 0, SND_FILENAME or SND_ASYNC);

si ves que sale todo solapandose o tal, utiliza alguna clase de timer o con la funcion Sleep() para separarlo un poco con algunos milisegundos entre cada sonido

[Neftali [Germán.Estévez]]

¿Tal vez digo una tontería, pero y si usas alguno de los SDK especiales para voz, para que te convierta un texto a voz?
Como si quisieras leer un texto escrito, pero con un número; Eso te evitaría tener que ir haciendo play sound de diferentes archivos.

[aromigaret]

navbuoy,
muchas gracias por tu aporte, funciona. Claro parece un robot al decir por ejemplo 16.

Como menciona Neftali, no esta mal buscar algún SDK para pasar de texto a voz. Dependerá el tiempo que tarde en convertir.
Muchas gracias a ambos.

[navbuoy]

yo creo que el tema de texto a voz es mucho jaleo para lo que quieres hacer

pero algo asi es:

#include <sapi.h>

void SpeakText(const String& text) {
    // Inicializar COM
    CoInitialize(NULL);

    // Crear el objeto de voz
    ISpVoice *pVoice = NULL;
    HRESULT hr = CoCreateInstance(CLSID_SpVoice, NULL, CLSCTX_ALL, IID_ISpVoice, (void **)&pVoice);

    if (SUCCEEDED(hr)) {
        // Pronunciar el texto
        pVoice->Speak(text.w_str(), 0, NULL);
        pVoice->Release(); // Liberar el objeto
    }

    // Finalizar COM
    CoUninitialize();
}

Enumerar las voces disponibles:

#include <sapi.h>
#include <sphelper.h>
#include <iostream>
#include <vector>
#pragma hdrstop

void ListVoices() {
    // Inicializar COM
    CoInitialize(NULL);

    // Crear el objeto de voz
    ISpVoice *pVoice = NULL;
    HRESULT hr = CoCreateInstance(CLSID_SpVoice, NULL, CLSCTX_ALL, IID_ISpVoice, (void **)&pVoice);
    
    if (SUCCEEDED(hr)) {
        ISpObjectTokenEnumerator *pEnum = NULL;
        hr = SpEnumTokens(SPCAT_VOICES, NULL, NULL, &pEnum);

        if (SUCCEEDED(hr)) {
            ISpObjectToken *pToken = NULL;
            while (pEnum->Next(1, &pToken, NULL) == S_OK) {
                LPWSTR pwszId;
                pToken->GetId(&pwszId);
                // Obtener el nombre de la voz
                LPWSTR pwszVoiceName;
                pToken->GetStringValue(L"Name", &pwszVoiceName);
                std::wcout << L"Voice ID: " << pwszId << L", Voice Name: " << pwszVoiceName << std::endl;
                CoTaskMemFree(pwszVoiceName);
                CoTaskMemFree(pwszId);
                pToken->Release();
            }
            pEnum->Release();
        }
        pVoice->Release(); // Liberar el objeto de voz
    }

    // Finalizar COM
    CoUninitialize();
}

Cambiar la Voz:

void SpeakText(const String& text, const String& voiceId) {
    // Inicializar COM
    CoInitialize(NULL);

    // Crear el objeto de voz
    ISpVoice *pVoice = NULL;
    HRESULT hr = CoCreateInstance(CLSID_SpVoice, NULL, CLSCTX_ALL, IID_ISpVoice, (void **)&pVoice);
    
    if (SUCCEEDED(hr)) {
        // Seleccionar la voz por ID
        ISpObjectToken *pToken = NULL;
        hr = SpGetTokenFromId(voiceId.w_str(), &pToken);
        if (SUCCEEDED(hr)) {
            pVoice->SetVoice(pToken);
            pToken->Release(); // Liberar el objeto token
        }

        // Pronunciar el texto
        pVoice->Speak(text.w_str(), 0, NULL);
        pVoice->Release(); // Liberar el objeto de voz
    }

    // Finalizar COM
    CoUninitialize();
}

[navbuoy]

ten en cuenta que el TextToSpeech de windows depende de que idioma tengas activado en los Settings de sistema, te lo digo por si lo tienes en ingles y ves que la voz tiene un acento de guiri que asusta.....

[aromigaret]

navbuoy,
nuevamente gracias por tu aporte.
Justo estoy viendo SAPI. Si no te es molesto, podrías pasarme, por favor, en pascal en vez de C++ lo que me aportaste.?

[navbuoy]

Text to speech funcion Delphi:

uses
  ComObj, ActiveX;

procedure SpeakText(const text: string);
var
  Voice: Variant;
begin
  // Inicializar COM
  CoInitialize(nil);
  try
    // Crear el objeto de voz (SAPI.SpVoice)
    Voice := CreateOleObject('SAPI.SpVoice');

    // Pronunciar el texto
    Voice.Speak(text);

  finally
    // Finalizar COM
    CoUninitialize();
  end;
end;

Enumerar las Voces:

uses
  ComObj, ActiveX, SpeechLib_TLB, Variants;

procedure ListVoices;
var
  SpVoice: ISpeechObjectTokens;
  VoiceToken: ISpeechObjectToken;
  TokenEnum: IEnumVariant;
  VoiceID, VoiceName: OleVariant;
  i: Integer;
begin
  // Inicializar COM
  CoInitialize(nil);
  try
    // Crear el objeto de voz para obtener la enumeración de voces
    SpVoice := CreateOleObject('SAPI.SpVoice') as ISpeechObjectTokens;
    SpVoice := CreateOleObject('SAPI.SpObjectTokenCategory').GetTokens('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices', '', '');

    // Enumerar las voces
    TokenEnum := (SpVoice._NewEnum as IEnumVariant);
    i := 0;
    while TokenEnum.Next(1, VoiceID, nil) = S_OK do
    begin
      VoiceToken := IDispatch(VoiceID) as ISpeechObjectToken;
      VoiceName := VoiceToken.GetDescription(0);
      Writeln('Voz ID: ', i, ', Nombre: ', VoiceName);
      Inc(i);
    end;
  finally
    // Finalizar COM
    CoUninitialize();
  end;
end;

Cambiar la Voz:

uses
  ComObj, ActiveX, SpeechLib_TLB;

procedure SpeakText(const text, voiceId: string);
var
  Voice: ISpeechVoice;
  Token: ISpeechObjectToken;
  SpObjectTokenCategory: ISpeechObjectTokenCategory;
begin
  // Inicializar COM
  CoInitialize(nil);
  
  try
    // Crear el objeto de voz
    Voice := CoSpVoice.Create;

    // Obtener la categoría de las voces
    SpObjectTokenCategory := CoSpObjectTokenCategory.Create;
    SpObjectTokenCategory.SetId(SPCAT_VOICES, False);

    // Seleccionar la voz por ID
    Token := SpObjectTokenCategory.GetTokenFromId(voiceId);
    if Token <> nil then
      Voice.Voice := Token;

    // Pronunciar el texto
    Voice.Speak(text, 0);
  finally
    // Finalizar COM
    CoUninitialize;
  end;
end;

[Neftali [Germán.Estévez]]

Empezado por navbuoy

Text to speech funcion Delphi

¿Con qué versión y con qué fichero SpeechLib_TLB lo has compilado?
¿Lo acabo de importar con Delphi 12 (la version 5.4) y me da errores al compilar?

[navbuoy]

con rad Studio 11.3 y con Windows 10

a mi si que me funciona.
pero yo uso C++ Builder, yo solo inclui el sapi.h Neftali para la primera funcion de leer texto y lo lee y lo habla.

[Neftali [Germán.Estévez]]

¿Puedes adjuntar el SpeechLib_TLB que estás utilizando?

[navbuoy]

A ver si esto te sirve Neftali

El archivo SpeechLib_TLB.pas se genera automáticamente cuando importas la biblioteca de tipo (Type Library) de Microsoft Speech API (SAPI) en Delphi o C++ Builder. Se utiliza para acceder a las funciones de texto a voz (TTS) y reconocimiento de voz en estas plataformas. Este archivo define las interfaces y clases necesarias para interactuar con las funcionalidades de SAPI.

Pasos para generar SpeechLib_TLB.pas:
Importar la Type Library:

En Delphi o C++ Builder, ve a Component -> Import Component.
Selecciona Import a Type Library.
En la lista, busca Microsoft Speech Object Library o Microsoft Speech API, selecciónalo y haz clic en Siguiente.
Dale un nombre al archivo (generalmente SpeechLib_TLB.pas es el predeterminado) y selecciona el directorio de destino.
Completa el asistente y se generará el archivo SpeechLib_TLB.pas en el proyecto o en la carpeta indicada.
Utilización:

Una vez generado, puedes utilizar SpeechLib_TLB en tu código Delphi o C++ Builder para acceder a los objetos y métodos de SAPI como ISpeechVoice y otros elementos relacionados con el habla.
Si no encuentras la opción o tienes dificultades, asegúrate de tener instalado Microsoft Speech SDK y de que esté correctamente registrado en tu sistema.

[Neftali [Germán.Estévez]]

Empezado por navbuoy

A ver si esto te sirve Neftali

Si eso ya lo he hecho. Son lospasos estandard para importar una librería.
He generado el fichero SpeechLib_TLB.pas,pero me está dando errors.

No se si por la versión de Delphi con la que he hecho la importación o por algún problema en le importador.
Te estaba pidiendo que me la pasaras si tú la tenías importada y te compilaba.

[Neftali [Germán.Estévez]]

Ya está. No es necesario.
he encontrado uno que compila bien aquí:
https://github.com/CHERTS/mspeech/bl...echLib_TLB.pas

[navbuoy]

es que creo que a mi no me genera ese archivo, al no ser pascal, pero no estoy muy seguro

te funciona ya?

[Neftali [Germán.Estévez]]

Empezado por navbuoy

es que creo que a mi no me genera ese archivo, al no ser pascal, pero no estoy muy seguro

Es necesario si se desean utilizar los tres códigos que hay más arriba (los 2 útimos concretamente).

Empezado por navbuoy

te funciona ya?

Si.
Estaba haciendo un par de pruebas de ejemplo y bajando el de github, me ha compilado.

[aromigaret]

Navbuoy,
como te mencioné instalé SAPI 5.4 y generé SpeechLib_TLB, y uso la version 10.3 de Delphi y no logro compilar las funciones que me aportaste.
Tendrá algo que ver la versión de Delphi?

Te muestro las lineas donde da error de compilación:

en ListVoices:

Código Delphi [-]
SpVoice := CreateOleObject('SAPI.SpObjectTokenCategory').GetTokens('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speec  h\Voices', '', '');

No reconoce GetTokens

Código Delphi [-]
while TokenEnum.Next(1, VoiceID, nil) = S_OK do

[dcc32 Error] Unit1.pas(62): E2033 Types of actual and formal var parameters must be identical

en la segunda SpeakText

Código Delphi [-]
SpObjectTokenCategory.SetId(SPCAT_VOICES, False);

[dcc32 Error] Unit1.pas(91): E2003 Undeclared identifier: 'SPCAT_VOICES'

y por ultimo

Código Delphi [-]
Token := SpObjectTokenCategory.GetTokenFromId(voiceId);

[dcc32 Error] Unit1.pas(94): E2003 Undeclared identifier: 'GetTokenFromId'

Justamente es lo que mas me interesa, el poder elegir la voz del speech.

Nuevamente gracias
Saludos

[Neftali [Germán.Estévez]]

Empezado por aromigaret

Navbuoy,
como te mencioné instalé SAPI 5.4 y generé SpeechLib_TLB, y uso la version 10.3 de Delphi y no logro compilar las funciones que me aportaste.
Tendrá algo que ver la versión de Delphi?

Prueba con esta versión de SpeechLib_TLB.pas que te adjunto.
A mi la importada desde Delphi de la v.5.4 también me daba errores.

[aromigaret]

Empezado por Neftali [Germán.Estévez]

Prueba con esta versión de SpeechLib_TLB.pas que te adjunto.
A mi la importada desde Delphi de la v.5.4 también me daba errores.

Muchas gracias Neftali, voy a probarla y te comento.

[aromigaret]

Neftali,
Removí el componente que tenia instalado, instalé el que me pasaste y aun así, me sigue dando exactamente los mismos errores que mencione antes. Hice una búsqueda de las funciones que da error y no las encontré en SpeechLib_TLB.pas que me pasaste. Como pudiste compilar, sino están esas funciones. Estaré haciendo algo mal?