Сразу оговорюсь, что рассматривать я буду только PCM формат - самый простой. Wav-файл состоит из заголовка и собственно информации. В заголовке находится информация о типе файла, частоте, каналах и т.д. Сама информация состоит из массива чисел по 8 или 16 бит. Если в файле 2 канала, то значения левого и правого каналов записываются поочередно.
Для работы с заголовком удобнее всего использовать запись, расположение полей в которой будет повторять расположение информации в файле. Например, первая запись в wav-файле - это символы "RIFF". Соответственно, первое поле в записи должно быть массивом из четырех элементов типа char. Вторая запись - длина файла без 8 байт (без первых двух записей). Длина записана в четырех байтах целым числом. Поэтому взят тип longint. Так составляется эта запись. Когда нужно целое число длиной 2 байта - берется smallint.
О создании wav-файлов и хранении самой информации я расскажу в следующем выпуске.
Эта программа выводит в Memo длину wav-файла, количество каналов, частоту и количество бит на запись.
Скачать необходимые для компиляции файлы проекта можно на http://program.dax.ru
type
TWaveHeader = record
idRiff: array[0..3] of char;
RiffLen: longint;
idWave: array[0..3] of char;
idFmt: array[0..3] of char;
InfoLen: longint;
WaveType: smallint;
Ch: smallint;
Freq: longint;
BytesPerSec: longint;
align: smallint;
Bits: smallint;
end;
TDataHeader = record
idData: array[0..3] of char;
DataLen: longint;
end;
// Процедура ?тения заголовка wav-файловprocedure ReadWaveHeader(Stream: TStream;
var SampleCount, SamplesPerSec: integer;
var BitsPerSample, Channeles: smallint);
var
WaveHeader: TWaveHeader;
DataHeader: TDataHeader;
begin
Stream.Read(WaveHeader, sizeof(TWaveHeader));
with WaveHeader dobeginif idRiff <> "RIFF" thenraise EReadError.Create("Wrong idRIFF");
if idWave <> "WAVE" thenraise EReadError.Create("Wrong idWAVE");
if idFmt <> "fmt " thenraise EReadError.Create("Wrong idFmt");
if WaveType <> 1 thenraise EReadError.Create("Unknown format");
Channeles := Ch;
SamplesPerSec := Freq;
BitsPerSample := Bits;
Stream.Seek(InfoLen - 16, soFromCurrent);
end;
Stream.Read(DataHeader, sizeof(TDataHeader));
if DataHeader.idData = "fact" thenbegin
Stream.Seek(4, soFromCurrent);
Stream.Read(DataHeader, sizeof(TDataHeader));
end;
with DataHeader dobeginif idData <> "data" thenraise EReadError.Create("Wrong idData");
SampleCount := DataLen div (Channeles * BitsPerSample div 8)
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
OpenDialog1.Filter := "Wave files|*.wav";
end;
procedure TForm1.Button1Click(Sender: TObject);
var
F: TFileStream;
SampleCount, SamplesPerSec: integer;
BitsPerSample, Channeles: smallint;
begin// Вызов OpenDialog1:ifnot OpenDialog1.Execute then
Exit;
try// Открытие файла:
F := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
// Чтение заголовка:
ReadWaveHeader(F, SampleCount, SamplesPerSec,
BitsPerSample, Channeles);
F.Free;
Memo1.Clear;
// Заполнение Memo информацией о файле:
Memo1.Lines.Add("SampleCount: " + IntToStr(SampleCount));
Memo1.Lines.Add(Format("Length: %5.3f sec", [SampleCount / SamplesPerSec]));
Memo1.Lines.Add("Channeles: " + IntToStr(Channeles));
Memo1.Lines.Add("Freq: " + IntToStr(SamplesPerSec));
Memo1.Lines.Add("Bits: " + IntToStr(BitsPerSample));
exceptraise Exception.Create("Problems with file reading");
end;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Пример чтения и сохранения wav-файлов", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!