На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> как отобразить частоту wav , как отобразить частоту wav
    Здравствуйте! как отобразить частоту WAV в реальном времени, без всяких DLL :wub:
    пример закрепил, но для WINDOWS :blush: чтобы понятно было чего хочется :crazy:
    yandex
    Сюда закачал т.к. на форум не грузится

    Добавлено
    а, а хотел для андройд кросплатформа
      Странная просьба, непонятный exe'шник в архиве.
      Нет уж увольте.
        Цитата leon2009 @
        частоту WAV

        А что это такое?
          в exe, всего лишь пример чего нужно
          видео сделал программы...
          ВИДЕО
            я по другому не знаю как объяснить
              Есть ролик, нужна диаграмма частоты. Так?
                ролик я сделал, чтобы показать, что нужно. (или ссылка на файл с программой)
                не обязательна диаграмма: можно просто в label вывести???
                пр: если барабан то это низкая частота
                если скрипка то это высокие частоты. Спасибо!
                  есть звук сначала играет барабан, потом скрипка. программа различает что сначала играет барабан, а потом скрипка.
                  наверное по частоте т.к. барабан это одна частота, а скрипка это другая (высокая). я не могу сообразить как эт сделать.
                    это для windows так я нахожу данные из файла:
                    ExpandedWrap disabled
                      procedure TForm1.OpenMedia(WaveFile: string);
                      var
                       MyOpenParms: TMCI_Open_Parms;
                      begin
                       with MyOpenParms do
                       begin
                        dwCallback := Handle; // TForm1.Handle
                        lpstrDeviceType := PChar('WaveAudio');
                        lpstrElementName := PChar(WaveFile);
                       end; {with MyOpenParms}
                       dwFlags := MCI_WAIT or MCI_OPEN_ELEMENT or MCI_OPEN_TYPE;
                       MyError := mciSendCommand(0, MCI_OPEN, dwFlags, Longint(@MyOpenParms));
                       // one could use mciSendCommand(DevId, here to specify a particular device
                       if MyError = 0 then
                        FDeviceID := MyOpenParms.wDeviceID
                       else
                        raise Exception.Create('Open Failed');
                      end;
                       
                      function TForm1.GetStatus(StatusRequested: DWORD): Longint;
                      var
                       MyStatusParms: TMCI_Status_Parms;
                      begin
                       dwFlags := MCI_WAIT or MCI_STATUS_ITEM;
                       with MyStatusParms do
                       begin
                        dwCallback := Handle;
                        dwItem := StatusRequested;
                       end;
                       MyError := mciSendCommand(FDeviceID, MCI_STATUS, MCI_WAIT or MCI_STATUS_ITEM, Longint(@MyStatusParms));
                       if MyError = 0 then
                        Result := MyStatusParms.dwReturn
                       else
                        raise Exception.Create('Status call to get status of ' +  IntToStr(StatusRequested) + ' Failed');
                      end;
                       
                      procedure TForm1.CloseMedia;
                      var
                       MyGenParms: TMCI_Generic_Parms;
                      begin
                       if FDeviceID > 0 then
                       begin
                        dwFlags := 0;
                        MyGenParms.dwCallback := Handle; // TForm1.Handle
                        MyError := mciSendCommand(FDeviceID, MCI_CLOSE, dwFlags, Longint(@MyGenParms));
                        if MyError = 0 then
                        FDeviceID := 0
                        else
                        begin
                        raise Exception.Create('Close Failed');
                        end;
                       end;
                      end;

                    но они не меняются при проигрывание звука
                      Это возможно если 2 разные записи есть у нас барабан и скрипка отдельно
                      Сообщение отредактировано: Feldsher -
                        да, один файл... сначала играет барабан, потом скрипка.
                        ЗВУК_ПРОСЛУШАТЬ

                        Добавлено
                        почти барабан = БАСС
                          Это непросто - разделять звук
                            эт я понял... :blink:
                              Надо 2 файла)
                              0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                              0 пользователей:


                              Рейтинг@Mail.ru
                              [ Script execution time: 0,0357 ]   [ 16 queries used ]   [ Generated: 30.09.23, 09:16 GMT ]