Воспроизведение аудио файлов .ogg, Как это сделать? проект прилагается. Опции

[kvadrat]

Прочитал кучу инфы про это, но так и не понял как заставить мой проигрыватель воспроизводить ogg. Понял только что надо подключить какую-то библиотеку и что то с ней сделать, но так и не понял какую и что. Подскажите пожалуйсто?
 player2.zip ( 10.87 килобайт ) Кол-во скачиваний: 367

[volvo]

Библиотека Bass. Подключаешь и смотришь в примерах файл bass24\delphi\BassTest\BTMain.pas, как реализуется загрузка/проигрывание/остановка файла любого формата...

[kvadrat]

Библиотека Bass. Подключаешь и смотришь в примерах файл bass24\delphi\BassTest\BTMain.pas, как реализуется загрузка/проигрывание/остановка файла любого формата...

Подключил, посмотрел, но мне не понятно как этот код преобразовать, если у меня вместо кнопки Play - TMediaPlayer, а вместо TListBox - DBLookupListBox, подскажи пожалуйста?

procedure TForm1.Button3Click(Sender: TObject);
var
	i: Integer;
begin
	i := ListBox3.ItemIndex;
	// Play the stream (continuing from current position)
	if i >= 0 then
		if not BASS_ChannelPlay(strs[i], False) then
			Error('Error playing stream!');
end;

[volvo]

если у меня вместо кнопки Play - TMediaPlayer

- то никак. Не умеет Дельфийский МедиаПлейер проигрывать OGG. Точка. Пользуешься им - значит без OGG.

[kvadrat]

- то никак. Не умеет Дельфийский МедиаПлейер проигрывать OGG. Точка. Пользуешься им - значит без OGG.

Тогда скажи пожалуйста какие форматы может проигрывать mediaplayer или где это можно посмотреть?

[volvo]

Лучше всего, наверное, посмотреть в Хелпе, или в онлайн-документации фирмы-производителя Дельфи. Вот тут, например: Multimedia device types and their functions