Frank_klein
Messages postés34Date d'inscriptionsamedi 26 mars 2005StatutMembreDernière intervention 8 février 2022
-
27 juil. 2009 à 13:25
Frank_klein
Messages postés34Date d'inscriptionsamedi 26 mars 2005StatutMembreDernière intervention 8 février 2022
-
28 juil. 2009 à 12:52
salut, quelqu'un aurait une idée comment faire appeler les voix API pour une aplication text to speach. J'ai telechargé le SDK de microsoft et j'ai installé les voix mais j'arrive pas les appeler dans mon prog, exemple y'a la voix Microsoft Sam par defaut qui est presente, mais il y a la possibilité de le mettre toutes dans une combobox et de changer la vitesse et le volume audio de la voix .... merci
Frank_klein
Messages postés34Date d'inscriptionsamedi 26 mars 2005StatutMembreDernière intervention 8 février 2022 28 juil. 2009 à 11:53
des recherches j'ai en faites le truc qui manque c'est comme je l'ai dit dans mon message, c'est au niveu du code pour transposer l'exemple donne dans l'api Speech de Microsoft en code delphi, il s'agit de creer un code delphi qui cherche le nobre des voix dans le registre HKLM et les mettre dans une combobox apres les initialiser....
//Enumerate the available audio output devices
if(SUCCEEDED(hr))
hr = SpEnumTokens( SPCAT_AUDIOOUT, NULL, NULL, &cpEnum );
//Get the number of audio output devices
if(SUCCEEDED(hr))
hr = cpEnum->GetCount( &ulCount );
// Obtain a list of available audio output tokens, set the output to the token, and call Speak
while ( SUCCEEDED(hr) && ulCount-- )
{
if(SUCCEEDED(hr))
hr = cpEnum->Next( 1, &cpAudioOutToken, NULL );
Private V As SpeechLib.SpVoice
Private T As SpeechLib.ISpeechObjectToken
Private Sub Command1_Click()
If List1.ListIndex > -1 Then
'Set voice object to voice name selected in list box
'The new voice speaks its own name
Set V.Voice = V.GetVoices().Item(List1.ListIndex)
V.Speak V.Voice.GetDescription
Else
MsgBox "Please select a voice from the listbox"
End If
End Sub
Private Sub Form_Load()
Dim strVoice As String
Set V = New SpVoice
'Get each token in the collection returned by GetVoices
For Each T In V.GetVoices
strVoice = T.GetDescription 'The token's name
List1.AddItem strVoice 'Add to listbox
Next