ID3v2

[nXs]

Добрый день, ув. форумчане. Вот ковыряю теги мр3, взял функцию чтения из всеми известного модуля ID3v2, пользуюсь Delphi XE, возник вопрос, некоторые файлы читаются нормально а некоторые нет, видимо причина в кодировке текста (utf16?), потому что в ListBox получаю крякозябры. Натолкните на мысль как поправить.
Код привожу, на всякий случай:

procedure TForm1.ReadFrames(const FileName: string; var Tag: TID3v2);
var
  SourceFile: file;
  Frame: TFrameHeader;
  Data: array [1..250] of AnsiChar;
  DataPosition: Integer;
begin
  try
    { Set read-access, open file }
    AssignFile(SourceFile, FileName);
    FileMode := 0;
    Reset(SourceFile, 1);
    Seek(SourceFile, 10);
    while (FilePos(SourceFile) < GetTagSize(Tag)) and (not EOF(SourceFile)) do
    begin
      FillChar(Data, SizeOf(Data), 0);
      BlockRead(SourceFile, Frame, 10);
      if not (Frame.ID[1] in ['A'..'Z']) then break;
      DataPosition := FilePos(SourceFile);
      { Read frame data and set tag item if frame supported }
      BlockRead(SourceFile, Data, Swap32(Frame.Size) mod SizeOf(Data));

           if Frame.ID = 'TRCK' then ListBox1.Items.Add('Track Number: '+trim(Utf8ToAnsi(Data)));
           if Frame.ID ='TIT2' then ListBox1.Items.Add('Title: '+trim(Utf8ToAnsi(Data)));
           if Frame.ID ='TALB' then ListBox1.Items.Add('Album: '+trim(Utf8ToAnsi(Data)));
           if Frame.ID ='TCON' then ListBox1.Items.Add('Genre: '+trim(Utf8ToAnsi(Data)));
           if Frame.ID ='TYER' then ListBox1.Items.Add('Year: '+trim(Utf8ToAnsi(Data)));
           if Frame.ID ='COMM' then ListBox1.Items.Add('Comments: '+trim(Utf8ToAnsi(Data)));
           if Frame.ID ='TPE1' then ListBox1.Items.Add('Artist: '+trim(Utf8ToAnsi(Data)));
           if Frame.ID ='APIC' then ListBox1.Items.Add('APIC: '+trim(Utf8ToAnsi(Data)));

      Seek(SourceFile, DataPosition + Swap32(Frame.Size));
    end;
    CloseFile(SourceFile);
  except
  end;
end;

UPD: Другие библиотеки не подходят, т.к. надо под андроид.

[саша40]

Крякозябры получаешь потому что Юникод. С ходу могу ответить, что надо переводить в Ansi эти строки. Всё в твоем случае зависит от формата файла.

[ZuBy]

Там в ATL есть своя функция перекодирования из юникода, ей переведи и будет тебе счастье!

[nXs]

Нашел я эту функцию, но по ходу чего то не так пилю, если переменную Data: array [1..500] of Char; оставить так как есть получаю полную чушь, если заменить на Data: array [1..500] of AnsiChar; - получаю почти правду (т.е. правду вперемешку с мусором).

[ZuBy]

Там в этой функции я что то менял, не помню правда точно. Там есть посимвольное считывание, начинает считывать с единицы, а я ставил 2. Попробуй!

Ты для андроида делаешь? В курсе что он незнает что такое Ansi?

[nXs]

Поправил функцию, работает (на компе), спасибо. Об Анси на андроиде не знал...