Delay entre un sndPlaySound y otro

[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