|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.03.2011, 23:24 | #1 |
Форумчанин
Регистрация: 13.12.2010
Сообщений: 603
|
Остановить звук
{$R data.res} (это пишешь после слова implementation)
PlaySound('DATA', HInstance, SND_RESOURCE + SND_ASYNC + SND_LOOP) (это пишешь там, где нужно проиграть звук) обращение производится по имени ресурса (ресурс мы назвали в текстовом файле как DATA, тип WAVE) SND_RESOURCE - проигрывание звука из ресурса SND_ASYNC - чтоб программа не зависала во время воспроизведения SND_LOOP - играет по кругу, если не надо не пиши вот нашел как можно сделать музыку в программе а как ее можно остановить ??? и так же как сделать что бы в MediaPlayer1 зациклить песню??? |
22.03.2011, 23:37 | #2 | ||
Пользователь
Регистрация: 11.12.2010
Сообщений: 44
|
1. Если пользуешься TMediaPlayer, то
Цитата:
Цитата:
Отражаю отношение к себе
|
||
22.03.2011, 23:44 | #3 |
Пользователь
Регистрация: 11.12.2010
Сообщений: 44
|
SND_APPLICATION Звук воспроизводится с использованием установок приложения.
SND_ALIAS Параметр pszSound определяет псевдоним системного события в реестре Windows или в файле WIN.INI. Нельзя использовать совместно с SND_FILENAME и SND_RESOURCE. SND_ALIAS_ID Параметр szSound является предопределенным идентификатором звука. SND_ASYNC Звук воспроизводится асинхронно и функция PlaySound возвращается немедленно после начала воспроизведения. Чтобы прекратить асинхронное воспроизведение волнового файла, надо вызвать PlaySound с параметром pszSound, равным 0. SND_FILENAME Параметр pszSound является именем файла. SND_LOOP Воспроизведение звука постоянно повторяется, пока не вызовется PlaySound с параметром pszSound, равным 0. Одновременно надо указать флаг SND_ASYNC асинхронного воспроизведения звука. SND_MEMORY Файл звука события загружен в память. В этом случае параметр pszSound должен указывать на образ звука в памяти. SND_NODEFAULT Звук события, кроме звука по умолчанию. Если указанный звук не найден, PlaySound вернется, не воспроизводя звук по умолчанию. SND_NOSTOP Если заданный звук не может быть воспроизведен, поскольку ресурсы, необходимые для воспроизведения, заняты воспроизведением другого звука, функция PlaySound немедленно вернет false, не воспроизводя заданного звука. Если данный флаг не указан, функция PlaySound пытается остановит воспроизведение другого звука, чтобы устройство могло быть использовано для воспроизведения нового звука. SND_NOWAIT Если драйвер занят, функция сразу вернется без воспроизведения заданного звука. SND_PURGE Останавливается воспроизведение любых звуков, вызванных в данной задаче. Если pszSound не 0, останавливаются все экземпляры указанного звука. Если pszSound равен 0, то останавливаются все звуки, связанные с данной задачей. Отдельно надо указать дескриптор для остановки событий SND_RESOURCE. SND_RESOURCE Параметр pszSound является идентификатором ресурса. Параметр hmod должен указывать на источник ресурса. SND_SYNC Синхронное воспроизведение звука события. Функция PlaySound возвращается только после окончания воспроизведения. Возвращаемое значение При успешном выполнении возвращается true, в противном случае - false. Описание Для использования функции надо включить в оператор uses вашего приложения ссылку на mmsystem. Звук, указанный параметром pszSound, должен помещаться в доступную память и должен подходить для установленного драйвера устройства воспроизведения волновых файлов. Функция PlaySound ищет файл звука в следующих каталогах: текущем, каталоге Windows, системном каталоге Windows, каталогах, перечисленных в переменной среды PATH, в списке каталогов, предоставляемых сетью. Более подробно последовательность поиска в каталогах рассмотрена в документации по функции OpenFile. Если указанный звук не находится, функция PlaySound воспроизводит системный звук по умолчанию. Если функция не может найти и его, то воспроизведения не будет, а вернется значение false.
Отражаю отношение к себе
|
23.03.2011, 08:16 | #4 |
Форумчанин
Регистрация: 13.12.2010
Сообщений: 603
|
Код:
это правильно написано что бы остановить???? Procedure stop; begin PlaySound('MUSIC7',HInstance, SND_NOSTOP+SND_PURGE ); end; exports stop; |
23.03.2011, 08:37 | #5 |
Форумчанин
Регистрация: 13.12.2010
Сообщений: 603
|
|
23.03.2011, 17:51 | #6 | |
Пользователь
Регистрация: 11.12.2010
Сообщений: 44
|
Цитата:
Отражаю отношение к себе
|
|
24.03.2011, 04:06 | #7 |
Пользователь
Регистрация: 21.03.2011
Сообщений: 13
|
вы зачем себе жизнь то усложняете? если вам нужен просто звук то в TMediaPlayer есть все для этого. а если мало то подрубаем библиотеку Bass.dll хорошие дядички ее написали ктогда то. на ней основан плеер AIMP2 например
|
24.03.2011, 04:24 | #8 |
Пользователь
Регистрация: 21.03.2011
Сообщений: 13
|
кидаем на форму таймер. кидаем на форму медиаплеер. выставляем свойства autoopen:=true;
filename='какая то музяка.mp3'; таймеру ставим интервал минимальный. ну например timer1.interval:=1; по тику таймера пишем Код:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Звук Звууууук Звук ... не рабоает звук.. | Zvuuuuk | Компьютерное железо | 2 | 22.01.2011 17:53 |
Тюнер для гитары в делфи. (Считывать с микрофона звук и выводить какой частоты этот звук). | Серего | Мультимедиа в Delphi | 8 | 12.01.2011 14:39 |
Остановить цикл for | basten | Общие вопросы C/C++ | 1 | 30.03.2010 11:40 |
Остановить цикл | mavlon_m | Общие вопросы Delphi | 4 | 04.08.2009 17:00 |
звук и делфи, левый правый звук | snusmumric | Win Api | 2 | 29.10.2007 11:10 |