[blezigens]

Прошу помощи, есть 2 аудио файла мне нужно их сравнить в % соотношении.
Например, если два файла похожи, скажем на 50- 100% то совершается действие.
Спасибо заранее!!!!!!!

[EvilRussian]

Аудио-сравнивалку пишешь?

Попробуй побайтное сравнение, и в конце делишь количество одинаковых байт на количество байт всего и умножаешь на сто.

А Game_Maker, который у тебя на аватарке, я очень люблю и уважаю

Добавлено: под "количество байт всего" берёшь больший файл

[blezigens]

function CompareFiles(Filename1,FileName2:string):longint;
{
  Сравнение файлов

  возвращает номер несовпадающего байта,
  (байты отсчитываются с 1)или:
  0 - не найдено отличий,
  -1 - ошибка файла 1
  -2 - ошибка файла 2
  -3 - другие ошибки
}
const
  Buf_Size=16384;
var
  F1,F2:TFileStream;
  i:longint;
  Buff1,Buff2:PByteArray;
  BytesRead1,BytesRead2:integer;
begin
  Result:=0;
  try
    F1:=TFileStream.Create(FileName1,fmShareDenyNone);
  except
    Result:=-1;
    exit;
  end;
  try
    F2:=TFileStream.Create(FileName2,fmShareDenyNone);
  except
    Result:=-2;
    F1.Free;
    exit;
  end;
  GetMem(Buff1,Buf_Size);
  GetMem(Buff2,Buf_Size);
  try
    if F1.Size> F2.Size then Result:=F2.Size+1
    else if F1.SizeF1.Position) and (Result=0) do begin
      BytesRead1 :=F1.Read(Buff1^,Buf_Size);
      BytesRead2 :=F2.Read(Buff2^,Buf_Size);
      if (BytesRead1=BytesRead2) then begin
        for i:= 0 to BytesRead1-1 do begin
          if Buff1^[i]< > Buff2^[i]
          then begin
            result:=F1.Position-BytesRead1+i+1;
            break;
          end;
        end;
      end else begin
        Result:=-3;
        break;
      end;
    end;
  end;
  except
    Result:=-3;
  end;
  F1.Free;
  F2.Free;
  FreeMem(Buff1,Buf_Size);
  FreeMem(Buff2,Buf_Size);
end;

Подойдет????

[Thrasher]

Я думаю, что так неправильно сравнивать аудио файлы. А если битрейт разный? Тогда и размер разный будет. А звучание - одинаковое (ну в смысле чуть хуже, но звуки те же). поэтому нужно сравнивать по амплитудам.

[blezigens]

Можешь подсказать как, и нужны ли для этого компоненты?

[EvilRussian]

Thrasher
Да, ты прав, однако...
А я и не подумал об этом.

[blezigens]

Спасибо всем за то что не отказали в помощи, но я сам нашёл то что искал.
http://www.delphimaster.ru/cgi-bin/f...1291493767&n=7