Модераторы: Snowy, Alexeis, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сравнение Wav 
:(
    Опции темы
Pakshin A. S.
  Дата 6.12.2003, 21:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61



Всё, что изложено ниже может являться полнейшим бредом, но такая мысль поскакала у меня в голове hehe.gif :

Есть файлик№1 и файлик№2. Задача: как узнать одинаковы они или нет, т. е. одинакова ли запись?! И еще нечто типа функции Pos для строк: входит ли файлик№2 в состав файлика№1?! lookaround.gif
PM   Вверх
Chess64
Дата 7.12.2003, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 122
Регистрация: 25.9.2003
Где: Набережные Челны

Репутация: нет
Всего: нет



2 Pakshin A. S.
Используя алгоритм Кнута-Моррисса-Прата - Можно найти входит ли файлик №2 в файлик №1.

Кстати, а если битрейд(частота) разный(ые) - че только прослушиванием ? smile.gif
--------------------
Aleksey Semyonov aKa LfP
PM MAIL WWW ICQ   Вверх
Pakshin A. S.
Дата 7.12.2003, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61



Цитата

Используя алгоритм Кнута-Моррисса-Прата - Можно найти входит ли файлик №2 в файлик №1.

Чё-то я о таких не слыхивал, а где достать можноconfused.gif?

Это сообщение отредактировал(а) Pakshin A. S. - 7.12.2003, 21:09
PM   Вверх
Полудненко Олег
Дата 7.12.2003, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Українець
**


Профиль
Группа: Участник...
Сообщений: 556
Регистрация: 13.8.2003

Репутация: нет
Всего: -11



Не ну можна конешно нагеморить проверку сравнением строк в жутком цикле. С идейной точки зрения - просто, но по времени...
PM MAIL   Вверх
Fedor
Дата 8.12.2003, 08:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Днепрянин
****


Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32



Pakshin A. S.
Цитата
где достать можно

В Яндексе... В Яндексе...


--------------------
Мы - Днепряне. Мы всех сильней.
PM ICQ   Вверх
Chess64
Дата 8.12.2003, 08:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 122
Регистрация: 25.9.2003
Где: Набережные Челны

Репутация: нет
Всего: нет



2 Pakshin A. S.
почитай здесь smile.gif
--------------------
Aleksey Semyonov aKa LfP
PM MAIL WWW ICQ   Вверх
Pakshin A. S.
Дата 20.12.2003, 17:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61



Chess64 А такого документика нет!

Это сообщение отредактировал(а) Pakshin A. S. - 20.12.2003, 17:57
PM   Вверх
Pakshin A. S.
Дата 20.12.2003, 17:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61



Ткунся в Яndex:
Цитата

Результат поиска: страниц — 0
Запросов за месяц: алгоритм — 27990, кнута — 2118, моррисса — 16, прата — 404
опечатка? возможно, имелось в виду: «алгоритм Кнута-Моррисса-Права»
ничего не найдено? чтобы искать точнее, Яндекс ограничивается документами, в которых слова из запроса близки друг к другу – поищите с более мягкими условиями

Искомая комбинация слов нигде не встречается
«алгоритм Кнута-Моррисса-Прата»

PM   Вверх
dm9
Дата 20.12.2003, 22:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дмитрий Копытин
****


Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

Репутация: 3
Всего: 137



Нууу... можно было задуматься над правильностью написания фамилии, например smile.gif

http://www.yandex.ru/yandsearch?text=%E0%E...ype=www&rpt=rad

http://www.romic.ru/referats/content/14/24...40_0422_doc.htm
PM MAIL ICQ   Вверх
Pakshin A. S.
Дата 21.12.2003, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61



А при чём тут WAV?!

Хотя, если читать файлик побайтово, то может и пригодится... Но как выбрать из файла ту часть, где записан именно звукconfused.gif
PM   Вверх
Полудненко Олег
Дата 21.12.2003, 19:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Українець
**


Профиль
Группа: Участник...
Сообщений: 556
Регистрация: 13.8.2003

Репутация: нет
Всего: -11



Pakshin A. S. попробуй поизучать его визуально (удобнее всего во вьювере Фара), довольно большой процент вероятности того, шо ты сам найдёш то место, где заканчивается всякая вспомогательная дребедень и начинается код самого звука
PM MAIL   Вверх
Pakshin A. S.
Дата 21.12.2003, 20:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61



Было бы время... Но все же стоит попробовать...
PM   Вверх
Гость_Vit
Дата 4.6.2004, 17:43 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Лучше чем всякую хрень писать кинули бы ссылку на компонент для Delphi для сравнения двух WAV
  Вверх
_hunter
Дата 4.6.2004, 18:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: нет
Всего: 98



сомневаюсь что такой существует smile.gif


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Pakshin A. S.
Дата 5.6.2004, 15:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61



WOW!!! А я про эту тему уже забыл biggrin.gif
PM   Вверх
RA
Дата 6.6.2004, 22:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 1
Всего: 115



Пацаны ну как вам не стыдно biggrin.gif ? Есть такая маза как проверка CRC32 неужели не слышали?
PM   Вверх
Pakshin A. S.
Дата 7.6.2004, 09:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61



НЕТ! Расскажи подробнее...
PM   Вверх
RA
Дата 7.6.2004, 15:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 1
Всего: 115



Ну че там расказывать, у каждого файла есть свой уникальный 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
PM   Вверх
Pakshin A. S.
Дата 7.6.2004, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61



А если одан Wav записан мужским голосом, а другой женским, причем текст один и тот же?
PM   Вверх
Полудненко Олег
Дата 7.6.2004, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Українець
**


Профиль
Группа: Участник...
Сообщений: 556
Регистрация: 13.8.2003

Репутация: нет
Всего: -11



Pakshin A. S. флудер!:^)
PM MAIL   Вверх
RA
Дата 7.6.2004, 17:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 1
Всего: 115



Цитата(Pakshin @ 7.6.2004, 13:54)
А если одан Wav записан мужским голосом, а другой женским, причем текст один и тот же?

Yo! я то думал вопрос серьёзный biggrin.gif , о сравнении идентичности двух или более файлов а, это оказывается утопия, на тему написания функции Voice2Text
PM   Вверх
Pakshin A. S.
Дата 7.6.2004, 18:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61



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

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

PM   Вверх
cardinal
Дата 7.6.2004, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: нет
Всего: 99



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

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


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
RA
Дата 7.6.2004, 19:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 1
Всего: 115



Насколько я знаю проблему идентификации голоса на все 100% ещё никто не решил, достаточно поменять тембр и хана.
PM   Вверх
_hunter
Дата 8.6.2004, 19:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: нет
Всего: 98



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


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
RA
Дата 8.6.2004, 22:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 1
Всего: 115



Цитата(_hunter @ 8.6.2004, 16:02)
CRC32 не катит -- на больших файлах уникальность не гарантируется
лучше MD5Sum использовать

Хэш расчитать, тоже верно. А вот счего ты взял что для больших файлов CRC неподсчитывается (впервые слышу wow.gif ) ? И какой это у файла размер должен быть?
PM   Вверх
_hunter
Дата 10.6.2004, 17:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: нет
Всего: 98



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


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Marriage
Дата 10.6.2004, 22:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 842
Регистрация: 4.5.2004
Где: Таганрог

Репутация: нет
Всего: 2



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


Для создания собственного 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


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


--------------------
Praemonitus, praemunitus
PM MAIL ICQ   Вверх
Страницы: (2) [Все] 1 2 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »


 




[ Время генерации скрипта: 0.0685 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.