[poli-smen]

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

Как сделать несколько плееров или сделать так чтобы с помощью одного файла bass.dll можно было воспроизводить несколько звуков одновременно

Каждый поток в bass проигрывается независимо. Сколько потоков запустишь - столько одновременно и будет играть:

Код:

var
  h1, h2: HSTREAM;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: AnsiString;
begin
  BASS_Init(-1, 44100, 0, Handle, nil);

  s := 'C:\Music\Композиция 1.mp3';
  h1 := BASS_StreamCreateFile(False, Pointer(s), 0, 0, 0);
  if h1 <> 0 then BASS_ChannelPlay(h1, False);

  s := 'C:\Music\Композиция 2.mp3';
  h2 := BASS_StreamCreateFile(False, Pointer(s), 0, 0, 0);
  if h2 <> 0 then BASS_ChannelPlay(h2, False);
end;