Le Format d'un fichier wav

Le Format d'un fichier wav

Le Format d'un fichier wav : Plusieurs milliers de conseils pour vous faciliter la vie.

Cet article montre le format d'un fichier WAV.
TWaveHeader = enregistrement
& nbsp & nbsp Marker1: Array[0..3] of Char
& nbsp & nbsp BytesFollowing: LongInt
& nbsp & nbsp Marker2: Array[0..3] of Char
& nbsp & nbsp Marker3: Array[0..3] of Char
& nbsp & nbsp Fixed1: LongInt
& nbsp & nbsp FormatTag: Mot
& nbsp & nbsp Canaux: Mot
& nbsp & nbsp taux d'echantillonnage: LongInt
& nbsp & nbsp BytesPerSecond: LongInt
& nbsp & nbsp BytesPerSample: Mot
& nbsp & nbsp BitsPerSample: Mot
& nbsp & nbsp Marker4: Array[0..3] of Char
& nbsp & nbsp DataBytes: LongInt
fin
Pour creer votre propre WAV:
& ! & ! & ! & ! & ! & ! & ! & nbsp DataBytes := Canaux
& ! & ! & ! & ! & ! & ! & ! & nbsp DataBytes := DataBytes * taux d'echantillonnage
& ! & ! & ! & ! & ! & ! & ! & nbsp DataBytes := DataBytes * Resolution
& ! & ! & ! & ! & ! & ! & ! & nbsp DataBytes := DataBytes div 8
& ! & ! & ! & ! & ! & ! & ! & nbsp DataBytes := DataBytes * Duree
& ! & ! & ! & ! & ! & ! & ! & nbsp DataBytes := DataBytes div 1000
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.Marker1 := 'RIFF'

& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.BytesFollowing := DataBytes 36
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.Marker2 := 'VAGUE'
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.Marker3 := 'fmt'
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.Fixed1 := 16
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.FormatTag := 1
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.Taux d'echantillonnage := taux d'echantillonnage
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.Canaux := Canaux
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.BytesPerSecond := Canaux
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond * taux d'echantillonnage
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond * Resolution
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond div 8
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.BytesPerSample := Canaux * Resolution div 8
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.BitsPerSample := Resolution
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.Marker4 := 'donnees'
& ! & ! & ! & ! & ! & ! & ! & nbsp WaveHeader.DataBytes := DataBytes