zwei Sounds vergleichen

[Die Muhkuh]

Hier:

Delphi-Quellcode:

function CompareFiles(const sFileName1, sFileName2: String): Boolean; 
var 
  ms1, ms2: TMemoryStream;
begin 
  Result := False; 
  ms1 := TMemoryStream.Create; 
  try 
    ms1.LoadFromFile(sFileName1); 
    ms2 := TMemoryStream.Create; 
    try 
      ms2.LoadFromFile(sFileName2); 
      If ms1.size = ms2.size Then 
        Result := CompareMem(ms1.Memory, ms2.memory, ms1.size); 
    finally 
      FreeAndNil(ms2); 
    end; 
  finally 
    FreeAndNil(ms1); 
  end 
end;