|
Навигация
|
Главная » Delphi Воспроизведение звуков на DelphiИсточник: welikeit В этой статье я постараюсь рассмотреть три процедуры для воспроизведения звука. Использование этих процедур вместо компонента TMediaPlayer существенно сэкономит ресурсы системы. С помощью этих процедур можно решать довольно широкий круг задач. Итак, начнем рассмотрение этих процедур с самой простой. Процедура BeepЭта процедура не имеет никаких параметров. Ее объявление выглядит довольно-таки просто: Beep; Суть этой процедуры - воспроизводить стандартный звуковой сигнал, установленный в Windows, если имеется звуковая карта и настроен стандартный звук, если же нет, то звук поступит через динамик компьютера в виде короткого щелчка. Ее можно использовать, например, при вводе пользователем не тех данных, или при закрытии формы: procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Beep; end; С первой процедурой мы разобрались. Теперь посмотрим вторую... Функция MessageBeep Эта функция является более серьезной, она определена как: function MessageBeep(uType:word) : boolean; Параметр uType указывает воспроизводимый звук, как идентификатор раздела [sounds] реестра, в котором записаны звуки, сопровождающие те, или иные события Windows. Параметр uType может принимать следующие значения:
Если невозможно воспроизвести указанный звук, то функция попытается воспроизвести стандартный системный звук, установленный по умолчанию, если и это невозможно, то будет воспроизведен стандартный сигнал через динамик. Ну и наконец, осталась самая интересная и полезная функция воспроизведения звука, о ней мы сейчас и поговорим. Функция PlaySound Эта функция может воспроизводить любые волновые звуки, а не только звуки событий Windows. Функция API Windows, параметры которой описаны в модуле mmsystem. Поэтому для использования этой функции в Ваших программах, необходимо включить в раздел uses модуль mmsystem. Функция PlaySound определена так: function PlaySound(pszSound:PChar; hmod:HINST; fdwSound:Cardinal):boolean; Параметр pszSound является нуль терминированной строкой (последний символ строки имеет нулевой код), он определяет воспроизводимый звук. Параметр hmod используется в случае, когда звук берется из ресурса, поскольку мы этого делать не будем, то можно этот параметр задавать равным 0 или nil. Последний параметр fdwSound является множеством, которое определяет как будет воспроизводиться звук (режим воспроизведения). Приведу наиболее важные значения этого множества для воспроизведения произвольных волновых флагов.
Указанный параметром pszSound звук, должен подходить для установленного драйвера устройства воспроизведения волновых файлов, а также должен помещаться в доступную память. Прервать воспроизведение звука можно выполнив оператор PlaySound(0, 0, SND_PURGE); или путем задания нового звука. Например, чтобы многократно и асинхронно проиграть какой-нибудь звук, выбранный с помощью OpenDialog, можно написать такой код: procedure TForm1.Button1Click(Sender: TObject); var PCh: PChar; begin if OpenDialog1.Execute then begin StrPCopy(PCh,OpenDialog1.FileName); PlaySound(Pch,0,SND_ASYNC or SND_LOOP); end; end; Ну вот, надеюсь все ясно! В следующий раз будет что-нибудь посложнее и поинтереснее! Программист более не звучит гордо. IT-специалист стоит столько, сколько он знает. Borland CodeGear выпускает Delphi for PHP, предназначенный для быстрой разработки веб-приложений. Перенос VBA-макросов в Delphi (исходники). Дороги ведут к "Хранилищу". Обсуждение "больных тем" информационных проектов. Главная » Delphi |
© 2024 Team.Furia.Ru.
Частичное копирование материалов разрешено. |