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

Вниз

ID3 теги и кодировка   Найти похожие ветки 

 
Alexey   (2010-01-22 21:21) [0]

Добрый вечер!

При извлечении ID3 тегов из mp3 файла возникает проблема - в некоторых файлах они читаемы, как русские, так и латинские, а в некоторых кракозяблы. Подскажите, пожалуйста, путь решения.


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

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);
     Title := 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;



Заранее спасибо!


 
TIF ©   (2010-01-23 01:35) [1]

Я предположу, что в тех некоторых файлах используется формат ID3 версии 2
http://ru.wikipedia.org/wiki/ID3_(метаданные)#ID3v2


 
Alexey   (2010-01-24 10:31) [2]

И что, реально никто не знает?!


 
sniknik ©   (2010-01-24 10:47) [3]

и что реально читать не умеешь?

дали же ссылку, дочитать до строки  
Он утверждал, что все строки должны храниться в ISO 8859-1, но на практике пользователи часто используют национальную кодировку, поэтому нередко им приходилось видеть «кракозябры».


 
sniknik ©   (2010-01-24 10:50) [4]

кстати, судя по отсутствию перекодировки ты именно такой пользователь...


 
Anatoly Podgoretsky ©   (2010-01-24 12:19) [5]


> Я предположу, что в тех некоторых файлах используется формат
> ID3 версии 2

Ты наконец сообщишь, какой у тебя формат

> Я предположу, что в тех некоторых файлах используется формат
> ID3 версии 2


 
KilkennyCat ©   (2010-01-24 12:52) [6]


> Alexey   (24.01.10 10:31) [2]
>
> И что, реально никто не знает?!

Откуда такой вывод? Будь скромнее.
Я, например, знаю. И многие знают. Но ни я, ни они не обязаны тебе рассказывать.
Что значит "реально"?


 
Anatoly Podgoretsky ©   (2010-01-24 13:32) [7]

> KilkennyCat  (24.01.2010 12:52:06)  [6]

> Что значит "реально"?

Я знаю и могу рассказать, это когда знают но реально говорить не хотят.


 
Alexey   (2010-01-24 23:46) [8]

Удалено модератором



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

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

Наверх




Память: 0.48 MB
Время: 0.015 c
15-1263074944
Илья_
2010-01-10 01:09
2010.03.28
Игра FIFA 2010 по сети


3-1237158348
istok
2009-03-16 02:05
2010.03.28
TdxMemData...


2-1264024785
novichek
2010-01-21 00:59
2010.03.28
Dword в Record


1-1246429266
Василий Иванов_22
2009-07-01 10:21
2010.03.28
меню в ресурсе


2-1264114096
Евгений Р.
2010-01-22 01:48
2010.03.28
Как изменить свойство Required поля Access