Discussion :

[matth59]

Bonjour,

Je suis débutant en VB.NET et j'utilise le code ci dessous pour enregistrer du text to speech dans un fichier .wav, tout ce passe bien mais le son enregistrer est de mauvaise qualité.
Est ce que quelqu'un peu m'aider.

Merci d'avance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim SAPI, fichier_out
        SAPI = CreateObject("sapi.spvoice")
        SAPI.Speak(TextBox1.Text)
 
        fichier_out = CreateObject("SAPI.SpFileStream")
        fichier_out.Open("c:\sortie.wav", 3, False)
 
        SAPI.AudioOutputStream = fichier_out
        SAPI.Speak(TextBox1.Text)
        fichier_out.close()
 
    End Sub
 
End Class

[tomlev]

Tu peux changer le format comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fichier_out.Format.Type = xxx

La liste des formats possibles est ici :
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
Par contre je sais pas trop lequel il faut prendre... tu en as juste 70 à essayer

[matth59]

Merci, je vais tester en profondeur mais le fichier wav de sortie change bien de format.

Bonne soirée.

Cdlt