Taglib своими руками

//прототипы функций
int BinToDec(AnsiString s,int size);
AnsiString DecToBin(int i,int size);
int Tagid3(String n);
String Del(String v, String *s);
void Rasteg(AnsiString *s);
String Unistr(String *s, int len);
 
char rd = '$'; //спец символ
 
//Структуры
struct
{
  char ID[3];
  char ver[2] ;
  char flag[1];
  char size[4];
  void setvf()
    {
        iver = static_cast<int>(*ver);
        iflag = static_cast<int>(*flag);
        sID = String(ID);
        sID.Delete(4,1);
    }
  int getv()
    {
        return iver;
    }
  int getf()
    {
        return iflag;
    }
  String geti()
    {
        return sID;
    }
  private:
  int iver;
  int iflag;
  String sID;
}TAGid3;
//=====================================
struct   //задаем какие фреймы нам нужны
{
    String titl;
    String artist;
    String year;
    String genre;
}Id3;
//=======================================
 
struct Tfreime
{
    String teg;
    String nameteg;
    String name;
    int namber;
};
//===========================
void tegfreim(Tfreime  *fr);
 
AnsiString DecToBin(int dec,int size)
 {
  int  bin=0, j;
      for(j=0; dec>0; j++)
    {
        bin+=(dec%2)*pow(10.0,j);
        dec/=2;
    }
       AnsiString bi = IntToStr(bin);
       int l = 8 - bi.Length();
       AnsiString tem = "0";
       for(int i = 1; i < l; i++)
         {
            tem += "0";
         }
       bi = tem + bi;
       bi.Delete(1,1);
   return bi;
 }
//-------------------------------------------------------
int BinToDec(AnsiString bin,int n)
 {
   int  sum=0 , i; // n - количество бит, sum это наше дес¤тичное число которое получится из двоичного
      n = bin.Length();
      // char ch[]="00001111";//  это наше двоичное число. число символов рано n из предыдущей строки
      // будете мен¤ть двоичное число, мен¤йте и n
     if(bin.Length() > 8)
      for (i=n-1;i>-1;i--)//    пошли по строке бит
           if (bin[i+1]=='1')
               sum+=pow(2.0,n-(i+1));// то прибавить к общей сумме 2 в степени i
   return sum;
 
 }
//-----------------------------------------------------------------
int Tagid3(String n)//читаем id3
{
unsigned int g1;
bool ret;
int Handle = FileOpen(n, fmOpenRead);
if(Handle != -1)
    {
      if(FileSeek(Handle, 0, 0) != -1)
        {
          if(FileRead(Handle, (void *)&TAGid3, 10) == -1) //читаем заголовок
            {
            return 0;
            }
        }
    }
else return 0;
String id = TAGid3.ID;
id = id.SubString(1,3);
if(id == "ID3" )
  {
 
    TAGid3.setvf();
    AnsiString sm[4] ;
    AnsiString sum ;
    for(int i = 0; i < 4; i++)//высчитываем размер тега
      {
        int si = (int)TAGid3.size[i];
        sm[i] = DecToBin(si,8) ;
        String d = sm[i];
        sum += sm[i];
      }
    g1 = BinToDec(sum,sum.Length()) ;
    if(FileSeek(Handle, 10, 0) != -1)
        {
           char ss[255];
           char *Pss = ss;
           for(unsigned int i = 0; i < g1 ; i++)
            {
               if(FileRead(Handle, Pss, 1) != -1)//считываем тег в одну строку
                  {
                  if(*Pss == '\0') *Pss = rd; //замен¤ем нули на спец символ
                    {
                     Pss++;
                    }
                  }
            }
           AnsiString r;
           r.printf("%s",ss);
           //разбираем по фреймам
           Rasteg(&r);
        }
  }
else return 0;
FileClose(Handle);
return g1;
}
//---------------------------------------------------------------
//вспомогательная функция
String Del(String v, String *s)//функция принимает значение удаленного куска
  {                             //v разделитель   s1 строка
  String s2;
  int st  = s->Pos(v);
   if(st)
        {
        s2 = s->SubString(1,st-1); //присваеваем переменной - это будет номер детали
        s->Delete(1,s->SubString(1,st-1).Length()+v.Length());//удал¤ем прочитанный кусок
        }
   else return "0";
   return s2;
  }
//--------------------------------------------------------------
void Rasteg(AnsiString *s)
{
int *tn;
Tfreime *freim;
TStringList *tegs = new TStringList;
tegs->LoadFromFile("tags.txt");//создаем список заголовков фреймов
int t = tegs->Count;
freim = new Tfreime[t];
tn = new int[t+1];
for(int i = 0; i < tegs->Count; i++)
  {
    //ищем заголовки фреймов
    String u, tt =  tegs->Strings[i];
    u = Del(" ",&tt);
    freim[i].teg = u;
    freim[i].nameteg = tt;
    int g = s->Pos(u);
    freim[i].namber = g;
    tn[i] = g ;
 
  }
tn[t] = s->Length()+1 ;
int temp; // временна¤ переменна¤ дл¤ обмена элементов местами
// —ортировка массива пузырьком
for (int i = 0; i < t - 1; i++)
  {
     for (int j = 0; j < t - i - 1; j++)
        {
           if (tn[j] > tn[j + 1])
              {
               // мен¤ем элементы местами
               temp = tn[j];
               tn[j] = tn[j + 1];
               tn[j + 1] = temp;
              }
        }
  }
//раздел¤ем тег на фреймы
for(int i2 = 0; i2 < t;i2++)
    {
      if(tn[i2] > 0)
        {
        String f = s->SubString(tn[i2],tn[i2+1]-tn[i2]);
        String ff;
        for(int i = 0; i < t; i++)
           {
               if(freim[i].namber == tn[i2])
                 {
                   int len;
                   if(f.Length() > 8)
                      len = f[8];
                   else continue;
                  int poz = f.Pos("¤ю");
                  if(poz)
                    {
                      //это юникод
                     f.Delete(1,10);
                     ff = Unistr(&f, len);
                    }
                  else
                    {
                        ff = f.SubString(11,len);
                        if(ff.Length())
                        //удал¤ем первый ненужный символ, если он есть
                        if(ff[1] ==rd || ff[1] == 3)
                           {
                              ff.Delete(1,1);
                              ff.Insert(" ",1);
                           }
                    }
                  freim[i].name = ff.Trim();
                 }
           }
        }
    }
tegfreim(freim);
delete  tegs;
delete []freim;
}
//---------------------------------------------------------
void tegfreim(Tfreime  *fr)
{ //присваиваем фреймы
Id3.titl= fr[2].name;
Id3.artist= fr[3].name;
Id3.year= fr[6].name;
Id3.genre= fr[5].name;
}
//---------------------------------------------------------------------------
String Unistr(String *s, int len)
{
//возвращает строку анси
int  l; //
AnsiString result = "";
String g = s->SubString(4,len);
int f, d;
l =g.Length();
for(int i = 1; i < l; i++)
  {
    if(g[i+1] == rd)//латинские буквы
      {
        if(g[i] != rd)
          result += char(g[i]);
          i++;
          continue;
      }
    if(g[i+1] == 4) //русские буквы
      {
        if(g[i] != 4)
          result +=  char(int(g[i]) - 80);
        i++;
      }
  }
return result;
}
//---------------------------------------------------------------------------

String Name = "Ваш файл";
int r = Tagid3(Name);
    if(r )
      {
        //Memo1->Lines->Add("количество байт: " + IntToStr(r));
        Memo1->Lines->Add(TAGid3.geti() + "." + TAGid3.getv() + "." + TAGid3.getf());
        Memo1->Lines->Add("Название: " + Id3.titl);
        Memo1->Lines->Add("Исполнитель: " + Id3.artist);
        Memo1->Lines->Add("Год: " + Id3.year);
        Memo1->Lines->Add("Жанр: " + Id3.genre);
        Memo1->Lines->Add(" ");
      }