Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.16;
Скачать: CL | DM;

Вниз

Как узнать качеество mp3 файла?   Найти похожие ветки 

 
Polard.   (2002-02-19 16:47) [0]

Добрый день!

Хотелось бы узнать как вытащить из mp3 файла BitRate (128kb, 192...)

Заранее благодарен.


 
VuDZ   (2002-02-19 20:56) [1]

проблема в том, что битрейт может быть переменным, а вообще - поищи доку по этому формату


 
[NIKEL]   (2002-02-20 11:04) [2]

попробуй этот код...

{
Byte 1-3 = ID "TAG"
Byte 4-33 = Titel / Title
Byte 34-63 = Artist
Byte 64-93 = Album
Byte 94-97 = Jahr / Year
Byte 98-127 = Kommentar / Comment
Byte 128 = Genre
}


type
TID3Tag = record
ID: string[3];
Titel: string[30];
Artist: string[30];
Album: string[30];
Year: string[4];
Comment: string[30];
Genre: Byte;
end;


var
Form1: TForm1;

implementation

{$R *.dfm}

function readID3Tag(FileName: string): TID3Tag;
var
FS: TFileStream;
Buffer: array [1..128] of Char;
begin
FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
FS.Seek(-128, soFromEnd);
FS.Read(Buffer, 128);
with Result do
begin
ID := Copy(Buffer, 1, 3);
Titel := Copy(Buffer, 4, 30);
Artist := Copy(Buffer, 34, 30);
Album := Copy(Buffer, 64, 30);
Year := Copy(Buffer, 94, 4);
Comment := Copy(Buffer, 98, 30);
Genre := Ord(Buffer[128]);
end;
finally
FS.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
with readID3Tag(OpenDialog1.FileName) do
begin
label1.Caption := ID;
Label2.Caption := Titel;
Label3.Caption := Artist;
Label4.Caption := Album;
Label5.Caption := Year;
Label6.Caption := Comment;
Label7.Caption := IntToStr(Genre);
end;
end;
end;




Страницы: 1 вся ветка

Текущий архив: 2002.05.16;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.005 c
1-49908
_aero_
2002-05-02 15:51
2002.05.16
MeasureItem


1-49982
Daiz13
2002-04-30 09:23
2002.05.16
Подскажите компонент для графика


3-49842
AFROLOV
2002-04-17 17:03
2002.05.16
Как отработать ситуацию, когда пользователь нажал отмена


4-50178
alexproger
2002-03-03 01:21
2002.05.16
Как узнать количество страниц, печатаемых на принтере


1-50034
MadMan
2002-05-01 22:03
2002.05.16
Вывод на печать





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский