Ученик-кочегар
Группа: Участник
Сообщений: 4
|
Долго искал информацию, как получить из файла mp3 теги. Нашёл какой-то пример, взял из него нужный код (максимально упростив, просто, чтобы разобраться как всё работает), смог получить заголовок, исполнителя, альбом, год и комментарий, но не могу найти жанр.
Вот код
| CODE |
void __fastcall TForm1::FormCreate(TObject *Sender)
{
const int BUFS=200;
char buf[BUFS];
AnsiString sFN;
AnsiString currDir = "C:\\";
if(currDir[currDir.Length()] != '\\') currDir += "\\";
// Application->ProcessMessages();
sFN=(currDir + "1.mp3");
int ih = FileOpen(sFN,fmOpenRead);
FileSeek(ih,-128,2);
for(int i=0; i<BUFS; i++) buf[i]=0;
FileRead(ih,buf,BUFS-1);
FileClose(ih);
AnsiString sbuf = buf;
AnsiString tit;
tit = delSPACE(sbuf.SubString(1,200));
Label1->Caption=tit;
}
|
И ещё не понял, какую функцию выполняет строка
Application->ProcessMessages();
т. к. без неё всё работает точно так же. |
