Продолжительность MP3 / WAV аудио файла
Как узнать продолжительность (в минутах и секундах) аудиофайла MP3 / wav в Delphi?
Ответы на вопрос(9)
форум пост. Я бы сравнил результаты с чем-то вроде winamp, чтобы убедиться, что он работает.
http: //www.un4seen.com/bass.htm
BASS - это аудиотека, которая предоставляет разработчикам мощные функции потоковой передачи (MP3 .. OGG ..). Все в крошечной DLL, размером до 100 КБ.
это очень легко использовать
uses BASS;
var
playingChannel: HSTREAM;
playingLength: Double;
mp3filename: String;
begin
BASS_Init(-1,44100,0,Application.Handle,nil);
playingChannel:=BASS_StreamCreateFile(FALSE,pchar(mp3filename),0,0,0);
playingLength:=BASS_ChannelBytes2Seconds(playingChannel,
BASS_ChannelGetLength(playingChannel,BASS_POS_BYTE));
end;
Включен класс-обертка Delphi. Например
MediaInfo_Get(Handle, Stream_General, 0, 'Duration', Info_Text, Info_Name)
Другое решение DSPack текст ссылки
size := FilterGraph.Duration;
разделив размер файла на скорость передачи данных. Вы можете получить битрейт от одного из заголовков кадра. Конечно, это не будет работать для MP3 с переменной скоростью, где у вас может быть разная скорость для каждого кадра.
Используя Макет заголовка (всего четыре байта):
Откройте MP3 в потоке
Найдите начало заголовка первого кадра, читая, пока не найдете заголовок синхронизации, в котором 11 последовательных битов установлены в 1. Раньше это было 12, но оно было настроено для MPEG версии 2.5.
Определите идентификатор версии MPEG. В целях определения скорости передачи данных V2.5 совпадает с V2
Определить описание слоя
Читай индекс скорости передачи
Используя версию MPEG, описание уровня и индекс скорости передачи данных, определите фактическую скорость передачи данных из таблицы индекса скорости передачи данных в ссылке на связанный заголово
Разделите размер файла в килобитах ((8 * размер в байтах) / 1000) на скорость передачи в битах, чтобы получить длительность в секундах
Я не смог найти образец Delphi, но вот C # реализация который использует эту технику для справочных целей. Смотрите метод getLengthInSeconds.
MP3.
Это огромный взлом, но, похоже, работает.
Райан.
//add MPlayer to the uses clause;
//
//add the MP3PlayLength function to an existing form and
//place a button on the form, linking the button click method to see how it works.
uses MPlayer;
function TForm1.MP3PlayLength(aMP3FileName:string):string;
var
wMP : TMediaPlayer;
wLen : Cardinal;
begin
Try
wMP := TMediaPlayer.Create(self);
try
wMP.Visible := false;
wMP.parent := self;
wMP.FileName := aMP3FileName;
wMP.TimeFormat := tfMilliseconds;
wMP.DeviceType := dtAutoSelect;
wMP.Open;
try
wLen := trunc(wMP.Length / 1000);
result := inttostr(wLen div 60)+':'+inttostr(wLen mod 60);
finally
wMP.Close;
end;
finally
wMP.free;
end;
except
result := '(err)';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
showmessage(MP3PlayLength(OpenDialog1.FileName));
end;