Платные хостинги     Раскрутка сайта     Книги по программированию

Работа со звуковыми файлами.

- Работа со звуковыми файлами.Мне известен способ роигрывания звуковых фалов.Вот код:Код var  Form1: TForm1; function PlaySound(lpszSoundName: PAnsiChar; uFlags: UINT): BOOL; stdcall;implementation function PlaySound; external 'winmm.dll' name 'sndPlaySoundA';{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);begin  PlaySound ('D:\LAB-3\SHELL\NewProject\S\siren.wav', 1);         end;highlightSyntax('delphiDBiZjh','delphi');Задача такая: надо съделать так чтобы звуковой фаил проигрывался не один раз а к примеру 5я пытался это съделать но в силу того, что не знаю как определить момент окончания проигрываниянемогу применить свой способ, ну это и неважно если у вас есть свой метод.

- Могу предложить следуюший (достаточно тупой) способ: посмотри сколько времени проигрывается файл, поставь соответствуюшее значение в таймере и пускай его 5 раз (для чего поставь в OnTimer проверку). Ну и все. Не знаю как сделать нормальным способом.  

- Такой способ я сразу откину т.к из-за задержек в приложении таймер может сработать не вовремя

- Попробуй вызвать :PlaySound ('D:\LAB-3\SHELL\NewProject\S\siren.wav', 0); // 0!!!И запусти (пока проигрывается первый) еше один файл.

-  Чё за отстой!    Suxxx

- sndPlaySound( lpszSound, fuSound ) : BOOL;lpszSound = FileNamefuSound = SND_SYNCThe sound is played synchronously and the function does not return until the sound ends.

- Но это только если указан 0 как второй параметр.

- Ну попробуй вызвать с флагом 8.

- Спасибо что мой вопрос тронул тебя до глубины разума заставив тратить время на поиски.Я нашёл на мой взгляд лучшее решение:Компонент "BUWavePlayer" из коллекции BuyPin

- Ну теперь ты не отвертишся!!! А ну давай говори, где взял!?

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD