[RedHead]

Необходимо воспроизводить короткий wav файл(1-3 сек) в цикле (до 10 повторений) с паузой 1-10 сек. Пауза должна быть точно выдержана. Какие компоненты могут мне в этом помочь? пробовал просто вычислять длительность и проигрывать по таймеру- большой разброс в паузах, надо ч то посерьезнее. АЙ НИД ХЕЛППП!!!

[Winny]

Вот статья на эту тему, нашёл в одном хэлпе по Delphi.

[RedHead]

Что то я там ничего не нашел по моей проблеме, просто проиграть файл я и так могу

[Artem28]

Код:

var n: integer;
begin
if not (n=11) then begin
  PlaySound('test.wav',0,SND_FILENAME);
  Timer1.Interval := Timer1.Interval + 1000;
  inc(n);
 end else Timer1.Enabled := false; 
end;

Пойдет?

[zip000]

Artem28 стандартный таймер очень не точный, его лучше не использовать.

Код:

var
  LastTick : Cardinal;
  ThisTick : Cardinal;
const
  Interval = 10000; // 10 сек
..................
  LastTick := GetTickCount;
  while True do begin
    ThisTick := GetTickCount;
    if ThisTick - LastTick >= Interval then begin
      PlaySound('SomeSound.wav', 0, SND_FILENAME);
      LastTick := ThisTick;
    end;
  end;

Это бесконечный цикл в котором с интервалом Interval (в МИЛЛИСЕКУНДАХ) будет проигрываться звуковой файл. Если надо определенное количество раз то вот

Код:

var
  LastTick : Cardinal;
  ThisTick : Cardinal;
  PlayedTimes : Integer;
const
  Interval = 10000; // 10 сек
  TimesToPlay = 10; // скока раз воспроизвести
..................
  PlayedTimes := 0;
  LastTick := GetTickCount;
  while True do begin
    ThisTick := GetTickCount;
    if ThisTick - LastTick >= Interval then begin
      PlaySound('SomeSound.wav', 0, SND_FILENAME);
      PlayedTimes := PlayedTimes + 1;
      if PlayedTimes = TimesToPlay then
        Break;
      LastTick := ThisTick;
    end;
  end;

[RedHead]

Последний вариант хорошо работает при "беспаузном" цикле, но при попытке выставить какую либо паузу получается какая то фигня. Отсюда вопрос: как узнать точную длительность wav-файла или момент окончания его проигрывания? тогда б все проблемы были решены с максимальной точностью

[Winny]

http://delphiworld.narod.ru/base/wav_file_length.html

[RedHead]

После прочтения статейки все заработало. Определил длительность и все стало огонь. Всем спасибо