Длительность mp3 файла
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
Здраствуйте. Подскажите как узнать длительность в секундах звукового файла?
Насколько помню у мп3 заголовочная информация храниться в последних 128 байтах, соответственно размер данных size-128
Дальше попробуй вот с этим повозиться..
[syntax=Delphi]
function Mus2Str(n: longint): string;
var
s: string;
sec: longint;
min: longint;
begin
sec:=trunc(n/1000);
min:=trunc(sec/60);
sec:=sec-min*60;
if min<10 then s:='0'+inttostr(min) else s:=inttostr(min);
if sec<10 then s:=s+':0'+inttostr(sec)
else s:=s+':'+ inttostr(sec);
Result:=s;
end;
[/syntax]
Дальше попробуй вот с этим повозиться..
[syntax=Delphi]
function Mus2Str(n: longint): string;
var
s: string;
sec: longint;
min: longint;
begin
sec:=trunc(n/1000);
min:=trunc(sec/60);
sec:=sec-min*60;
if min<10 then s:='0'+inttostr(min) else s:=inttostr(min);
if sec<10 then s:=s+':0'+inttostr(sec)
else s:=s+':'+ inttostr(sec);
Result:=s;
end;
[/syntax]
[syntax=Delphi] [/syntax]