повторное воспроизведение wav

[romlo]

Имеется две кнопки, по нажатию одной файл воспроизводится,
по нажатию другой - останавливается.
Однако при повторном нажатии первой кнопки после второй файл не воспроизводится!
Почему? Может я ресурс какой не освободил?
Или есть какой-либо другой способ воспроизведения wav с указанной скоростью?

var
  Form1: TForm1;
  format:TWaveFormatEx;
  hzv:HWaveOut;        // идентификатор устройства
  hider:WaveHdr;
  buf:PChar;
  fl:TMemoryStream; 
 
implementation
 
 
procedure TForm1.Button1Click(Sender: TObject);//Кнопка Пуск
begin
//If opendialog1.Execute then
//begin
 fl:=TMemoryStream.Create;     //Создаем новый стрим
 fl.LoadFromFile('sou.wav');  //грузим
 buf:=StrAlloc(fl.Size);     //выделяем память под длинную строку
 fl.Read(buf^, fl.Size);     //читаем в буфер файл
 format.wFormatTag:=WAVE_FORMAT_PCM;  //задаем формат
 format.nChannels:=2;                 //Двухканальный звук
 format.nSamplesPerSec:=StrToInt(edit1.Text);//указанная скорость
 format.nAvgBytesPerSec:=fl.Size; //скорость: по порции в секунду
 format.nBlockAlign:=4;           //ширина блка выравнивания
 format.wBitsPerSample:=16;       //размер сэмпла
 format.cbSize:=0;                //размер этой структуры
 
 waveOutOpen(@hzv, // указатель на идентификатор устройства, его заполнит ф-ция
  WAVE_MAPPER,// -1
  @format,   // указатель на структуру WAVEFORMAT
   0, 0, CALLBACK_NULL);
 hider.lpData:=@buf^;    // адрес блока данных
 hider.dwBufferLength:=fl.Size;  // размер блока данных
 fl.Free;
 waveOutPrepareHeader(hzv,   // идентификатор устройства
  @hider,              // указатель на структуру WAVEHDR
  SizeOf(hider));
 waveOutWrite(hzv, @hider, SizeOf(hider));
//end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);//Кнопка Стоп
begin
 waveOutPause(hzv);  //остановка воспроизведения
 waveOutUnPrepareHeader(hzv, @hider, SizeOf(hider)); //подготовка
 waveOutClose(hzv);//закрываем
 StrDispose(buf);//освобождаем память
end;

[veniside]

Вместо waveOutPause() попробуй waveOutReset().


> format.nAvgBytesPerSec:=fl.Size; //скорость: по порции в секунду

круто. По хорошему должно быть:

format.nAvgBytesPerSec := format.nSamplesPerSec * 4;// для 16 бит стерео

> format.cbSize:=0; //размер этой структуры

Это не "размер этой структуры", это размер данных, следующих за этой структурой.

> hider.dwBufferLength:=fl.Size; // размер блока данных

Ага, а если у нас файло на 50 метров, пусть драйвер подавится

Можно глянуть на этот пример, исходники они недавно открыли.

[Пепел Феникса]

пусть драйвер подавится

он не подавится

[veniside]

в принципе да, но память тоже не резиновая ) Проще, кстати, тогда уже файло отмапить через OpenFileMapping(), чем гонять байты туда-сюда. И быть готовым к тому, что все рухнет, если размер файла превысит размер доступной памяти.

[Пепел Феникса]

про память уже согласен.
порцировать данные надо