Пацаны ну как вам не стыдно ? Есть такая маза как проверка CRC32 неужели не слышали?

НЕТ! Расскажи подробнее...

Ну че там расказывать, у каждого файла есть свой уникальный CRC, вся сложность в том, что его надо подсчитать. на сайте www.utilmind.com есть бесплатный компонент с примером и сорс кодом, я его (компонент) немного модифицировал.





Премер работы:

(Если параметр CRC32 = False то функция возвращает CRC16)

Код

function GetCRC(const FilePath: TFilename; CRC32:boolean):string; var  xCRC16: Word;  xCRC32: LongInt; begin  if not CRC32 then   begin     FileCRC16(FilePath, xCRC16);     Result:=IntToStr(xCRC16);     end else      begin        FileCRC32(FilePath, xCRC32);        Result:=IntToStr(xCRC32);      end; end;

Присоединённый файл ( Кол-во скачиваний: 11 )
 CRC.zip

А если одан Wav записан мужским голосом, а другой женским, причем текст один и тот же?

Pakshin A. S. флудер!:^)

Цитата(Pakshin @ 7.6.2004, 13:54)

А если одан Wav записан мужским голосом, а другой женским, причем текст один и тот же?

Yo! я то думал вопрос серьёзный , о сравнении идентичности двух или более файлов а, это оказывается утопия, на тему написания функции Voice2Text

Полудненко Олег Ненадо оскорблять!!!! Противоречие правилам!!!!

А вопрос серьёзным был, т. к. когда-то хотел замутить голосовое управление программой...

Цитата

А вопрос серьёзным был, т. к. когда-то хотел замутить голосовое управление программой...

Pakshin A. S., ну так ты так и говори, а то сравнение файлов какое-то Причем здесь сравнение файлов?

Насколько я знаю проблему идентификации голоса на все 100% ещё никто не решил, достаточно поменять тембр и хана.

CRC32 не катит -- на больших файлах уникальность не гарантируется
лучше MD5Sum использовать

Цитата(_hunter @ 8.6.2004, 16:02)

CRC32 не катит -- на больших файлах уникальность не гарантируется лучше MD5Sum использовать

Хэш расчитать, тоже верно. А вот счего ты взял что для больших файлов CRC неподсчитывается (впервые слышу ) ? И какой это у файла размер должен быть?

почему неподсчитывается? подсчитывается она
просто двух абсолютно разных файлов она может быть одинаковой, что не есть гут

А если в отношении WAv
Объясните тупому


Для создания собственного WAV-файла сделайте следующее:

DataBytes := Channels;
DataBytes := DataBytes * SampleRate;
DataBytes := DataBytes * Resolution;
DataBytes := DataBytes div 8;
DataBytes := DataBytes * Duration;
DataBytes := DataBytes div 1000;

WaveHeader.Marker1 := 'RIFF';
WaveHeader.BytesFollowing := DataBytes + 36;
WaveHeader.Marker2 := 'WAVE';
WaveHeader.Marker3 := 'fmt ';
WaveHeader.Fixed1 := 16;
WaveHeader.FormatTag := 1;
WaveHeader.SampleRate := SampleRate;
WaveHeader.Channels := Channels;
WaveHeader.BytesPerSecond := Channels;
WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond * SampleRate;
WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond * Resolution;
WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond div 8;
WaveHeader.BytesPerSample := Channels * Resolution div 8;
WaveHeader.BitsPerSample := Resolution;
WaveHeader.Marker4 := 'data';
WaveHeader.DataBytes := DataBytes;

Остальная часть файлы является звуковыми данными. Порядок следования: верхний уровень для левого канала, верхний уровень для правого канала и так далее. Для моно или 8-битных файлов сделайте соответствующие изменения.



Какие соответствующие изменения ....
Что такое, и какими они могут быть :

Channels
SampleRate
Resolution
Duration


А то я пытался создать, но е меня неполучилось, как все , наверно, догадались ..