Topic: PlaySound

как зациклить PlaySound?

Re: PlaySound

sibprogsistem wrote:

как повесить программу?

repeat .. until или while .. do.

Вопрос: для чего?

Re: PlaySound

vovka3003 wrote:
sibprogsistem wrote:

как повесить программу?

repeat .. until или while .. do.

Вопрос: для чего?

для создания фоновой музыки
пробовал

PlaySound('audio\music\Flowing Rocks.wav',0, SND_ASYNC or SND_LOOP);

но тут это не работает

Re: PlaySound

sibprogsistem wrote:

пробовал

PlaySound('audio\music\Flowing Rocks.wav',0, SND_ASYNC or SND_LOOP);

Где пробовал..? В MVDb?

5 (edited by vovka3003 2021-09-04 09:01:53)

Re: PlaySound

На вот, готовое:

Post's attachments

Attachment icon mpg123.zip 1.33 mb, 176 downloads since 2021-09-04 

6 (edited by sibprogsistem 2021-09-04 09:20:05)

Re: PlaySound

vovka3003 wrote:

На вот, готовое:

я получаю ошибку
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=8016&download=0

Post's attachments

Attachment icon Безымянный.jpg 12.51 kb, 92 downloads since 2021-09-04 

7 (edited by vovka3003 2021-09-04 09:35:10)

Re: PlaySound

Походу русские символы в путях. Замени модуль:

Post's attachments

Attachment icon mpg123.zip 462 b, 156 downloads since 2021-09-04 

Re: PlaySound

vovka3003 wrote:

Походу русские символы в путях. Замени модуль:

спасибо!

9 (edited by k245 2021-09-05 12:37:45)

Re: PlaySound

Можно использовать стандартный плеер Windows.


PlaySoundEx()


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


Доступ к медиаплееру осуществляется через класс TWindowsMediaPlayer. Воспроизведение будет идти в фоновом режиме, поэтому вначале инициализируем глобальную переменную и создадим один экземпляр плеера.

var
   WMP: TWindowsMediaPlayer; // медиаплеер
 
begin
  // медиаплеер
  WMP:= TWindowsMediaPlayer.Create(frmMain); // создаём экземпляр плеера
  WMP.set_volume(100); // громкость - 100%
end.

При создании плеера мы указали в качестве владельца главную форму приложения, поэтому с закрытием приложения из памяти будет удалён и сам медиаплеер.


Для воспроизведения файлов будем использовать следующую функцию:


procedure PlaySoundEx( AFileName:string );
// воспроизведение звука с помощью медиаплеера
begin
  if WMP <> nil then
  begin
    WMP.Stop; // останавливаем воспроизведение
    WMP.URL := AFileName; // настраиваем файл
    WMP.Play; // воспроизводим
  end;
end;

В качестве параметра передаётся полный путь к аудиофайлу, который вы хотите воспроизвести.


Про зацикливание. Так как в текущей версии MVD нельзя напрямую дать указание плееру зациклить запись, то нужно создать таймер и в нем проверять свойство PlayState и при необходимости перезапускать воспроизведение. Но полностью бесшовное зацикливание этим способом сделать нельзя.

Визуальное программирование: блог и телеграм-канал.

Re: PlaySound

Хотел поискать WMP.Loop... Увидел первую ссылку в гугле, дальше искать не стал...))

https://i.imgur.com/rHmpV5g.png

11 (edited by k245 2021-09-05 13:49:58)

Re: PlaySound

Зацикливание у него должно быть:

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=8022&amp;download=0

Ну, а про остальное - без комментариев ))))

Post's attachments

Attachment icon провтор.png 210.62 kb, 85 downloads since 2021-09-05 

Визуальное программирование: блог и телеграм-канал.