Версия для печати темы

Автор: kvadrat 17.12.2009 21:22

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

Автор: volvo 17.12.2009 21:50

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

Автор: kvadrat 17.12.2009 22:34

Подключил, посмотрел, но мне не понятно как этот код преобразовать, если у меня вместо кнопки 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 17.12.2009 22:41

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

Автор: kvadrat 18.12.2009 1:08

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

Автор: volvo 18.12.2009 1:32

Лучше всего, наверное, посмотреть в Хелпе, или в онлайн-документации фирмы-производителя Дельфи. Вот тут, например: http://docs.embarcadero.com/products/rad_studio/radstudio2007/RS2007_helpupdates/HUpdate4/EN/html/devwin32/addingaudioandorvideoclipstoanapplication_xml.html