[Delphi] Tag mp3...

0

Jak wyciągnąć z pliku mp3 informacje takie jak "bitrate kb/s" , "częstotliwość próbkowania" i "czas trwania utworu". Jesli chodzi o "wykonawcę" , "tytuł" itp to już wiem. Ale jak wyciągnąć te pozostałe?
Z góry dzięki za pomoc. Pozdrawiam.

0

Znalazłem na www.torry.net dobry(mam nadzeję)komponent do tego
adres to: http://www.torry.net/vcl/mmedia/other/mlmp3info.zip polecam również przejrzeć w torry Components/Effects and Mutlimedia

Dla myślących jest www.id3.org

0

Polecam TMPEGaudio http://jfaul.de/atl korzysta on także z TID3v1 i TID3v2 więc zapewnia przy okazji obsługę tagów. Unit potrfai wyciągać wszelkie info z mp3 :)

0

Polecam TMPEGaudio http://jfaul.de/atl korzysta on także z TID3v1 i TID3v2 więc zapewnia przy okazji obsługę tagów. Unit potrfai wyciągać wszelkie info z mp3 :)

error 400: Bad Request

Die angegebene URL ist syntaktisch nicht korrekt.

:( Sheitar mozesz mi go podeslac??

0

ejo to jest procedurka z mojego programu mi cool działa potem cos przerobisz jak cos :)

masz kodzik:

aha second := label;
i to ci poda czas w sekundach hehe 160s :) musisz to potem podzielic
przez 60 troszke jest roboty !!!!!!!! [cygaro] [cygaro]

procedure podaj_czas;
const
sec:integer=0;
sec_x:integer=0;
begin
with Form1 do begin
second.Caption:=IntToStr(MediaPlayer1.Length);
MediaPlayer1.TimeFormat:=tfMilliseconds;
sec_x:=StrToInt(second.caption);
sec_x:=sec_x div 1000;
second.caption:=IntToStr(sec_x);
sec_Timer.Enabled:=true;
end;
end;

hehehe nie przepisuj tylko przeanalizuj !!!! [browar]

0

Pochwalony!
Aby odczytać tag z pliku to trzeba skorzystać z strumieni. Odczytać 128 bajtów z końca pliku, a następnie to podzielić:

ID: String[3];
Tytuł: String[30];
Artysta: String[30];
Album: String[30];
Rok: String[4];
Komentarz: String[30];
Typ: Byte;

Ten ostatni to będzie jakiś znaczek ASCII, którego numer będzie wskazywała na typ. Typy są w książce Adama Boducha na stronie 156 - "Delphi Konpendium programisty" :P
Tam będziesz miał przykładziki i @LL :):):)

1 użytkowników online, w tym zalogowanych: 0, gości: 1