Lazarus

Programming => Graphics and Multimedia => Audio and Video => Topic started by: Rontic on September 29, 2021, 11:03:35 am

Title: SAPI
Post by: Rontic on September 29, 2021, 11:03:35 am

I can get my programs to talk under Windows 10 using SAPI, but haven't yet found out how to enumerate the voices, change the voice that I want to use, as well as the pitch, speed and volume.
Can someone please help me with my problem?
I can do it with Delphi under Windows XP.

Title: Re: SAPI
Post by: Leledumbo on September 29, 2021, 11:53:33 am

Quote from: Rontic on September 29, 2021, 11:03:35 am

I can do it with Delphi under Windows XP.

Should be the same under FPC, as long as you don't use any 3rd party components but only pure Windows API.

Title: Re: SAPI
Post by: Red_prig on September 29, 2021, 12:00:22 pm

I used sapi in my project, see here:
1) modified SpeechLib_TLB.pas -> https://github.com/red-prig/twitch_vip_bot/blob/trunk/SpeechLib_TLB.pas (https://github.com/red-prig/twitch_vip_bot/blob/trunk/SpeechLib_TLB.pas)
2) see proc:

Code: Pascal [Select][+]

Procedure EnumSAPIVoices(cb:TEnumSAPIVoiceCb);
Procedure EnumSAPIAudioOutputs(cb:TEnumSAPIVoiceCb);
 

in
https://github.com/red-prig/twitch_vip_bot/blob/trunk/AudioEngine.pas (https://github.com/red-prig/twitch_vip_bot/blob/trunk/AudioEngine.pas)