Запись потока с линейного входа , Разделить поток линейного входа на 2 разных в первом только левое моно, а во втором только правое моно

[Prince]

Цитата

Например мне нужно чтобы это стереопоток разбивался, записывался в разные файлы

Прикреплённый файлКопия_RecordTest.rar (3.54 Кбайт, скачиваний: 405)
За основу взят пример из Bass. Захват аудио производится в формате 44100 стерео 16 бит, а на диск пишется сразу 3 файла: стерео, и отдельно левый/правый каналы. Файлы моно имеют в имени приставку L/R.

Добавлено 17.09.13, 14:25

Цитата

при этом чтобы он соазу не выводился на выход, а была возможность какой-то из разбитых ранее потоков отдельно в случае необходимости выводить на выходе...

Переведите.

Сообщение отредактировано: Prince - 18.09.13, 14:10

[Prince]

Цитата

Я пожалуй соглашусь с тем, что ты не разобравшись, что я хотел показать, начал гнать пургу.

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

Цитата

Правда "светочи" вцепились в вывод, "аргументируя" необходимостью ввода, но сознательно упуская одну деталь - структура одинакова как для ввода, так и для вывода.

Светочи вцепились в то, что ты выдал ерунду, и как обычно, уперто твердишь, что ты прав, просто тебя неправильно поняли.

Сообщение отредактировано: Prince - 17.09.13, 14:57

[sandist]

Попробую перевести... я подключаю телефон, где играет стерео, на линейный вход, на той же звуковухе подключаю наушники на линейный выход и слышу музыку... а нужно чтобы ее по умолчанию слышно не было, а было слышно только то, что я сам решу выводить... ну к примеру один из входных потоков...
И еще один вопрос, я запускаю на этом же компе плеер и то, что играет на плеере тоже попадает на запись... накладывается на то, что приходит с линейного входа, как этого избежать?

[medved_68]

Цитата sandist @ 17.09.13, 15:12

как этого избежать?

Я же тебе говорю - микшер. Погаси в микшере выходной канал и ты ничего в наушниках не услышишь. Аналогично и с выбором входа для звука.

Цитата Prince @ 17.09.13, 14:36

и как обычно, уперто твердишь

Ну если светочи непонятливые то как же не твердить то? Ведь белое не станет черным, как бы этого "светочам" не хотелось...

Цитата Prince @ 17.09.13, 14:36

просто тебя неправильно поняли.

Уже теплее, продолжай. Я зачту слив.

[Prince]

Цитата

Я зачту слив.

Зачти его себе, я тебе его уже зачёл на прошлой странице.

Добавлено 17.09.13, 15:49

Цитата

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

Выключить в микшере прослушивание линии линейного входа.

Цитата

а было слышно только то, что я сам решу выводить... ну к примеру один из входных потоков...

Можно сделать програмно, но с задержкой относительно входящего аудио-сигнала.

Цитата

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

Выключить в микшере запись с линии стерео-выхода или выключить в микшере прослушивание линии линейного входа. Я через форум не могу поковыряться в настройках вашего микшера, а там могут быть варианты.

Сообщение отредактировано: Prince - 17.09.13, 15:54

[sandist]

Спасибо большое!!! разобрался... но чувствую еще этих вопросов много будет

[Prince]

Ошибку допустил в function RecordingCallback:

Form1.WaveStreamL.Write(buffer_L^, length div 2);
  Form1.WaveStreamR.Write(buffer_L^, length div 2);

Во второй строчке должен быть buffer_R^
В TForm1.FormClose добавить

  if BASS_ChannelIsActive(rchan) <> 0 then
  brecord.Click;

иначе, если закрыть окно во время записи, ресурсы не особождаются корректно.
Обновил архив.

Сообщение отредактировано: Prince - 18.09.13, 14:10

[sandist]

Подскажите пожалуйста еще... насчет того как проигрывать через bass.dll много чего написано, а вот с записью куда скуднее..
Вы подсказали мне как разделить поток и записывать их в файлы.. а как разбить поток на 2, так, чтобы к ним можно было применять эффекты, ну вернее громкость, эквалайзер. Например я записываю звук, а он от источника очень громкий... нужно эквалайзером уменьшить

[Prince]

Цитата

Вы подсказали мне как разделить поток и записывать их в файлы.. а как разбить поток на 2

Вопрос бессмысленный. Разбить, разделить - масло масляное.
У вас есть кусок памяти(буфер, массив, обзовите как угодно), в котором отсчёты каналов располагаются так:

Буфер	L	R	L	R	L	R	L	R	...	L	R

Каждый отсчёт - 16 бит(2 байтовое число со знаком). Читайте нужные вам отсчёты и обрабатывайте как вам угодно.
В примере, для того, чтобы записывать в файлы отдельно левый/правый каналы, выделяются дополнительно 2 буфера, куда раскидываются отсчёты из стерео буфера.

Буфер_L	L	L	L	L	...	L

Буфер_R	R	R	R	R	...	R

Потом все три буфера сливаются на диск, в разные файлы.

Цитата

Например я записываю звук, а он от источника очень громкий...

"Регулятор покрути". На источнике, чтобы согласовать по уровню выход источника и вход звуковой карты; и в микшере звуковой карты, чтобы выставить требуемый уровень записываемого сигнала.

Цитата

а как разбить поток на 2, так, чтобы к ним можно было применять эффекты, ну вернее громкость, эквалайзер

Допустим, применили. А дальше?

Сообщение отредактировано: Prince - 22.09.13, 08:21

[sandist]

Как реализовано в примере я понял, но по условию у меня может быть с левого источника громкий звук, а с правого тихий, мне нужно уменьшить к примеру левый... то есть подается стерео звук, но на левом канале нужно уменьшить, на источнике покрутить не вариант, в микшере как я уменьшу именно для левого?
А нельзя получить данные, их преобразовать и уже потом записывать?
Времени совсем мало, если можно конкретный пример...
Спасибо

[medved_68]

Цитата sandist @ 22.09.13, 17:10

в микшере как я уменьшу именно для левого?

Баланс при воспроизведении не прокатит?

[Prince]

  for i:=0 to length div 4-1 do
  Begin
 psample^:=round(psample^*level_L);
  psample_L^:=psample^;
  inc(psample);
  inc(psample_L);
  psample^:=round(psample^*level_R);
  psample_R^:=psample^;
  inc(psample);
  inc(psample_R);
  end;

level_L/R - коэффициенты, от 0(полная тишина) до 1.0(уровень сигнала не меняется). Если необходимо увеличить уровень, т.е., level_L/R больше 1.0, придётся ввести проверку на переполнение.

Можно вынести манипуляции с сепмплами в DSP секцию, но раз времени мало, пусть будет так.

Сообщение отредактировано: Prince - 22.09.13, 17:45

[sandist]

Спасибо большое! Еще если можно помогите воспроизвести выбраный канал... вот пробую так, но у меня звук прерывается
function stream(handle: HSTREAM; buffer: Pointer; length: DWORD; user: DWORD): Cardinal; stdcall;
var
c : integer;
begin
{c := BASS_ChannelGetData(rchanL, 0, 255);
if (c > (2 * (0 + 1764))) then
BASS_ChannelGetData(rchanL, 0, c);}
c := BASS_ChannelGetData(RchanL, buffer, length);

Result := c;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
rchanL := BASS_RecordStart(44100, 2, 0, Nil,nil);
pchan := BASS_StreamCreate(44100,2,0,@stream,0);
BASS_ChannelPlay(pchan,False);
end;

что я не учел?

Добавлено 23.09.13, 06:16
так это же совсем не то...
Как воспроизвести тот канал который нужен с измененным уровнем звука?

[Prince]

Вы хотите отправлять записываемый звук сразу на воспроизведение? Т.е., организовать так называемый сквозной канал?

[sandist]

Вообще мне нужно записывать сигнал, который получаю от 2 источников, которые (сливаются) в стерео, программно их разделить, в случае необходимости уменьшить или увеличить входящий звук на обоих или отдельно на каждом из них, затем если пользователь нажмет прослушать, то воспроизводится ослабленный либо усиленный сигнал выбранного канала.
С вашей помощью я разобрал как вообще записывается сигнал, как его разделить, уменьшить звук, теперь мне осталось додумать индикатор, который дает знать какой уровень сигнала, зашкаливает, либо слабый, подумать над тем как при воспроизведении один (к примеру левый канал) сдублировать на правый(псевдо стерео)...

Добавлено 23.09.13, 07:50
вот этот кусок дает мне индикатор, корректно?
procedure TForm1.Timer1Timer(Sender: TObject);

var
level,pl,pr:dword;

begin
level := BASS_ChannelGetLevel(rchanl);
pl := round(volume*loword(level)/32768*100);
cxTrackBar1.Position := 100-pl;