Discussion :

[fred7]

Bonjour à tous,

J'ai besoin de convertir un fichier son .wav (PCM non signé, 8KHz, 8bit, mono) en un fichier texte contenant toutes les valeurs numérique qui caractérise la piste sonore. Que les valeurs soient au format décimal ou hexa n'a pas d'importance.
Avez vous une idée ?

Merci.

[Charly910]

Bonjour,
je pense que tu as déjà du chercher sur Google. Voici par exemple un site qui détaille les quelques données de l'entête du fichier wav :

http://www.freesoundeditor.com/docwave.htm

A+
Charly

[solilog]

Salut,
Voici un petit bout de code (testé) qui convertit n'importe quel fichier binaire vers un fichier .txt
avec des valeurs affichées en Hexa ( // ou décimal en)
On va faire simple avec les noms : Soit Form1 avec dessus Opendialog1 , memo1 et Button1 :

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
35
36
37
38
39
40
41
42
43
44
45
const NoSrc = -1;   // Fichier source n'existe pas
      ExDst = -2;   // Fichier destin existe déjà
 
function BinToHexa (nSrc, nDst : string): integer;
var Buff: array[0..15] of byte;
    i, nbLu: integer;
var fSrc: file;
    fDst: text;
begin
   result := 0;
   if not FileExists(nSrc) then
      result := NoSrc
   else if not FileExists(nSrc) then
      result := ExDst
   else begin
      assignfile (fSrc, nSrc);
      reset (fSrc, 1);
      assignfile (fDst, nDst);
      rewrite (fDst);
      while not eof(fSrc) do
      begin
         blockread( fSrc, Buff, 16, nbLu);
         for i := 0 to nbLu-1 do
            write (fDst, format('%2.2x ', [Buff[i]]));
            // ou en décimal write (fDst, format('%3.3d ', [Buff[i]]));
         inc(result, NbLu);
         writeln(fDst);
      end;
      closefile (fSrc);
      closefile (fDst)
   end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var nSrc, nDst:string;
    Nbr : integer;
begin
   if opendialog1.execute then
   begin
      nSrc := opendialog1.filename;
      nDst := copy(nSrc, 1, pos(extractfileext(nSrc), nSrc)-1) + '.txt';
      Nbr := BinToHexa( nSrc, nDst);
      Memo1.lines.loadfromfile(nDst);
   end;
end;

Utilise ce code pour tester la fonction, la modifier ..., mais attention à ne pas mettre un fichier trop gros, car le memo risque de peiner si tu veux y mettre 300Mo.
Tcho :-)
solilog

[Charly910]

désolé, j'avais mal compris, je pensais que tu voulais extraire les valeurs numériques de l'entête du fichier wav (longueur, nombres de canaux, fréquence d’échantillonnage, ...)

pour une simple conversion vers txt en hexa tu dois avoir ce qu'il faut.

A+
Charly

[fred7]

désolé, j'avais mal compris, je pensais que tu voulais extraire les valeurs numériques de l'entête du fichier wav (longueur, nombres de canaux, fréquence d’échantillonnage, ...)

pour une simple conversion vers txt en hexa tu dois avoir ce qu'il faut.

A+
Charly

Il n'y a pas de mal, en fait pour mon application, je vais au contraire supprimer le header.