Узнать продолжительность mp3 файла

[ramzes777]

Как можно узнать продолжительность mp3 файла в Делфи?

НЕ через Tmediaplayer.

Воспроизводить, ничего с ним делать не нужно. Просто узнать длинну.
Кучу библиотек перекачал, ничего не работает... (MPEG Audio и т.п.)

[mihali4]

Зайдите на http://websound.ru/
Там в разделе "Программисту -> Библиотека" в самом низу есть "Audio Tools Library v2.3 для Borland Delphi". Скачайте исходники (ссылка на файл atl.zip). Там есть класс TMPEGaudio, а у класса свойство Duration. Там и примеры есть. (examples.zip)

[ramzes777]

"Кучу библиотек перекачал, ничего не работает... (MPEG Audio и т.п.)"

Она у меня уже есть. Сами примеры работают, а исходники нет. Пишет нету файлов .dcu.

[ZuBy]

используйте bass.

на счет ATL:
чтобы выдернуть из тегов продолжительность, она там должна быть прописана!
ramzes777, какая версия Delphi? ATL работает только в не юникодных версиях.
(хотя я вроде уже выкладывал, юникодный atl)

[ramzes777]

Delphi 7.
Проверял на нескольких композициях.
Басс у меня что-то вообще треки не открывает

[ramzes777]

Решение: использовал басс.
При форм.креэшн:

if not bass_init(-1, 44100, 0, handle, nil) then halt;

Процедура:

procedure TForm1.Button1Click(Sender: TObject);
var ffilename:pchar;
begin
filename:='Название трека';
if not fileexists(filename) then showmessage('no file');
ffilename:=pchar(filename);
Channel:=bass_streamCreateFile(false, ffilename,0,0,0);
bass_channelplay(channel,false);
if channel=0 then showmessage('ERROR!!!');
BASS_ChannelBytes2Seconds(Channel, BASS_ChannelGetLength(Channel, BASS_POS_BYTE)); {Длина трека}
 end;