title image


Smiley so geht's
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    AssignFile(F, Filename);    Reset(F,1);    Seek(F,FileSize(F)-128);    BlockRead(F, Buffer, SizeOf(Buffer));    CloseFile(F);    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;
Beste Grüsse von Coyote !

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: