Discussion :

[DevVB]

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

[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+

[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

[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.

[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!!

[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.

[DevVB]

Code :

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

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?

[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 :

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

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+