[mikesunrise]

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

[Pyro]

выбор усторйства bass dll умеет
когда вижу слова "нужно сделать прогу" почему-то думаю, что автор вообще не знает во что ввязывается

[mikesunrise]

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

выбор усторйства bass dll умеет
когда вижу слова "нужно сделать прогу" почему-то думаю, что автор вообще не знает во что ввязывается

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

[cotseec]

пишем в гугл bass, идем по первой ссылке, скачиваем архив для вин, в примерах находим

Код:

procedure TForm2.FormCreate(Sender: TObject);
var
  i: Integer;
  ADeviceInfo: BASS_DEVICEINFO;
begin
  i := 1;
  while BASS_GetDeviceInfo(I, ADeviceInfo) do
  begin
    ListBox1.Items.Add(ADeviceInfo.name);
    i := i + 1;
  end;
end;

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

[mikesunrise]

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

пишем в гугл bass, идем по первой ссылке, скачиваем архив для вин, в примерах находим

Код:

procedure TForm2.FormCreate(Sender: TObject);
var
  i: Integer;
  ADeviceInfo: BASS_DEVICEINFO;
begin
  i := 1;
  while BASS_GetDeviceInfo(I, ADeviceInfo) do
  begin
    ListBox1.Items.Add(ADeviceInfo.name);
    i := i + 1;
  end;
end;

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

работает, спасибо
извини конечно, я новичок в этом, а как все таки проиграть звук?буду оооочень благодарен)

[angvelem]

Например:

Код:

  chan := BASS_StreamCreateFile(False, PChar(FileName), 0, 0, BASS_SAMPLE_LOOP);
  BASS_ChannelPlay(chan, False);

В скачиваемой библиотеке, в комплекте имеются примеры.