Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как воспроизвести MP3-файл и дождаться его завершения?
 
#1
14.10.2012 09:36:04
Т.е. нужно, чтобы во время выполнения макроса был запущен мп3-файл, и только после того, как этот файл проиграется о конца, макрос дальше продолжит свое выполнение.
 
 
 
#2
14.10.2012 11:37:31
Распаковать архив на диск.
 
 
 
#3
14.10.2012 12:41:05
Юра,  
этот метод не обеспечивает ожидания завершения проигрывания.  
Если после  
Call mciExecute("play " & str)  
поставить например  
Msgbox "After play"  
, то сообщение появляется сразу.  
 
Надо добавить "wait":  
 
Call mciExecute("play " & str & " wait")  
 
Воспроизведение аудио/видео с различными параметрами описано, например, тут: http://www.answers.com/topic/mciexecute  
http://www.brilliantdatabase.com/online_help.html/a_play.htm
 
 
 
#4
14.10.2012 12:52:12
Алексей, понял, спасибо!  
Я нашёл ещё вот это:  
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _  
               (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long  
   'lpszSoundName -Путь и имя WAV-файла для воспроизведения, или название системного звука  
   'uFlags -Ноль или большее количество следующих флажков, определяющих, как запустить звук:  
Const SND_ALIAS = &H10000       'Воспроизведение звуков Windows,определенных в WIN.INI или  
                               '    реестре(напр. SystemStart, Asterisk, и т.д.).  
Const SND_ASYNC = &H1           'Асинхронное воспроизведение  
Const SND_FILENAME = &H20000    'Запуск указанного файла  
Const SND_LOOP = &H8            'Циклическое воспроизведение до следующего вызова  
                               '    sndPlaySound lpszSoundName = "".  
                               '    Можно также использовать SND_ASYNC  
Const SND_NODEFAULT = &H2       'Не запускать звук по умолчанию Windows, если указанный звук  
                               '    не может быть найден.  
Const SND_NOSTOP = &H10         'Не прекращать воспроизведение любого запущенногозвука  
Const SND_NOWAIT = &H2000       'Не ждать,если драйвер занят  
Const SND_SYNC = &H0            'Синхронное воспроизведение(значение по умолчанию).  
                               '    Ждать, пока звук не закончил играть перед  
                               '    продолжающимся выполнением программы.  
Вроде, то, что нужно.
 
 
 
#5
15.10.2012 22:40:07
{quote}{login=Казанский}  
Надо добавить "wait":  
 
Call mciExecute("play " & str & " wait")  
 
Воспроизведение аудио/видео с различными параметрами описано, например, тут: http://www.answers.com/topic/mciexecute  
http://www.brilliantdatabase.com/online_help.html/a_play.htm{/post}{/quote}  
спасибо! работает perfectly ;)
 
 
 
#6
15.10.2012 23:04:17
Юрий М, ваш пример тоже работает, но он подходит только для WAV...  
 
Попутно возник вопрос: а можно как-нибудь по-другому приостановить выполнение кода макроса, пока вызванная им DDL процедура/функция не завершит свою работу? Просто в указанных выше примерах это достигается за счет передачи соответствующих параметров, но что делать если вызываемая функция не предоставляет такой возможности? можно что-то придумать?
 
 
 
#7
15.10.2012 23:18:41
>> что делать если вызываемая функция не предоставляет такой возможности?  
А что это за функция?
 
 
 
#8
16.10.2012 11:10:31
Например, вот:  
http://jaws.tiflocomp.ru/synths/sapi/sapidll.php
 
 
 
#9
16.10.2012 11:18:31
Не очень понимаю проблему: задавайте тогда тайм-аут на время звучания mp3. Или вызывайте отдельной процедурой.
 
 
 
#10
16.10.2012 11:24:45
А еще можно MP3 конвертировать в WAV. И пользоваться вариантами Алексея и Юрия.
Я сам - дурнее всякого примера! ...
 
 
 
#11
16.10.2012 11:45:52
KukLP, да, можно было бы и сконвертировать, согласен. Но только тогда файлы стали бы занимать место раз пять больше ))))  
 
Юрий, в библиотеке есть процедура, которая мне нужна:  
 
procedure Speak( Text : string);stdcall; - Проговаривает строку Text.    
 
Как видите, она не принимает никаких дополнительных параметров, а следовательно макрос не будет дожидаться окончания ее работы; а мне как раз нужно, чтобы он дождался. Мне нужно, чтобы пока текст не был проговорен до конца (вызываемой для этого внешней процедурой), код макроса не выполнялся.
 
 
 
#12
16.10.2012 11:52:44
Попробуйте из другой процедуры:  
sub Макрос1()  
call макрос2  
'дальнейшие действия  
end sub  
 
sub макрос2()  
'здесь говорилка  
end sub
 
 
 
#13
16.10.2012 11:55:27
Юрий М, okey, чуть попозже попробую.)
 
 
 
#14
20.10.2012 09:30:13
Не помогло. ((  
 
Может быть, все-таки есть какой-то способ?    
 
Кстати, а можно как-нибудь дождаться конца выполнения командного файла?
 
 
 
#15
20.10.2012 09:43:10
10 лет назад писал.
Я сам - дурнее всякого примера! ...
 
 
 
#16
20.10.2012 09:56:44
кстати, сам командный файл ждет окончания запущенной им программы.  
 
я как-то этим пользовался - запускал из командного файла архиватор в пакетном режиме, по окончанию работы архиватора,  тем же командным файлом создавал файл-индикатор end.txt  
макрос в холостом цикле  
 
do  
doevents  
loop until dir("end.txt")<>""  
 
ждал появления файла, после чего уничтожал его и продолжал работу..
Живи и дай жить..
 
 
 
#17
20.10.2012 15:44:20
{quote}{login=KukLP}{date=20.10.2012 09:43}{thema=}{post}10 лет назад писал.{/post}{/quote}  
о чем? )))
 
 
 
#18
20.10.2012 15:47:02
слэн, прикольно.) надо подумать над этим.)
 
 
 
#19
20.10.2012 16:19:26
Я вообще-то пример выложил, о чем. Вижу, зря старался.
Я сам - дурнее всякого примера! ...
 
 
 
#20
20.10.2012 17:14:59
я мог просмотреть... где?
 
 
 
#21
20.10.2012 18:57:24
Я один вижу свой файл в посте от 20.10.2012, 09:43?
Я сам - дурнее всякого примера! ...
 
 
 
#22
20.10.2012 22:09:24
>> Я один вижу свой файл в посте от 20.10.2012, 09:43?  
 
нет, теперь и я вижу его ))))))))  
 
просто издержки интерфейса... прошу прощения.)) но файлег интересный - обязательно его поизучаю... ;)
 
 
 
#23
17.12.2012 21:12:00
KukLP, спасибо. еще как пригодилось.))  
 
в общем, кажется, я нашел пока что самый лучший способ воспроизведения mp3. спасибо чуваку с http://vb.narod.ru/koding/stat/vb/11.htm за то, что на вел на мысль.))  
 
основная проблема всех перечисленных до этого метотов - они не позволяют прервать воспроизведение файла, пока он не доиграет до конца и не передаст уравление следующему оператору в скрипте. речь, конечно же, идет о синхронном воспроизведении, когда такое ожидание необходимо (в асинхронном такой проблемы нет, т.к. воспроизведение можно прервать посылом специальной команды в любой момент). но что делать, когда пользователь хочет прервать операцию, именно когда выполнение скрипта приостонавливается на время звучания?    
 
вот пример такого кода:  
 
<EM><FONT color=#99000><STRONG>Код в сообщении ниже.  
Автору: не нужно вкладывать в сообщение длинные листинги.</STRONG></FONT>  - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>  
 
пару комментов... PlayOneInChain запускает проигрывание файла (при этом получение короткого имени файла необходимо, т.к. mci функция не работает с пробела в имени и пути) в асинхронном режиме, но сразу же уходит в цикл ожидания окончания воспроизведения. в самом же цикле происходит переодическая проверка, не завершилось ли проигрывание, и если завершилось, то происходит выход. при этом цикл можно прервать досрочно сменив глобальный флаг восрпоизведения в одной из процедур вызываемых в doevents. ну вот и все, собственно.) рад буду, если это кому-то окажется полезным ;)
 
 
 
#24
17.12.2012 21:28:17
Код в текстовом файле.
 
 
 
Страницы: 1
Наверх