|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.03.2008, 11:53 | #1 |
Он лайн
Форумчанин
Регистрация: 26.09.2007
Сообщений: 173
|
PlaySound
При воспроизведении мелодии форма не отвечает как этого избежать чтоб мелодия играла и ничего не тормозило.
Пример моего использования: procedure TForm1.Timer2Timer(Sender: TObject); begin showwindow(application.Handle,sw_hi de); if fileexists('backmusic.wav') then begin playsound(pchar('backmusic.wav'),0, snd_nostop); Timer2.Enabled:=false; end; end; |
30.03.2008, 12:21 | #2 |
Участник клуба Подтвердите свой е-майл
Регистрация: 14.12.2007
Сообщений: 1,434
|
Код:
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
Последний раз редактировалось SunKnight; 30.03.2008 в 14:31. |
30.03.2008, 12:49 | #3 |
Он лайн
Форумчанин
Регистрация: 26.09.2007
Сообщений: 173
|
медиа плеер я на форму поставил и визибл убрал.
теперь ошибка |
30.03.2008, 13:23 | #4 |
Участник клуба Подтвердите свой е-майл
Регистрация: 14.12.2007
Сообщений: 1,434
|
Ненужно выкидывать компонент на форму, так как он создается
MMplay:=TMediaPlayer.Create(applica tion); удалите компонент с формы.
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
|
30.03.2008, 14:18 | #5 |
Он лайн
Форумчанин
Регистрация: 26.09.2007
Сообщений: 173
|
Спасибо Попробую
|
30.03.2008, 14:33 | #6 |
Он лайн
Форумчанин
Регистрация: 26.09.2007
Сообщений: 173
|
Всё-равно таже ошибка
|
30.03.2008, 14:45 | #7 |
Участник клуба Подтвердите свой е-майл
Регистрация: 14.12.2007
Сообщений: 1,434
|
Код:
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
Последний раз редактировалось SunKnight; 30.03.2008 в 14:47. |
30.03.2008, 15:30 | #8 |
Он лайн
Форумчанин
Регистрация: 26.09.2007
Сообщений: 173
|
всё спасибо просто у меня 2 раза форма создавалась один раз в проджекте один раз в другой форме
|
30.03.2008, 15:32 | #9 |
Он лайн
Форумчанин
Регистрация: 26.09.2007
Сообщений: 173
|
другой вопрос как с плеером циклически воспроизвести
|
31.03.2008, 08:40 | #10 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
Const SND_SYNC = &H0 ' Файл воспроизводится синхронно
' и функция не возвращает управление до окончания воспроизведения Const SND_ASYNC = &H1 ' Файл воспроизводится асинхронно ' и функция возвращает управление сразу же после ' начала воспроизведения. Для того, чтобы ' прервать воспроизведение, необходимо вызвать ' функцию sndPlaySound с именем файла, равным "" Const SND_NODEFAULT = &H2 ' Указывает на то, что если файл, ' заданный первым параметром, не найден, то не должен ' воспроизводиться файл по умолчанию Const SND_MEMORY = &H4 ' Указывает на то, что имя файла ' соответствует WAV-файлу, находящемуся в памяти, ' например, загруженному из ресурса Const SND_LOOP = &H8 ' Файл воспроизводится от начала до ' конца бесконечное число раз до тех пор, пока не ' вызвана функцию sndPlaySound с именем файла, равным "". ' При таком воспроизведении должен быть указан и флаг ' SND_ASYNC Const SND_NOSTOP = &H10 ' Функция возвращает FALSE, если ' в момент ее вызова уже воспроизводится какой-нибудь файл ' Соответственно, реальное обращение ' к функции sndPlaySound может выглядеть примерно так Result = sndPlaySound("c:\wav\demo.wav", SDN_ASYNC or SND_LOOP) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
PlaySound() | Артэс | Общие вопросы C/C++ | 7 | 19.09.2010 20:18 |
PlaySound для 2 файлов | JoanM | Мультимедиа в Delphi | 12 | 25.09.2008 17:05 |