Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.03.2017, 13:06   #1
BLACK_RAIN
Форумчанин
 
Регистрация: 13.02.2012
Сообщений: 867
По умолчанию Визуализация звука при воспроизведении видео

Здравствуйте.
В демо-примерах BASS.DLL есть пример визуализации аудио-файлов. А как можно визуализировать звук, который воспроизводится через граф фильтров DirectShow?
Куда копать?
BLACK_RAIN вне форума Ответить с цитированием
Старый 21.03.2017, 13:59   #2
kutani
Форумчанин
 
Регистрация: 23.01.2016
Сообщений: 608
По умолчанию

...в сторону audio capture filter, потом отсчеты в FFT и визуализируй.
kutani вне форума Ответить с цитированием
Старый 21.03.2017, 15:34   #3
BLACK_RAIN
Форумчанин
 
Регистрация: 13.02.2012
Сообщений: 867
По умолчанию

Цитата:
Сообщение от kutani Посмотреть сообщение
audio capture filter
Что-то я не совсем понял.
Код:
function TForm2.go: HResult;
var
  enum : ICreateDevEnum;
  eMon : IEnumMoniker;
  monAr : array of IMoniker;
  pMoniker : IMoniker;
  DeviceName:OleVariant;
  PropertyName:IPropertyBag;
begin
  Result:=CoCreateInstance(CLSID_SystemDeviceEnum, NIL, CLSCTX_INPROC_SERVER,
  IID_ICreateDevEnum, Enum);
  if Result<>S_OK then EXIT;

  Result:=Enum.CreateClassEnumerator(CLSID_AudioInputDeviceCategory, eMon, 0);
  if FAILED(Result) then EXIT;
  setlength(monAr,0);

  while (S_OK=emon.Next(1,pMoniker,Nil)) do
  begin
    setlength(monAr,length(monAr)+1);
    monAr[length(monAr)-1]:=pMoniker;
    Result:=pMoniker.BindToStorage(NIL, NIL, IPropertyBag, PropertyName);
    if FAILED(Result) then Continue;
    Result:=PropertyName.Read('FriendlyName', DeviceName, NIL);
    if FAILED(Result) then Continue;

    ListBox1.Items.Add(DeviceName);
  end;
end;
находятся два устройства: микрофон и стерео микшер. Зачем они мне?
Это же вроде для захвата звука с устройства. А мне надо просто отрыть видео-файл и визуализировать то что играется.
Гуглится только захват со звуковухи.

Последний раз редактировалось BLACK_RAIN; 21.03.2017 в 16:23.
BLACK_RAIN вне форума Ответить с цитированием
Старый 10.04.2017, 13:20   #4
BLACK_RAIN
Форумчанин
 
Регистрация: 13.02.2012
Сообщений: 867
По умолчанию

объясните , при чем тут audio capture filter?
BLACK_RAIN вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Визуализация звука в Java / Android MeTeOpA Java Мобильная разработка (Android) 0 27.05.2015 20:17
Перемотка при воспроизведении видео D!zel Общие вопросы Delphi 2 05.03.2013 15:54
Бегущая строка при воспроизведении музыки. munthrekosh Мультимедиа в Delphi 2 19.02.2012 06:46
Ошибка при воспроизведении элемента ListView .Phoenix Мультимедиа в Delphi 3 22.03.2010 20:36
траблы при воспроизведении макроса invester Microsoft Office Excel 0 28.01.2010 21:41