Fórum Teste para reconhecimento de voz #295733

//to read an audio file use cbAudioFileRead.pas from DSMix - it´s
//FreeWithSource
//from each file read a chunk of data depending on the format (accessible
//from TcbAudioFileReader.Format property)
//to get the peak from a 16bit stereo chunk do:

type
  TStereoRec16 = record
    Left: Word;
    Right: Word;
  end;

var 
  F1, F2: TcbAudioFileReader;
  sr1, sr2: TStereoRec16;
  F1Read, F2Read: Integer;
begin
  ...
  repeat
    F1Read:=F1.Read(sr1, SizeOf(sr1)); // also check the result to see how much was read
    F2Read:=F2.Read(sr2, SizeOf(sr2));
    Result:=(F1.Left = F2.Left) and (F1.Right = F2.Right); // or add some tolerance checking
  until (not Result) or (Min(F1Read, F2Read) < SizeOf(TStereoRec16));
...