Проблема с выводом звука

[JekaDefer]

Ребят подскажите почему при выводе звука в конце идет шипение и как от него избавиться так чтоб длительность сигнала была равна заданной?

[s-andriano]

Код не смотрел, но навскидку: если длина буфера больше последнего фрагмента звукового файла, обнулите остаток.

[JekaDefer]

Да в том то и суть что вроде бы ничего не больше.. посмотрите код плиз.. Шипение убрать можно уменьшив немного длину буфера для вывода

hdr[0].dwBufferLength := sizeof(Sample);

заменить на

hdr[0].dwBufferLength := sizeof(Sample)-3300;

, но интересно откуда это шипение вообще берется... Ведь у меня nSamplesPerSec=8000 и заполняются только эти 8000 и выводится тоже только массив из этих 8000.. по идее должно все работать.. я хз

[kangreon]

Замените

dwBufferLength := sizeof(Sample);

на

dwBufferLength := Length(Sample);

SizeOf() Выдает размер этого массива в байтах. То, сколько он занимает места в памяти.

Для наглядного сравнения

  Caption := Format('%u, %u', [SizeOf(Sample), Length(Sample)]);

[veniside]

я, как аффтар основной части кода, не согласен с такой заменой

dwBufferLength Length, in bytes, of the buffer.

[kangreon]

Да, ошибся. =)

Попытка найти проблему 2:

Треск в конце файла возникает, скорее всего, из за освобождения массива.
Если в конце процедуры вставить обычный Sleep(...) или объявить

Sample: array[0..8000-1] of integer;	// full second

глобально, то воспроизводится нормально, однако иногда, в конце воспроизведения, приложение крашится.

PS Это не точный вариант решения проблемы, просто обстоятельство при котором нету треска.

[JekaDefer]

А есть варианты как сделать чтобы звук длился дольше 1 секунды без перерыва?

[JekaDefer]

Кто нибудь может показать как изменить нижеследующий код так чтобы использовалось не hdr: array[0..2] а hdr: array[0..1] но при этом так же игралось 3 или хоть скоко раз?
код:

program
  GenWave;

{$APPTYPE CONSOLE}

uses
  SysUtils, MMSystem;

const
  sps	= 44100;	// samples per second
  freq1	= 1000;	 	// signal frequency (Hz)
  freq2	= 900;	 	// signal frequency (Hz)
  freq3	= 1200;	 	// signal frequency (Hz)
  time1	= 1000;		// time of signal (ms)
  time2	= 1000;		// time of signal (ms)
  time3	= 1000;		// time of signal (ms)
  Volume1 = 32767;
  Volume2 = 32767;
  Volume3 = 32767;

type
  int16 = smallint;

var
  second: array[0..2, 0..sps] of int16;	// full second
// --  --
procedure prepareSine();
var
  i, nSamples: Integer;
  angle, delta: double;
begin
  nSamples := sps * time1 div 1000;	// signal length in samples
  //
  angle := 0;
  delta := (freq1 / sps) * 2 * Pi;	// how much in one sample
  //
  for i := 0 to nSamples - 1 do begin
    //
    second[0, i] := round(sin(angle) * Volume1);
    angle := angle + delta;
  end;

  nSamples := sps * time2 div 1000;	// signal length in samples
  //
  angle := 0;
  delta := (freq2 / sps) * 2 * Pi;	// how much in one sample
  //
  for i := 0 to nSamples - 1 do begin
    //
    second[1, i] := round(sin(angle) * Volume2);
    angle := angle + delta;
  end;

  nSamples := sps * time3 div 1000;	// signal length in samples
  //
  angle := 0;
  delta := (freq3 / sps) * 2 * Pi;	// how much in one sample
  //
  for i := 0 to nSamples - 1 do begin
    //
    second[2, i] := round(sin(angle) * Volume3);
    angle := angle + delta;
  end;
end;

// -- main --

var
  i: integer;
  wout: hWaveOut = 0;
  fmt: tWAVEFORMATEX;
  hdr: array[0..2] of WAVEHDR;
begin
  prepareSine();
  //
  With fmt do
  Begin
    wFormatTag := WAVE_FORMAT_PCM;
    nChannels := 1;
    nSamplesPerSec := SPS;
    wBitsPerSample := 16;
    nBlockAlign := nChannels*wBitsPerSample div 8;
    nAvgBytesPerSec := nSamplesPerSec*nBlockAlign;
    cbSize := 0;
  End;
  //
  WaveOutOpen(@wout, cardinal(-1), @fmt, 0, 0, 0);
  if (0 <> wout) then
  begin
    //
    for i := 0 to 2 do
    begin
      //
      fillChar(hdr[i], sizeof(hdr), #0);
      hdr[i].lpData := @second[i];
      hdr[i].dwBufferLength := sizeof(second[i]);
      //
      waveOutPrepareHeader(wout, @hdr[i], sizeof(hdr[i]));
      WaveOutWrite(wout, @hdr[i], sizeof(hdr[i]));
    end;
    //
    Sleep(3100);	// sleep for 3 seconds
    //
    waveOutUnprepareHeader(wout, @Hdr, sizeof(Hdr));
    waveOutReset(wout);
    WaveOutClose(wout);
  end;
end.