@Snowbird

Могу тебя обрадовать на Delphi это можно реализовать... Только вот слишком сложна проблема, которую ты собираешься решать.

Единственное, чем могу тебе помочь, это как прочитать WAVE файл формата PCM (Если интересует, как прочитать WAVE файл другого формата, например ADPCM или MPEG Layer 3, тоже могу рассказать, свяжись по ICQ или отправь письмо на мыло)…

Сначала опишу структуру WAVE файла:

4 Байта а Глобальный фрагмент WAVE файла (должно быть RIFF)
4 Байта а Размер глобального фрагмента ( равен размеру всего файла, за исключением 4 ёх байт глобального идентификатора RIFF )
4 Байта а Дополнительный идентификатор WAVE
4 Байта а Идентификатор формата определяющий формат звуковых данных, fmt ( последним символом является пробел ), этот идентификатор обозначает что вслед за ним следует структура описывающая формат исходных данных..
4 Байта а размер структуры описывающей формат исходных данных

{------------Структура описывающая формат исходных данных---------------------}

2 Байта а Идентификатор типа звукового формата. В модуле MMSystem определяются константы для многих типов форматов, например WAVE_FORMAT_PCM для данных в формате PCM…
2 Байта а Количество каналов, например, 1 ( моно ), 2 ( Стерео )
4 Байта а Частота дискретизации, т.е. количество выборок за секунду
4 Байта а Скорость воспроизведения
2 Байта а Используется для выравнивания на границу блока
2 Байта а Количество Бит в выборке сигнала. Стандартные значения – 8 (Бит) и 16 Бит
2 Байта а Размер дополнительных данных, распологающихся вслед за данной структурой в памяти на диске..

{---------------------------------------------------------------------------------------------------}

4 Байта а Идентификатор данных data означает, что вслед за ним будут идти данные
4 Байта а Размер данных идущих вслед за data

Далее идут непосредственно сами данные, размер которых определяется предыдущим полем…

А теперь приведу пример функции загружающей блок звуковых данных в память.
В качестве входных параметров указывается Имя загружаемого Wave файла ( FileName ), Указатель в который будет помещен указатель на выделенный блок звуковых данных (Buffer ), переменная в которую будет помещён Размер звуковых данных (BufferSize), Структура в которую будет занесена информация о формате звуковых данных )…
Если во время загрузки звуковых данных в память произойдёт ошибка, то функция возвратит False…

Uses MMSystem;

function LoadSound(const FileName:String; Buffer : Pointer; out BufferSize : Cardinal; out WaveFormat : TwaveFormatex ):Boolean;
var
F :File;
Id :array[0..8] of Char;
SizeHeaderWORD;
begin

Result := False;

//Проверяем существует ли указанный файл
If not FileExists(FileName) then Exit;

//Открываем файл
AssignFile(F,FileName);
try
Reset(F,1);

//Пропускаем первые 8 Байтов, это RIFF + размер глобального идентификатора
Seek(F,8);

//Считываем 8 Байтов
Blockread(F,Id,8);

//Если этот идентификатор не Wavefmt, то значит файл повреждён
if AnsiStrLiComp(Id,'WAVEfmt ',8)<>0 then
begin
CloseFile(F);
Exit;
end;

//Считываем размер структуры описывающей размер структуры описывающей формат звуковых данных
BlockRead(F,SizeHeader,4);

//Е сли размер структуры описывающей формат звуковых данных, больше максимально допустимой для формата PCM, то с такими файлами не работаем
If SizeHeader>SizeOf(TWaveFormatex) then
begin
CloseFile(F);
Exit;
end;

//Считываем структуру описывающую формат исходных данных
BlockRea

Вернуться к обсуждению:
Сравнение двух звуковых файлов. Delphi

0