title image


Smiley ID3-Tag, so geht's ...
Hier ist eine kleine Demo, das Programm ist recht einfach und daher ohne Erklärungen.....Type    // ID3-TAG sind die letzten 128 Bytes der Datei und so aufgeteilt:    // Byte 1-3 = Kennung 'TAG'    // Byte 4-33 = Titel    // Byte 34-63 = Artist    // Byte 64-93 = Album    // Byte 94-97 = Jahr    // Byte 98-127 = Kommentar    // Byte 128 = Genre    TID3Tag = record        ID:string[3];        Titel:string[30];        Artist:string[30];        Album:string[30];        Jahr:string[4];        Comment:string[30];        Genre:byte;    end;var ID3Tag:TID3Tag;procedure Lese_ID3Tag(Filename:string);var    Buffer:array[1..128] of char;    F:File;begin    try        AssignFile(F, Filename);        Reset(F,1);        Seek(F,FileSize(F)-128);        BlockRead(F, Buffer, SizeOf(Buffer));    finally        CloseFile(F);    end;    with ID3Tag do begin        ID:=copy(Buffer,1,3);        Titel:=copy(Buffer,4,30);        Artist:=copy(Buffer,34,30);        Album:=copy(Buffer,64,30);        Jahr:=copy(Buffer,94,4);        Comment:=copy(Buffer,98,30);        Genre:=ord(Buffer[128]);    end;end;procedure TForm1.FormCreate(Sender: TObject);begin    Lese_ID3Tag('c:\tmp\mp3.mp3');    with ID3Tag do begin        Label1.Caption:=ID;        Label2.Caption:=Titel;        Label3.Caption:=Artist;        Label4.Caption:=Album;        Label5.Caption:=Jahr;        Label6.Caption:=Comment;        Label7.Caption:=inttostr(Genre);    end;end;
Beste Grüsse von Coyote !

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: