Проиграть данные с модема с методом Bass.dll

[Aliens_wolfs]

Спасибо ZuBy за подсказку!!!

Я понял в каком направлении работать, пока тишина нужно BitsPerSample 8 бит задать в атрибутах Bass, почитаю примеры как изменить 16 бит на 8 бит
С модема звуковые данные частота 8000, BitsPerSample 8 бит

stream значение 0 выдает
Сделал так, но все равно тишина.

procedure TForm1.OnReadComPort(Sender: TObject; ComPort: TComPort);
var
stream : HSTREAM;
begin
if Plays then
begin
stream:=BASS_StreamCreateFile(true, ComPort.Buf, 0, ComPort.BufSize, BASS_DEVICE_8BITS or BASS_DEVICE_MONO);
BASS_ChannelPlay(stream,true);
end;
end;

Заработало вот таким образом

procedure TForm1.OnReadComPort(Sender: TObject; ComPort: TComPort);
var
header: TWaveHeader;
Buf: array of char;
stream : HSTREAM;
begin
if Plays then
begin
//Заполняем заголовок
with header do
begin
idRiff :='RIFF';
RiffLen :=ComPort.BufSize;
idWave :='WAVE';
idFmt :='fmt ';
InfoLen :=16;
FormatTag :=1;
Channels :=1;
Freq :=8000;
BitsPerSample :=8;
BlockAlign :=Channels * (BitsPerSample div 8);
BytesPerSec :=Freq * BlockAlign;
idData :='data';
DataBytes :=0;
end;
//Определяем размер общего буфера
size:=SizeOf(TWaveHeader) + ComPort.BufSize;
//Создаем общий буфер
getmem(Buf,size);
//перемещаем заголовок в общий буфер
Move(Pointer(@header)^, Pointer(Buf)^, SizeOf(TWaveHeader));
//перемещаем буфер модема в общий буфер
Move(Pointer(ComPort.buf)^, Buf[SizeOf(TWaveHeader)], ComPort.BufSize);
//И затем Bass читая заголовок понимает данные общего буфера
stream:=BASS_StreamCreateFile(true, Buf, 0, Size, 0);
BASS_ChannelPlay(stream, true);
freemem(Buf);
end;
end;

Создает при принятии данных каждый раз заголовок.

А можно ли один раз создать заголовок чтобы в буфер его не копировать, как это делает модуль ACMWaveOut в нем один раз открывается диалоговое окно выбора звуковых кодеков и все, затем буфер без заголовков воспроизводит звуковые данные, там прописывается одна строка?