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

[Aliens_wolfs]

Добрый вечер Форумчане!
Подскажите пожалуйста есть ли способ регулировки по отдельности левого и правого каналов звука.

интересует примерно следующее но так не работает видимо для 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);

[Aliens_wolfs]

Спасибо!
Попробую

[Aliens_wolfs]

Получилось таким методом управлять каналами.

procedure TForm1.Button1Click(Sender: TObject);
var
BCH: BASS_CHANNELINFO;
begin
if OpenDialog1.Execute then
begin
Channel:= BASS_StreamCreateFile(false, pchar(OpenDialog1.FileName), 0, 0, BASS_STREAM_DECODE  {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
BASS_ChannelGetInfo(Channel, BCH);
Mixer := BASS_Mixer_StreamCreate(BCH.freq, BCH.chans, 0);
BASS_Mixer_StreamAddChannel(Mixer, Channel, BASS_MIXER_MATRIX);
SetLength(matrix, 2 * 2);
matrix[0]:=0.2;  matrix[1]:=0; // левый канал
matrix[2]:=0;   matrix[3]:= 1; // правый канал
BASS_Mixer_ChannelSetMatrix(channel, matrix);
BASS_ChannelPlay(Mixer, false);
end;
end;

Спасибо DIONISKA за подсказку

Всю библиотеку BASS и BASSMIX брал от сюда "COM BASS Mixer Library component"
https://www.3delite.hu/Object%20Pasc...ssmixerlibrary