Ich wollte doch erst was ausprobieren.
Wenn ich das richtig verstehe, möchtest du dummy-Dateien erstellen, die nur den ID3-Tag enthalten, damit das Aufnahme-Programm diese Stücke nicht mehr aufnimmt? Ja, das geht mit MP3FileUtils, in etwa so:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| var id3v2Tag: TID3v2Tag;
fs: TFileStream;
begin
id3v2Tag := TID3v2Tag.Create;
id3v2Tag.ReadFromFile(MyMp3Filename);
fs := TFileStream.Create(MyDummyFilename, fmCreate);
id3v2Tag.WriteToStream(fs);
id3v2Tag.Free;
fs.Free;
end; |
Die WriteToFile-Methode schreibt nur in existierende Dateien, daher über der Umweg über den Stream. Allerdings ist das Ergebnis kein gültiges mp3-File, da es keinerlei Audiodaten enthält. Ob das Programm das merkt, weiß ich nicht, ggf. müsste man da dann ein paar Dummy-Audiodaten dranhängen. Ebenso könnte man den ID3-Tag in der Version 1 noch einfügen.
Gausi
