Трансляция звука по локальной сети (UDP и BASS.DLL)

[cactus628]

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

[MC-Sergey]

Идея хорошая.
Сам давно хотел сделать что-то подобное.
Но есть одна проблема.
Если с буфером еще понятно решение, то что делать с щелчками при воспроизведении принятых пакетов?
Ты(или не ты), вроде где то писал что решил эту проблему. Не поделишься секретом?
Не обязательно код. Хотя бы принцип.
Спасибо.

[cactus628]

нет. я, к сожалению, так и не решил эту проблему. все мои наработки со звуком и UDP прикреплены

[MC-Sergey]

Сообщение от cactus628

нет. я, к сожалению, так и не решил эту проблему. все мои наработки со звуком и UDP прикреплены

рассматривал ли ты работу по TCP протоколу? почему UDP?
может есть смысл перейти на TCP с использованием буфера...

[Aliens_wolfs]

Если хочешь транслировать звуковой файл Wav по сети, просто открывай и отправляй его, но этот пример для малых по размеру файлов

procedure TForm1.Button1Click(Sender: TObject);
var
 f : File;
 I, Length: integer;
 FileName: String;
  Buffer: Pointer;
begin
if OpenDialog1.Execute then
begin
FileName:= OpenDialog1.FileName;
  {$I-}
   AssignFile(f, FileName);
   FileMode := fmOpenReadWrite;
   Reset (f, 1);
   {$I+}
   i:=IOResult;
   if i > 0 then
   begin
   Showmessage(Format('Ошибка: Неудалось открыть файл %s',[FileName]));
   exit;
   end;
  //Определяем размер всего файла
  length:=filesize(f);
  if length=0 then
  begin
  Showmessage(Format('Ошибка: Неудалось открыть файл %s т.к. размер %d',[FileName, Length]));
   exit;
  end;
  //создаем буфер
 getmem(Buffer, length);
 //Читаем файл и записываем в буфер данные
 BlockRead(f, Buffer^, length);
 //Закрываем файл
 CloseFile(f);
 //отправляем файл данные которого уже в буфере
if IdUDPClient1.Active then
 IdUDPClient1.SendBuffer(buffer^,length);
 //Уничтожаем буфер
 freeMem(Buffer);
 end;
end;

открывать в программе приемник можно так:

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
  Buffer: Pointer;
  Size: integer;
chan:    HSTREAM;	// playback channel
begin
Size:=AData.Size;
GetMem(Buffer, Size);
AData.Position:=0;
AData.Read(Buffer^, Size);
chan:=BASS_StreamCreateFile(true, Buffer, 0, AData.Size, 0);
BASS.BASS_ChannelPlay(chan,false);
end;

Насчет mp3 почитай здесь http://www.programmersforum.ru/showthread.php?t=184813 там же и рассуждение про трансляцию по сети музыки
Я думаю что бы использовать законно mp3 по сети нужно создать сервер который будет отвечать запросам BASS_StreamCreateURL.

[Aliens_wolfs]

Посмотрел ваш проект по работе с микрофоном и сделал свой вариант по передаче звука по сети, можно воспроизводить по сети Wav файлы большого размера, файл будет играть на обоих компах

Должно быть объявленно в отправителе и в получателе.

type
  TWAVHDR = packed record
    riff:			array[0..3] of Char;
    len:			DWord;
    cWavFmt:		array[0..7] of Char;
    dwHdrLen:		DWord;
    wFormat:		Word;
    wNumChannels:	Word;
    dwSampleRate:	DWord;
    dwBytesPerSec:	DWord;
    wBlockAlign:	Word;
    wBitsPerSample:	Word;
    cData:			array[0..3] of Char;
    dwDataLen:		DWord;
  end;

Const
BufSize = 2048; //Размер буфера для отправления и получения звукрвых данных
 
Type
FFTData = array[0..BufSize] of byte; // Массив для получения данных 
chan:    HSTREAM;

var
FData: FFTDATA;

Код отправителя

//Открываем файл и воспроизводим при этом извлекаем данные и отправляем
procedure TForm1.Button1Click(Sender: TObject);
var
 f : File;
 I, Length: integer;
 FileName: String;
WHdr: TWAVHDR;
begin
if OpenDialog1.Execute then
begin
FileName:= OpenDialog1.FileName;
  {$I-}
   AssignFile(f, FileName);
   FileMode := fmOpenReadWrite;
   Reset (f, 1);
   {$I+}
   i:=IOResult;
   if i > 0 then
   begin
   Showmessage(Format('Ошибка: Неудалось открыть файл %s',[FileName]));
   exit;
   end;
  //Определяем размер всего файла
  length:=filesize(f);
  if length=0 then
  begin
  Showmessage(Format('Ошибка: Неудалось открыть файл %s т.к. размер %d',[FileName, Length]));
   exit;
  end;
 //Читаем файл и записываем в буфер данные заголовка
 BlockRead(f, WHdr, SizeOf(TWAVHDR));
 //Закрываем файл
 CloseFile(f);
//отправляем заголовок файла
if IdUDPClient1.Active then
 IdUDPClient1.SendBuffer(WHdr, SizeOf(TWAVHDR));

//Освобождаем канал для нового файла
BASS_StreamFree(chan);
//Создаем канал
Chan:= BASS_StreamCreateFile(false, PChar(FileName), 0, 0, 0);
Timer1.Interval:=100;
Timer1.Enabled:=true;
//Воспроизводим файл
bass_channelplay(Chan, false);
 end;
end;

//Следим за состояним канала и отправляем данные если воспроизведение
procedure TForm1.Timer1Timer(Sender: TObject);
var
iActiv: Dword;
begin
//Статус Трэка
iActiv:= BASS_ChannelIsActive(Chan);
Case iActiv of
//Если файл играет то отправляем данные по BufSize байт
 BASS_ACTIVE_PLAYING:
if IdUDPClient1.Active then
begin
 BASS_ChannelGetData(Chan, @FData, BufSize);
 IdUDPClient1.SendBuffer(FData, BufSize);
 end;
 end;
end;

Код получателя

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
WHdr: TWAVHDR;
Flag: DWORD;
begin
// Сначала получаем заголовок чтобы узнать параметры звука
AData.Position:=0;
AData.Read(WHdr, SizeOf(TWAVHDR));
//Проверяем заголовок или данные
If WHdr.riff='RIFF' then
begin
//Освобождаем канал для нового файла
BASS_StreamFree(chan);
//Создаем канал с параметрами из заголовка файла
Flag:=0;
if WHdr.wBitsPerSample=8 then
Flag:= BASS_DEVICE_8BITS;
if WHdr.wNumChannels=1 then
Flag:=Flag or BASS_DEVICE_MONO;
Chan:=  BASS_StreamCreate(WHdr.dwSampleRate, WHdr.wNumChannels, Flag, STREAMPROC_PUSH, nil);
end
else
begin
//Работаем с каналом
AData.Position:=0;
AData.Read(FData, BufSize);
BASS_StreamPutData(chan,@FData, BufSize);
BASS_ChannelPlay(chan, False);
end;
end;

Проверил работает), легко можно переделать для TCP

[Aliens_wolfs]

А вот придумал код универсальный, воспроизводит WAV и MP3 файлы по сети

Должно быть объявленно в передатчике и в приемнике.

type
 TWAVHDR = packed record
 VER:		   	array[0..3] of Char;
 INFO:      BASS_CHANNELINFO;
 end;
 
var
  chan:  HSTREAM;
  Form1: TForm1;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
if (not BASS_Init(-1, 44100, 0, Handle, nil)) then
	begin
		BASS_Free();
		MessageDlg('Cannot start default device!', mtError, [mbOk], 0);
		Halt;
	end;
end;

Код передатчика

Const
BufSize = 32; //Размер буфера для отправления и получения звуковых данных

Type
FFTData = array[0..BufSize] of byte; // Массив для получения данных

var
  FData: FFTDATA;
 zPos: integer;

procedure TForm1.Button1Click(Sender: TObject);
var
 FileName: String;
 WHdr: TWAVHDR;
begin
//Открываем файл с помощью диалога
if OpenDialog1.Execute then
begin
FileName:= OpenDialog1.FileName;

//Освобождаем канал для нового файла
BASS_StreamFree(chan);
//Создаем канал из файла
Chan:= BASS_StreamCreateFile(false, PChar(FileName), 0, 0, 0);
//отправляем информацию о файле и указываем что это заголовок
WHdr.VER:='VER1';
BASS_ChannelGetInfo(Chan, WHdr.INFO);
if IdUDPClient1.Active then
IdUDPClient1.SendBuffer(WHdr, SizeOf(TWAVHDR));

//включаем таймер состояния канала
zPos:=0;
Timer1.Interval:=10;
Timer1.Enabled:=true;

//Воспроизводим файл
bass_channelplay(Chan, false);
end;
end;

//Следим за состояним канала и отправляем данные если воспроизведение
procedure TForm1.Timer1Timer(Sender: TObject);
var
iActiv: Dword;
iPos: Integer;
begin
//Статус Трэка
iActiv:= BASS_ChannelIsActive(Chan);
Case iActiv of
//Если файл играет то отправляем данные по BufSize байт
 BASS_ACTIVE_PLAYING:
if IdUDPClient1.Active then
begin
 BASS_ChannelGetData(Chan, @FData, BufSize);
  iPos:=BASS_ChannelGetPosition(Chan,0);
 //Проверка позиции воспроизведения и размера буфера
 if iPos > zPos  then
 begin
 zPos:= iPos+BufSize;
 IdUDPClient1.SendBuffer(FData, BufSize);
 end;
 end;
 end;
end;

Код приемника

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
WHdr: TWAVHDR;
FData: Pointer;
begin
// Сначала получаем заголовок чтобы узнать параметры звука
AData.Position:=0;
AData.Read(WHdr, SizeOf(TWAVHDR));
//Проверяем заголовок или данные
If WHdr.VER='VER1' then
begin
//Освобождаем канал для нового файла
BASS_StreamFree(chan);
//Создаем канал с параметрами из заголовка файла
Chan:=  BASS_StreamCreate(WHdr.INFO.freq, WHdr.INFO.chans, WHdr.INFO.flags, STREAMPROC_PUSH, nil);
end
else
begin
//Работаем с данными канала и воспроизводим их
getMem(FData, AData.Size);
AData.Position:=0;
AData.Read(FData^, AData.Size);
BASS_StreamPutData(chan, FData, AData.Size);
BASS_ChannelPlay(chan, False);
freeMem(FData);
end;

Если будут прерывания в звуке то можно попробовать настроить BufSize в передатчике, а так же Timer1.interval и желательно использовать TCP соединение.

[MC-Sergey]

Aliens_wolfs, сделал в точности как ты описал. В приемнике раздаются только щелчки при воспроизведении файла.
Увелисил BufSize - вроде что то заиграло. Буду дальше разбираться.
Не могу понять. Заикается. Зависит от значения таймера.

[Aliens_wolfs]

Вот програмка, в одной папке сервер который воспроизводит полученные данные звука, в другой клиент который воспроизводит и отправляет данные звука на сервер, с mp3 вроде неплохо когда сеть незагружена. Переделал на TCP лучше стала воспроизводить, использовал WinSock. На серверной нажать запустить, а в клиенте нажать подключить и выбрать файл, а так же ввести адрес сервера и выбрать с чем работать, микрофон или файл.
С микрофоном классно работает без прерывания сразу трансляция по сети.

[Aliens_wolfs]

Обновил програмку