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

[Aliens_wolfs]

Здравствуйте форумчане!!!
Подскажите кто нибудь, как проиграть данные с модема с помощью bass.dll. Звуковые данные я получаю воспроизвожу с помощью ACMWaveOut хотелось бы с помощью Bass без сохранения в файл, сразу с буфера.

[ZuBy]

выбери это устройство через Bass_Init и делай с ним что хочешь...

[Aliens_wolfs]

if not BASS_Init(-1, 8000, 0, Handle, nil) then
begin
ShowMessage('Can''t initialize device');
Exit;
end;

...........
stream:=BASS_StreamCreate(8000, 1, 0, buf, 0);
BASS_ChannelPlay(stream,true);

Не получается выдает ошибку.
А вот с stream:=BASS_StreamCreateFile(false , PChar(Filename), 0, 0, 0); работает постоянно файл приходится создавать. Мне нужно с буфера сразу воспроизводить

[ZuBy]

что за ошибка?

[Aliens_wolfs]

Ошибка Privileged instruction

Как
BASS_ChannelPlay(stream,true);
эту строку отключаю ошибка непоявляется

работает так
stream:=BASS_StreamCreateFile(false , PChar(Filename), 0, 0, 0);
BASS_ChannelPlay(stream,true);
Неудобно что приходиться в этот файл заголовок создавать

[ZuBy]

а что у тебя модем стоит дефалтным в системе?

[Aliens_wolfs]

Модем простой с подержкой голосовых данных, написал прогу которая открывает порт и с помощью модемных команд я получаю звуковые данные вот эти данные хочу воспроизвести с помощью Bass. С помощью модуля ACMWaveOut воспроизводит.

procedure TForm1.Button2Click(Sender: TObject);
begin
ComPorts.WriteStr('AT+FCLASS=8'+#13 ); //переход в голосовые данные модема
ComPorts.WriteStr('AT+VSM=128,8000' +#13); //формат голосовых данных ADPCM
ComPorts.WriteStr('AT+VLS=1'+#13); //снимать звук с линии
ComPorts.WriteStr('AT+VRX'+#13); //получаю данные
Plays:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ComPorts.Open('COM6',115200,8,0,1);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if not BASS_Init(-1, 8000, 0, Handle, nil) then
begin
ShowMessage('Can''t initialize device');
Exit;
end;
ComPorts:=TComPorts.Create;
ComPorts.OnRead:=OnReadComPort;
end;

//Функция получения данных с буфера модема
procedure TForm1.OnReadComPort(Sender: TObject; ComPort: TComPort);
var
stream : HSTREAM;
begin
if Plays then
begin
BASS_SetConfig(BASS_CONFIG_BUFFER, ComPort.BufSize);
stream:=BASS_StreamCreate(8000, 1, 0, ComPort.BuF, 0);
BASS_ChannelPlay(stream,true);
Bass_StreamFree(stream);
end;
end;

Мне нужно работать с Буфером с помощью Bass

[ZuBy]

нее, я вот о чем

if not BASS_Init(-1, 8000, 0, Handle, nil) then
"-1" - звук. устройство по умолчанию, тебе надо его заменить на индекс модема (может 2?)

[Aliens_wolfs]

Сейчас попробую

if not BASS_Init(2, 8000, 0, Handle, nil) then
begin
ShowMessage('Can''t initialize device');
Exit;
end;

выдает ошибку

с другими индексами тоже ошибка
Инициализация не проходит

тут видимо нужно с BASS_StreamCreate правильно работать

[ZuBy]

попробуй так

var
stream : HSTREAM;
begin
if Plays then 
begin
//BASS_SetConfig(BASS_CONFIG_BUFFER, ComPort.BufSize);
stream:=BASS_StreamCreateFile(true, ComPort.BuF, 0, Comport.bufSize, 0);
BASS_ChannelPlay(stream,true);
Bass_StreamFree(stream); // зачем завершать его?
end;