Comment convertir un texte en fichier audio

Source : Newsgroup PCSoft

Auteur : Cette adresse e-mail est protégée contre les robots spammeurs. Vous devez activer le JavaScript pour la visualiser.

Création du fichier WAV à partir d'un texte.

PROCEDURE TexteVersWav(sTexteAEnregistrer est une chaine, nFormat est un entier=18, sFichierWav est une chaine = "")

objFileStream est un objet Automation dynamique
objVoice  est un objet Automation dynamique

objFileStream = allouer un objet OLE("SAPI.SpFileStream")
objVoice  = allouer un objet OLE("SAPI.SPVOICE")

objFileStream>>Format>>Type = nFormat
objFileStream>>Open(sFichierWav, 3, OLEFaux)
objVoice>>AudioOutputStream = objFileStream

objVoice>>Speak(sTexteAEnregistrer)
objFileStream>>Close()


libérer objFileStream
libérer objVoice

RENVOYER sFichierWav

Constantes SAPI

PROCEDURE TexteVersWav(sTexteAEnregistrer, nFormat=18, sFichierWav)

objFileStream est un objet Automation dynamique
objVoice  est un objet Automation dynamique

objFileStream = allouer un objet OLE("SAPI.SpFileStream")
objVoice  = allouer un objet OLE("SAPI.SPVOICE")

objFileStream>>Format>>Type = nFormat
objFileStream>>Open(sFichierWav, 3, OLEFaux)
objVoice>>AudioOutputStream = objFileStream

objVoice>>Speak(sTexteAEnregistrer)
objFileStream>>Close()


libérer objFileStream
libérer objVoice

RENVOYER sFichierWav

Lecture fichier WAV ou Mp3

PROCEDURE LectureWAVouMP3(sFichierWav)
MCIArrêt("MonSon")
MCIFerme("MonSon")
Multitâche(-5)
SI MCIOuvre(sFichierWav, "MonSon") ALORS
 SI MCIJoue("MonSon") ALORS
  TANTQUE MCIEtat("MonSon") = MciEtatJoue
   Multitâche(-5)
  FIN
  MCIFerme("MonSon")
 FIN
SINON
 Info("Erreur sur l'ouverture du fichier son.")
FIN