Воспроизводит звук из буфера или потока с помощью BASS.dll

Posted by obzor under Delphi

Пишу голосовой чат , нужно воспроизвести звук mp3 из буфера или потока. Получаю звук с микрофона, кодирую в mp3 на лету и отправляю.

Aliens_wolfs

вот рабочий код без задержки 400 кб/c

var
chanPlay, ChanMic: Dword;

// от сюда делаешь передачу по сети звука тут же и воспроизведение его
function RecordingCallback(hChan: HRECORD; buffer: Pointer; Size, user: DWord):
 boolean; stdcall;
begin
 BASS_StreamPutData(chanPlay, Buffer, Size);
 BASS_ChannelPlay(chanPlay, false);
end;

//Включаем снятие с микрофона звука и воспроизведения его
procedure TForm1.Button1Click(Sender: TObject);
begin
BASS_RecordInit(-1);
chanMic:=BASS_RecordStart(8000, 2, BASS_CTYPE_STREAM_MP3, @RecordingCallback, nil);
chanPlay:= BASS_StreamCreate(8000, 2, BASS_CTYPE_STREAM_MP3, STREAMPROC_PUSH, nil);
end;

//Закрываем все
procedure TForm1.Button2Click(Sender: TObject);
begin
BASS_RecordFree;
BASS_StreamFree(chanPlay);
BASS_StreamFree(chanMic);
end;

тема на форуме

Похожие статьи

• Нарисовать синусоиду или огибающую на PaintBbox с использованием BASS.DLL
• Считывание звука с микрофона и его воспроизведение или запись
• Озвучка часов
• Добавить звук в программу
• Включить и выключить звук в ОС
• Проиграть сигнал больше чем 1 сек
• Вывод звука определенной частоты в короткие промежутки времени
• Позиция в BASS
• Получить длительномть трека. Bass.dll
• Создание аудио плеера на bass.dll