Удаление тэгов (*.mp3 files)

[Janger]

В общем проблема, код никак не хочет работать...

function DeleteMp3Tag(FileName: string): boolean;
var
  F: file;
begin
  Result := false;
  try
    FileSetAttr(filename, 0);
    AssignFile(F, filename);
    Reset(F, 1);
    Seek(F, FileSize(F) - 128);
    Truncate(F);
    CloseFile(F);
    Result := true;
  except
    Result := false;
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  IF OpenDialog1.Execute then
  if DeleteMp3Tag(OpenDialog1.FileName)=True then
    ShowMessage('Инфа удалена')
  else
    ShowMessage('Инфа осталась');
end;

Программа выдаёт 'Инфа удалена', но ничего не удаляет... Что я не так делаю... подскажите...

[Человек_Борща]

такимметодом только файлы портить
В заголовках MP3 много нужной техн. инфы лежит.

[ZuBy]

а ты в курсе что бывают ID3V1, ID3v2...

[Janger]

Сообщение от ZuBy

а ты в курсе что бывают ID3V1, ID3v2...

нет, не в курсе...
я думал это немного проще будет
p.s. конечно я слышал об этом....

[ZuBy]

если бы ты слышал о этих стандартах, этот код тут бы не красовался и кода было бы в разы больше

[Человек_Борща]

я думал это немного проще будет

Нет, не будет. Ты вырезаешь то, не зная что. Там кроме инфы о треке ещё куча другой информации записано.

Ищите библиотеки для чтения/записи ID3 тегов.

[Stilet]

Janger

Э-э-э-э... Я ошибаюсь или в твоей предидущей теме тебе дали ссыль на описание ID3?

[Janger]

Сообщение от Stilet

Э-э-э-э... Я ошибаюсь или в твоей предидущей теме тебе дали ссыль на описание ID3?

Ой, слушай, я не заметил...
Спасибо, но я ту ссылку уже видел, и прочесть информацию из файла могу, а вот как её удалить, не знаю...

[Stilet]

а вот как её удалить, не знаю...

Насколько я понимаю нужно не удалять. Просто забить пробелами определенные поля. Удалять ничего не надо.

[Janger]

Сообщение от Stilet

Насколько я понимаю нужно не удалять. Просто забить пробелами определенные поля. Удалять ничего не надо.

Ну сути это не меняет, как заменить информацию?