Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.755 Beiträge
 
Delphi 10.4 Sydney
 
#8

Re: Lauftext arbeitet nicht korrekt

  Alt 24. Jul 2006, 19:16
...kann es sein, das die mp3 verschiede Versionen des ID3 Tags
haben? Es gibt Unterschiede zwischen ID3TagV2 und ID3TagV3.2
Vgl. hier: http://de.wikipedia.org/wiki/ID3-Tag

lbList.Items.Add(trim(fFiles[i].Artist) + ' - ' + trim(fFiles[i].Titel))

Wie schauen denn die Variablen ....Artist und ...Titel aus wenn Du sie Dir mit
Ctrl-F5 anschaust?

Kannst Du die ReadId3Tag Funktion auch noch einstellen?

Aus einem Projekt von mir lese ich die ID3Tags so ein:

Delphi-Quellcode:
procedure FillID3TagInformation(mp3File:string;VAR ID3:TID3Rec);
var //fMP3: file of Byte;
    id3v2Tag : TID3v2;
begin

  id3v2Tag := TID3v2.Create;

  if id3v2tag.ReadFromFile(mp3File) then
    begin
      id3.Title:='';
      id3.Artist:='';
      id3.Album:='';

      id3.title:=id3v2tag.Title;
      id3.artist:=id3v2tag.artist;
      id3.album:=id3v2tag.album;

      if id3.artist = 'then
        id3.artist := 'no artist';
      if id3.Album = 'then
        id3.Album:= 'no album';
      if id3.Title = 'then
        id3.Title := 'no title';
    end;

  id3v2Tag.Free;

end;
Die angehängte Unit wird dazu benötigt.


Grüße
Klaus
Angehängte Dateien
Dateityp: pas id3v2_170.pas (15,0 KB, 3x aufgerufen)
Klaus
  Mit Zitat antworten Zitat