PureBoard

Verfasst: **23.12.2006 07:03**

Hallo Leutz...

Ich suche eine Möglichkeit, einen mp3-tag V1 und V2 zu schreiben.
Ich habe hier schon diverse Hilfen gefunden, was das auslesen
der tags angeht - nur leider noch nichts, zu schreiben der tags.

kann mir da jemand mit nem codeschnipsel, link o.ä. aushelfen?!

Thx... Steff

Verfasst: **23.12.2006 17:34**

ich kann dir erstmal mit V1 helfen:

Code: Alles auswählen



openfile(0,"mp3.mp2")
    
  
  
  
  MemPointer=AllocateMemory(128)
  MP=AllocateMemory(125)
  If MemPointer ; 128 byte reservieren 
    
    FileSeek(Lof()-128) 
    ReadData(MemPointer, 128) ; die letzten 128 byte der Datei auslesen 
    
    header$    = PeekS(MemPointer, 3) 
    ;;debug header
    
    
    If header$ <> "TAG":FileSeek(Lof()):Else:FileSeek(Lof()-128) :EndIf                               ;  3 Zeichen 
      WriteString("TAG")
      PokeS(MP,tagTitel,30):MP+30
      PokeS(MP,TagInterpret,30):MP+30
      PokeS(MP,tagAlbum,30):MP+30
      PokeS(MP,TagDatum,4):MP+4
      PokeS(MP,TagText,28):MP+28
      PokeB(MP,TagMood):MP+1
      PokeB(MP,TagTrack):MP+1
      PokeB(MP,TagGenreNum & $FF):MP+1
      WriteData(MP-125,125)
          FreeMemory(MemPointer)
      FreeMemory(MP-125)   ;Nicht irritieren... siehe ein paar zeilen höher
  EndIf 
  


closefile(0)

is aus meinem selbstgemachten player, funktioniert bestens!

Verfasst: **23.12.2006 19:38**

Super, danke Dir...

Funktioniert ja schonmal ganz gut, hab noch ein paar kleine Änderungen
gemacht, um es meinem Proggi anzupassen. Ich bastel gerade an einem
kleinen Tool, welches mir die Tags automatisch aus den Dateinamen
generiert und zurückschreibt.
Es gibt da zwar schon div. Tools, aber ich brauche mal wieder was, was
ein bischen speziell ist *g* und außerdem fordert es mich heraus

Thx und schöne Feiertage...

PureBoard

Das ewige MP3-Tag Problem...

Das ewige MP3-Tag Problem...