Play Wav - Общие вопросы Delphi

DeDoK · 28.04.2008, 10:55

kak sdelatb tak, 4tob po sobitiyu ProgrressBar.Position=100; igral zvuk WAV, ya znayu dlya etgo polzuyt modulb MMSystem

SunKnight · 28.04.2008, 11:04

чтото типа этого:

Код:

var MP:TMediaPlayer;
begin
    MP:=TMediaPlayer.Create(application);
    mp.Parent:=form1;
    mp.Visible:=false;
    mp.FileName:='D:\MUSIC\2\TRACK04.WAV';
    mp.Open;
    if ProgressBar1.Position=100 then mp.Play;

SERG1980 · 28.04.2008, 11:07

Const SND_SYNC ' Файл воспроизводится синхронно
' и функция не возвращает управление до окончания воспроизведения

Const SND_ASYNC ' Файл воспроизводится асинхронно
' и функция возвращает управление сразу же после
' начала воспроизведения. Для того, чтобы
' прервать воспроизведение, необходимо вызвать
' функцию sndPlaySound с именем файла, равным ""

Const SND_NODEFAULT ' Указывает на то, что если файл,
' заданный первым параметром, не найден, то не должен
' воспроизводиться файл по умолчанию

Const SND_MEMORY ' Указывает на то, что имя файла
' соответствует WAV-файлу, находящемуся в памяти,
' например, загруженному из ресурса

Const SND_LOOP ' Файл воспроизводится от начала до
' конца бесконечное число раз до тех пор, пока не
' вызвана функцию sndPlaySound с именем файла, равным "".
' При таком воспроизведении должен быть указан и флаг
' SND_ASYNC

Const SND_NOSTOP ' Функция возвращает FALSE, если
' в момент ее вызова уже воспроизводится какой-нибудь файл

Соответственно, реальное обращение
к функции sndPlaySound может выглядеть примерно так

if ProgrressBar.Position=100 then sndPlaySound("c:\MyWave.wav", SDN_ASYNC)

28.04.2008, 10:55	#1
DeDoK Форумчанин Регистрация: 05.11.2007 Сообщений: 392	Play Wav kak sdelatb tak, 4tob po sobitiyu ProgrressBar.Position=100; igral zvuk WAV, ya znayu dlya etgo polzuyt modulb MMSystem

28.04.2008, 11:04	#2
SunKnight Участник клуба Подтвердите свой е-майл Регистрация: 14.12.2007 Сообщений: 1,434	чтото типа этого: Код: `var MP:TMediaPlayer; begin MP:=TMediaPlayer.Create(application); mp.Parent:=form1; mp.Visible:=false; mp.FileName:='D:\MUSIC\2\TRACK04.WAV'; mp.Open; if ProgressBar1.Position=100 then mp.Play;` Проповедую design patterns, верую в MVC, доверяю eXtrime programming.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Play mp3	amperykl	Компоненты Delphi	11	01.10.2007 19:50
Служба Plug&Play в Windows	=LeonZone=	Свободное общение	4	23.08.2007 18:35

28.04.2008, 11:07	#3
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	Const SND_SYNC ' Файл воспроизводится синхронно ' и функция не возвращает управление до окончания воспроизведения Const SND_ASYNC ' Файл воспроизводится асинхронно ' и функция возвращает управление сразу же после ' начала воспроизведения. Для того, чтобы ' прервать воспроизведение, необходимо вызвать ' функцию sndPlaySound с именем файла, равным "" Const SND_NODEFAULT ' Указывает на то, что если файл, ' заданный первым параметром, не найден, то не должен ' воспроизводиться файл по умолчанию Const SND_MEMORY ' Указывает на то, что имя файла ' соответствует WAV-файлу, находящемуся в памяти, ' например, загруженному из ресурса Const SND_LOOP ' Файл воспроизводится от начала до ' конца бесконечное число раз до тех пор, пока не ' вызвана функцию sndPlaySound с именем файла, равным "". ' При таком воспроизведении должен быть указан и флаг ' SND_ASYNC Const SND_NOSTOP ' Функция возвращает FALSE, если ' в момент ее вызова уже воспроизводится какой-нибудь файл Соответственно, реальное обращение к функции sndPlaySound может выглядеть примерно так if ProgrressBar.Position=100 then sndPlaySound("c:\MyWave.wav", SDN_ASYNC)