Topic: PlaySound
как зациклить PlaySound?
My Visual Database → Russian → PlaySound
как зациклить PlaySound?
как повесить программу?
repeat .. until или while .. do.
Вопрос: для чего?
sibprogsistem wrote:как повесить программу?
repeat .. until или while .. do.
Вопрос: для чего?
для создания фоновой музыки
пробовал
PlaySound('audio\music\Flowing Rocks.wav',0, SND_ASYNC or SND_LOOP);
но тут это не работает
пробовал
PlaySound('audio\music\Flowing Rocks.wav',0, SND_ASYNC or SND_LOOP);
Где пробовал..? В MVDb?
На вот, готовое:
я получаю ошибку
Походу русские символы в путях. Замени модуль:
Походу русские символы в путях. Замени модуль:
спасибо!
Можно использовать стандартный плеер 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 и при необходимости перезапускать воспроизведение. Но полностью бесшовное зацикливание этим способом сделать нельзя.
Хотел поискать WMP.Loop... Увидел первую ссылку в гугле, дальше искать не стал...))
Зацикливание у него должно быть:
Ну, а про остальное - без комментариев ))))
My Visual Database → Russian → PlaySound
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi