Salve,
Sto cercando di scrivere un programma che Legge un testo e lo salva in un file audio. La seguente procedura funziona e crea un file.wav
Quello che non riesco a fare è convertire e salvare l'AudioOutputStream in formato mp3. Qualcuno mi può suggerire come fare? Magari usando lame...codice:Private Sub SalvaComeFileAudio() Dim V As New SpeechLib.SpVoice Dim f As New SpeechLib.SpFileStream V.Voice = Voce V.Volume = Volume V.Rate = Velocità f.Open("OutPutFile", SpeechLib.SpeechStreamFileMode.SSFMCreateForWrite, False) V.AudioOutputStream = f V.Speak(TestoDaConvertireInAudio, SpeechLib.SpeechVoiceSpeakFlags.SVSFDefault) f.Close() End Sub

Rispondi quotando