Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

16th
Янв

Bass регулировка по отдельности левого и правого каналов звука

Posted by obzor under Delphi

Есть ли способ регулировки по отдельности левого и правого каналов звука?

интересует примерно следующее но так не работает видимо для midi

Код:

Samples:= BASS_SampleLoad(false, Pchar(OpenDialog1.filename),0,0,10, BASS_SAMPLE_LOOP);
Channel:= BASS_SampleGetChannel(Samples, false);
BASS_ChannelSetAttribute(Chanel, BASS_ATTRIB_MUSIC_VOL_CHAN + 1, 0.1);
BASS_ChannelSetAttribute(Chanel, BASS_ATTRIB_MUSIC_VOL_CHAN + 2, 0.1);
BASS_ChannelPlay(Channel, FALSE);

Так работает но это балансировка каналов, а мне нужно каждому из каналов задать свой уровень.

Код:

Samples:= BASS_SampleLoad(false, Pchar(OpenDialog1.filename),0,0,10, BASS_SAMPLE_LOOP);
Channel:= BASS_SampleGetChannel(Samples, false);
//установка громкости звука
BASS_ChannelSetAttribute(Channel,BASS_ATTRIB_VOL, vol);
//установка баланса
BASS_ChannelSetAttribute(Channel,BASS_ATTRIB_PAN,Ball);
BASS_ChannelPlay(Channel, FALSE);

Есть ли еще способы регулировки по отдельности каждый из каналов?

DIONISKA

Каналы можно регулировать по-отдельности используя bassmix и конкретно BASS_Mixer_ChannelSetMatrix
будет что-то вроде вот такого

Код:

var     
  matrix : array of single;
  mixer,channel:HSTREAM;
  //....
    BASS_Init(-1,44100,0,Handle, nil));
    mixer := BASS_Mixer_StreamCreate(44100,2, 0);
   //...
      channel:= BASS_StreamCreateFile(false,pchar(Self.OpenDialog1.FileName),0,0,BASS_STREAM_DECODE  {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
    BASS_Mixer_StreamAddChannel(mixer, channel, BASS_MIXER_MATRIX or BASS_STREAM_AUTOFREE);
    SetLength(matrix, 2*2);
    matrix[0]:=0.5;   matrix[1]:=0; // l=0.5
    matrix[2]:=0;   matrix[3]:=0.7; // r=0.7
    BASS_Mixer_ChannelSetMatrix(channel, matrix);
    BASS_ChannelPlay(mixer, false);

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

Случайные статьи

Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию: