Discussion :

[Sam Placi]

Bonjour,

Suite à mon sujet précédent (System.Speech : quelle langue ?) je peux produire des fichiers de textes dictés par l'ordinateur.
Jusque là, le seul format que je peux enregistrer est WAV avec s.SetOutputToWaveFile(Nom_du_fichier). Mais cela donne des fichiers volumineux qui ne perdent aucune qualité "audible" lorsqu'ils sont convertis en MP3 avec un utilitaire externe.
Je ne pense pas que System.Speech permette un autre format que WAV, mais peut-être qu'il est possible programmer la conversion WAV => MP3 en VB ?

Merci d'avance pour vos idées.

Sam

[Miska59]

Bonjour Sam,

regarde dans ce lien peut-être la solution à ton problème wav to mp3 avec Install-Package NAudio.Lame : https://stackoverflow.com/questions/...ch-to-mp3-file

cordialement,

[Sam Placi]

Merci Miska59.
J'espère avoir le temps d'essayer cela cet après-midi.
Je te dirai.
Sam

[Miska59]

salut sam,

voici le code wav to mp3 avec speech :

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
23
24
25
26
27
28
29
30
31
32
33
34
Imports System.IO
Imports System.Speech.Synthesis
Imports NAudio.Lame
Imports NAudio.Wave
 
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox2.Text = Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "teste.mp3")
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Not String.IsNullOrEmpty(TextBox1.Text) AndAlso Not String.IsNullOrEmpty(TextBox2.Text) Then
            Using reader As New SpeechSynthesizer
                reader.Volume = 100
                reader.Rate = 0
                Dim ms As New MemoryStream
                reader.SetOutputToWaveStream(ms)
                reader.Speak(TextBox1.Text)
                ConvertWavStreamToMp3File(ms, TextBox2.Text)
            End Using
        End If
    End Sub
 
    Private Sub ConvertWavStreamToMp3File(ms As MemoryStream, Filename As String)
        ms.Seek(0, SeekOrigin.Begin)
        Using retMs As New MemoryStream()
            Using rdr As New WaveFileReader(ms)
                Using wtr As New LameMP3FileWriter(Filename, rdr.WaveFormat, LAMEPreset.VBR_90)
                    rdr.CopyTo(wtr)
                End Using
            End Using
        End Using
    End Sub
End Class

j'ai bien le format mp3 en sortie. cordialement,

[Sam Placi]

Salut Miska59,

J'ai pas pu y travailler hier mais bien ce matin.
Cela fonctionne exactement comme je veux avec la librairie NAudio.
Je peux sortir au choix du WAV et du MP3.
J'ai gardé le WAV parce que je l'ai par défaut dans System.Speech, mais mes fichiers audios ne contiennent que des textes dits en français et en espagnol. La qualité MP3 est parfaite et les fichiers légers.

Encore un grand merci.

Très bonne journée,

Sam,