Versione delle 08:35, 23 ago 2018

Il blocco di intestazione (header) di un file WAV è posto all'inizio del file, solitamente formato da 44 byte, e contiene le informazioni generali sui dati audio e sul file medesimo.

Per poter creare un blocco d'inteztazione di un file wav, è necessario tenere conto dei suoi elementi fondamentali:

• quantità dei dati audio grezzi (in byte);
• frequenza di campionamento (in hertz);
• risoluzione di campionamento (in bit);
• numero dei canali di uscita.

Da questi elementi principali è possibile individuare e quindi porre nel blocco di intestazione del file wav anche gli altri valori che lo compongono.

Mostriamo due modalità.

1^a modalità

Nell'esempio che segue, supporremo che i dati audio grezzi, passati alla Procedura mediante una variabile di tipo Stringa come argomento, siano stati acquisiti in precedenza da un file avente le seguenti caratteristiche: 44100 hertz, 16 bit, 2 canali. Si creerà un completo nuovo file WAV unendo il corretto blocco d'intestazione (header) a tali dati grezzi.
Il procedimento del codice mostra l'inserimento passo-passo di ciascun elemento previsto dal blocco header del file wav. Gli elementi non fondamentali verranno per lo più ricavati dai valori degli elementi fondamenti prima sopra elencati.

Private Procedure CreaHeaderWav(dati_grezzi As String)

 Dim fl As File
 Dim ini As String
 Dim bh, bb As New Byte[]
 Dim canali, risoluzione, blal as Byte
 Dim i, i2, frequenza, brps As Integer

' Vengono definiti gli elementi fondamentali del blocco d'intestazione del file wav:
  canali = 2
  frequenza = 44100
  risoluzione = 16 

  fl = Open "/percorso/di/destinazione/del/nuovo/file.wav" For Create

  ini = "RIFF"

  bb = Byte[].FromString(ini)

  i = Len(dati_grezzi)

  i2 = i + 36

' Imposta il valore dimensionale di 4 byte a partire dal 5° byte del futuro file: 
  bb.Push(i2 And &FF)
  bb.Push(Shr(i2 And &FF00&, 8))
  bb.Push(Shr(i2 And &FF0000&, 16))
  bb.Push(Shr(i2 And &FF000000&, 24))

' Vengono aggiunti: il tipo di formato di file e l'identificativo del formato del blocco dei dati audio: 
  bb.Insert(bh.FromString("WAVEfmt "))
 
' Viene aggiunto il valore della lunghezza dei dati del formato (in questo caso il PCM): 
  bh = [&10, &00, &00, &00]
  bb.Insert(bh)

' Viene aggiunto il valore del formato audio (1 = PCM):
  bb.Insert(bh.FromString(Chr(&01) & Chr(&00)))

' Viene aggiunto il numero dei canali di uscita:
  bb.Insert(bh.FromString(Chr(canali) & Chr(&00)))

' Viene aggiunto il valore della frequenza di campionamento:
  bb.Push(frequenza And &FF)
  bb.Push(Shr(frequenza And &FF00&, 8))
  bb.Push(Shr(frequenza And &FF0000&, 16))
  bb.Push(Shr(frequenza And &FF000000&, 24))

' Viene aggiunto il valore del "Byte rate per secondo":
  brps = frequenza * canali * (risoluzione / 8)
  bb.Push(brps And &FF)
  bb.Push(Shr(brps And &FF00&, 8))
  bb.Push(Shr(brps And &FF0000&, 16))
  bb.Push(Shr(brps And &FF000000&, 24))

' Viene aggiunto il valore del "Block Align":
  blal = canali * risoluzione / 8
  bb.Insert(bh.FromString(Chr(blal) & Chr(&00)))

' Viene aggiunto il valore della risoluzione di campionamento:
  bb.Insert(bh.FromString(Chr(risoluzione) & Chr(&00)))

' Viene aggiunto l'identificativo del Blocco dei dati audio grezzi:
  bb.Insert(bh.FromString("data"))

' Imposta il valore dimensionale di 4 byte a partire dal 41° byte del futuro file
' e relativo alla dimensione dei dati audio grezzi: 
  bb.Push(i And &FF)
  bb.Push(Shr(i And &FF00&, 8))
  bb.Push(Shr(i And &FF0000&, 16))
  bb.Push(Shr(i And &FF000000&, 24))
   
  bb.Insert(Byte[].FromString(dati_grezzi))
   
' Crea il nuovo file wav: 
  bb.Write(fl, 0, bb.Count)

  fl.Close

End

2^a modalità

Private Procedure CreaHeaderWav(dati_grezzi As String)
 
 Dim Ipw, dim_file, m8 As Integer
 Dim j As Byte
 Dim a As New Byte[]
 Dim dati, little_endian, primo_chunk, $prewav As String
  
  dati = File.Load(dati_grezzi)
  
' Ricaviamo la dimensione del file temporaneo contenente i dati audio grezzi:
  Ipw = Len(dati)

' Ricaviamo la dimensione totale del futuro file. Essa sarà, dunque, data dai byte del primo blocco ("Chunk")
' (contenente le informazioni sul file WAV ed i dati che lo distinguono ed identificano) pari a 44 byte più i dati audio grezzi del file temporaneo,
' i quali così vengono a formare il secondo blocco di dati del futuro file WAV.
  dim_file = 44 + Ipw
  
' Ricaviamo il formato "little-endian" dellla dimensione del file meno gli otto byte iniziali. Il risultato sarà inserito dal 5° all'8° byte:
  m8 = dim_file - 8
   
  little_endian = Hex(((m8 \ CInt(2 ^ 24)) And &FF) Or ((m8 * CInt(2 ^ 8)) And &FF0000) Or ((m8 \ CInt(2 ^ 8)) And &FF00&) Or ((m8 * CInt(2 ^ 24)) And &FF000000), 8)
   
  For j = 0 To 3
    a.Push(CByte(Val("&" & Mid(little_endian, (2 * j) + 1, 2))))
  Next

' Quindi ricaviamo il formato "little-endian" della dimensione del file temporaneo dei dati audio grezzi.
' Il risultato sarà inserito alla fine del primo blocco (chunk):
  little_endian = Hex(((Ipw \ CInt(2 ^ 24)) And &FF) Or ((Ipw * CInt(2 ^ 8)) And &FF0000) Or ((Ipw \ CInt(2 ^ 8)) And &FF00&) Or ((Ipw * CInt(2 ^ 24)) And &FF000000), 8)

  For j = 0 To 3
    a.Push(CByte(Val("&" & Mid(little_endian, (2 * j) + 1, 2))))
  Next


' Impostiamo i dati appartenenti al primo blocco del futuro file WAV":
  primo_chunk = "RIFF" & Chr(a[0]) & Chr(a[1]) & Chr(a[2]) & Chr(a[3]) & "WAVEfmt" & Chr(&20) & Chr(&10) & Chr(&00) & Chr(&00) & Chr(&00)
  primo_chunk &= Chr(&01) & Chr(&00) & Chr(&02) & Chr(&00) & Chr(&44) & Chr(&AC) & Chr(&00) & Chr(&00) & Chr(&10) & Chr(&B1) & Chr(&02)
  primo_chunk &= Chr(&00) & Chr(&04) & Chr(&00) & Chr(&10) & Chr(&00) & "data" & Chr(a[4]) & Chr(a[5]) & Chr(a[6]) & Chr(a[7])
   
' Ecco, dunque, creiamo il file WAV finale unendo il primo blocco dei dati informativi
' e caratterizzanti il file WAV con i dati audio grezzi del file temporaneo":
  File.Save("/percorso/del/definitivo/file.wav", primo_chunk & dati)

End

Riferimenti

• http://www.topherlee.com/software/pcm-tut-wavformat.html
• http://unusedino.de/ec64/technical/formats/wav.html
• http://www.gambas-it.org/wiki/index.php?title=Estrarre_informazioni_da_un_file_.wav