Formato de archivo wav

Formato de archivo wav

Formato de archivo wav : Multi-millones de consejos para hacer su vida mas facil.

en Este articulo se muestra el formato de un archivo WAV.
TWaveHeader = record
& 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: La palabra
& nbsp & nbsp Canales: Word
& nbsp & nbsp velocidad de muestreo: LongInt
& nbsp & nbsp BytesPerSecond: LongInt
& nbsp & nbsp BytesPerSample: Word
& nbsp & nbsp BitsPerSample: Word
& nbsp & nbsp Marker4: Array[0..3] of Char
& nbsp & nbsp DataBytes: LongInt
fin
Para crear su propio WAV:
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp DataBytes := Canales
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp DataBytes := DataBytes * frecuencia de muestreo
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp DataBytes := DataBytes * Resolucion
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp DataBytes := DataBytes div 8
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp DataBytes := DataBytes * Duracion
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp DataBytes := DataBytes div 1000
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.Marker1 := 'RIFF'

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.BytesFollowing := DataBytes 36
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.Marker2 := 'OLA'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.Marker3 := 'fmt'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.Fixed1 := 16
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.FormatTag := 1
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.Frecuencia de muestreo := frecuencia de muestreo
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.Canales := Canales
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.BytesPerSecond := Canales
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond * frecuencia de muestreo
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond * Resolucion
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond div 8
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.BytesPerSample := Canales * Resolucion div 8
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.BitsPerSample := Resolucion
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.Marker4 := 'datos'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp WaveHeader.DataBytes := DataBytes