Визуализация звуковых сигналов от микрофона

[Vova_2581]

Здравствуйте! Подскажите, пожалуйста, может есть какая-то функция или не очень сложный механизм без ocx, dll и прочих дополнительных компонентов. Любой пример, буду благодарен. Мне нужно для работы в свою программу проверки звуковой консоли добавить визуальный отклик работы микрофона. Может простое мигание лейбла в такт звуку или ещё как-то не принципиально. Как можно это сделать?

[Mikle]

без ocx, dll

Нужно подключить, как минимум, DirectSound. Без dll и ocx, но с tlb от The Trick, иначе никак.

[The trick]

viewtopic.php?f=28&t=52421

[Vova_2581]

Ого! Информации очень много. Буду читать, разбираться. Спасибо большое Вам! Если будут вопросы, ещё напишу. Спасибо!!

[Хакер]

Нужно подключить, как минимум, DirectSound

Почему как минимум? Почему не waveinOpen и пр?

[Mikle]

waveinOpen

Ну, да. Это ещё минималистичнее.

[Vova_2581]

В общем, пересмотрел, перечитал все топики по Вашим ссылкам. Очень непростые и довольно сложные алгоритмы. Я все скачал и попробовал сделать то, что мне нужно и почти получилось. Сначала взял коды от Майкла. Вы как раз делали нечто похожее на отображение уровня сигнала при записи. У вас там есть пример проекта. Я его тоже скачал, но он не пошел. Так же как и Вы не нашел нужного интерфейса. У меня Direct... вместо IDirect... Получилась путаница, код получился не рабочим. На форуме есть элемент недосказанности... но не суть. Дело в том, что DirectSound8 требует наличие библиотеки dx8vb.dll – вот это для меня минус. Не хотелось бы привязываться к сторонним библиотекам и таскать их за собой. Можно было бы и с библиотекой, но тогда на мою простейшую программу нужно делать инсталлятор, прописывать dll регистрировать и прочее. Это не совсем то. Поэтому я пошел дальше к кодам от The trick. Нашел пример диктофона с визуализацией сигналов микрофона через Line элемента Pictures. Мне очень понравилось. Сделано очень классно. Там все вроде без dll обходится через обычные API функции. Как раз то, что нужно! Только контрол и модуль подключил к своему проекту и немного переделал коды от The trick под простой Label. Все получилось и уж было обрадовался, но дальнейшие испытания выявили какой-то баг. Пожалуйста, помогите разобраться в чем дело не могу понять. Вот в чем суть проблемы...

Код работает исправно и все отображает, но примерно через минуту все зависает и сбрасывается только по нажатию Ctrl+Break. В точке останова на строках...

Код: Выделить всё

For iChannel = 0 To PBK_NUMOFCHANNELS - 1
    value = value + Abs(CLng(capBuffer(iChannel, iAvg)))
Next 

в процедуре Redraw.

Возможно переполняется буфер или что-то типа того, не пойму.

Я взял оригинал проекта из папки TestCapture от The trick попробовал там, и ситуация точно такая же: зависание через минуту работы.

Помогите, пожалуйста, разобраться, как это исправить.

Вот мой вариант переделанного проекта от The trick...

[The trick]

Сделай лучше вот так. Зачем тебе копить семплы?

[Vova_2581]

У меня в процедуре tSound_NewData выбивает ошибку "subscript out of range" на строчке lAbs = Abs(iSamp(lIndex, lCh))

[серверянин]

Да. Тот код неработоспособен.

А у Вас причина зависания в том, что capCount растет неограниченно.

[The trick]

блин какая-то фигня, там другой код должен быть. позже скину.

[Vova_2581]

блин какая-то фигня, там другой код должен быть. позже скину.

Хорошо, та это не срочно так что будем ждать. Самое главное, что все получается, только чуть-чуть доработать и все.
Серверянин, спасибо!

[The trick]

Вот проект.

[серверянин]

Этот код у меня - работает.
Но есть маленький вопрос.
The trick, у Вас там стоит ReDim Preserve iSamp. Preserve там не играет роли в работе. Для чего Вы поставили его?
Является ли ReDim Preserve предпочтительнее чем ReDim, и если да, то чем именно?

[Vova_2581]

The trick, чуть позже проверю, потом напишу.

The trick, у Вас там стоит ReDim Preserve iSamp. Preserve там не играет роли в работе. Для чего Вы поставили его?
Является ли ReDim Preserve предпочтительнее чем ReDim, и если да, то чем именно?

Насколько я знаю, ReDim перезаписывает все элементы массива, то есть обновляет полностью все ячейки. А ReDim Preserve обновляет только те ячейки, которые изменялись оставляя при этом остальные нетронутыми. Ну, типа того.

[The trick]

Тут разницы нет что использовать. Preserve оставил т.к. просто изменил существующий код где он был изначально.

[Vova_2581]

Да! Теперь все работает! Ура! Тестировал Ваш код целых 15 минут. Все идеально!

The trick, СПАСИБО БОЛЬШОЕ!

Очень необычный оригинальный код, как Вы это делаете, просто поражаюсь! То, что Вы профессиональный программист, и я так думаю не только Бейсика, это я уже понял, но так же подозреваю, что Вы еще имеете не последнее отношение к математике. Очень все непросто у Вас в кодах, стиль написания наводит такую на мысль. Вы просто супермастер! И это не лесть. Огромная Вам признательность за Вашу помощь!

The trick, СПАСИБО ВАМ! С удовольствием использую Ваши коды в своей утилите. СПАСИБО!

[серверянин]

Насколько я знаю, ReDim перезаписывает все элементы массива, то есть обновляет полностью все ячейки. А ReDim Preserve обновляет только те ячейки, которые изменялись оставляя при этом остальные нетронутыми.

Насколько я знаю, ReDim изменяет размер массива, и при этом обнуляет его. А с Preserve - не обнуляет.

Ваше мнение в адрес уважаемого The trick целиком поддерживаю и присоединяюсь. Его код говорит сам за себя.

И еще. В вашем случае конечно удобнее работать на VB. Но когда задача состоит целиком в работе только со звуковой подсистемой, то нету лучше и удобнее языка FlowStone. Он ориентирован специально на это.

[Vova_2581]

Да в принципе пока вполне хватает того, что есть, но за совет спасибо!