Lecture d'un fichier .wav octet par octet

Version imprimable

26/07/2007, 09h18
DevVB

Lecture d'un fichier .wav octet par octet

Bonjour

je dois creer une procedure permettant de lire un fichier .wav octet par octet pour pouvoir supprimer l' header par exemple.

Je sais que je n'ai pas trop développé mais je vois pas trop comment expliquer plus donc voila si quelqu'un a une idée

Merci
26/07/2007, 12h26
LeForestier

bonjour,
pour avoir une petite idée de comment gérer les son .Wav va voir ce Tuto
http://vcallies.developpez.com/sonsvb/

A+
26/07/2007, 15h36
DevVB

Merci

mais ca ne correspond pas exactement à ce que je cherche
en fait je dois decouper mon fichier .wav pour l'envoyer vers un modem et le recevoir sur mon telephone
je ne suis pas sur qu'il faille faire comme ca mais je l'ai lu sur plusieur site alors peut etre que c'est ca......
Si quelqu'un peut me renseigner merci beaucoup
26/07/2007, 16h20
LeForestier

pour modifier un fichier .Wave tu doit le charger en Binaire, mais pour le modifier cela nécessite une connaissance approfondie de ces fichiers.
26/07/2007, 16h34
DevVB

Merci du renseignement jusque la je te suis ouvrir le fichier en binaire je sais faire!!
La ou est mon probléme c'est pour extraire, je ne sais pas comment faire pour extraire juste 1 byte j'ai essayé avec input, get en déclarant une variable de type bytes mais j'ai toujours un probléme
je pense que c'est juste 1 ligne de code qui doit me manquer!!
26/07/2007, 16h52
LeForestier

bon, si tu sais lire le fichier en binaire ET QUE TU SAIT CE QUE TU DOIT ENLEVER, tu n'a que de transcrire ton fichier sous un autre nom en otant les byte sélectionner.

PS:
montre le code.

Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim fichier As String Dim chemin As String Dim fichiernom As String Dim xbData() As Byte chemin = "C:\Documents and Settings\Bureau\phone\" fichiernom = "alarme.wav" fichier = Dir$(chemin & fichiernom) Open fichier For Binary Access Read As #1 Get #1, 59, xbData Close #1
voila le code pour le fichier, je l'ouvre en mode binaire aprés je veux enlever l'header 58 bytes (je crois)
et aprés il faut que j'envoie le fichier modifier sur mon modem audio et que jentende le son sur mon telephone
pour la connexion du modem pas de probléme par contre pour l'envoie c'est autre chose
mais bon ma premiére question c'est est ce que je recupére le bon fichier a envoyer? et dans quoi je recopie ce que j'ai récupérer de mon get?

27/07/2007, 12h10
LeForestier
Effectivement il te manque une ou deux lignes...

Tu doit ouvrir un autre fichier binaire en écriture et retranscrire les bytes en passant ceux que tu ne veux pas (avec une fonction IF par exemple)
il n'est pas nécessaire de faire un tableau, tu peu faire Get #1 et put #2 dans la même boucle.

Je crois que tu peu l'ouvrir directement avec l'extention WAV et ensuite le faire "jouer"

Une petite approche (j'ai un peu oublié les commande exactes, donc tu rectifie la syntaxe)
Code:

1 2 3 4 5 6 7 8 9 10 dim e as integer Ouvrir #1 en lecture Ouvrir #2 en écriture e=1 for i=1 to EOF(1) get #1, i, a if i<> TaSelection then put #2, e, a : e = e + 1 next i
A+