Das ewige MP3-Tag Problem...

[Ghosty1967]

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

[DarkSoul]

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!

[Ghosty1967]

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...