[VB6] tag file mp3

[MissRachele]

ciao raga!

come si fa in vb6 a cambiare i tag dei file mp3 (tipo autore, titolo, ecc...)?

grassssie

[PirataLith]

Apri il file in modalitù binary e modifichi gli ultimi 255 caratteri, che dopo la dicitura ID3, compongono il tag omonimo (versione 1.1) che contiene autore, titolo, genere e altre info sulla song.

ti rimando al sito http://www.id3.org per informazioni specifiche sul tag, e sulla versione nuova, la 2, che è presente all'inizio invece che alla fine del file. Solo che è più complesso!

Auguri!

[edit] Mi correggo, sono 128 i byte e non 255.
Comunque puoi crearti una variabile personalizzata con una type e leggere gli ultimi byte, modificarli, e riscriverli [/edit]

[MissRachele]

:master: come faccio a sapere se una mia canzone.mp3 ha la prima o la seconda versione del id3?

[Alethesnake]

Originariamente inviato da MissRachele
:master: come faccio a sapere se una mia canzone.mp3 ha la prima o la seconda versione del id3?

Prova a dare un'occhiata qui , qualcosa dovresti trovare.. al limite fatti un giro nel loro con il loro motore di ricerca.

[OT] missRachele.. questo nome non mi è nuovo.. non è che per caso sei di sarbia? :gren: [/OT]

[yyzyyz]

ho trovato questo, funziona benissimo x i tag1

Private Type Mp3Tag
    Title As String * 30
    Artist As String * 30
    Album As String * 30
    Year As String * 4
    Comment As String * 30
End Type
Private Sub Form_Load()
    Dim TagInfo As Mp3Tag
    Dim FileNum As Integer
    Dim Tag As String * 3
    FileNum = FreeFile
    Open "c:\Demo.mp3" For Binary As FileNum
    Seek #FileNum, LOF(FileNum) - 127
    Get #FileNum, , Tag
    If Tag = "TAG" Then
        Get #FileNum, , TagInfo.Title
        Get #FileNum, , TagInfo.Artist
        Get #FileNum, , TagInfo.Album
        Get #FileNum, , TagInfo.Year
        Get #FileNum, , TagInfo.Comment
    End If
    Close #FileNum
    Text1.Text = Trim(TagInfo.Title)
    Text2.Text = Trim(TagInfo.Artist)
    Text3.Text = Trim(TagInfo.Album)
    Text4.Text = Trim(TagInfo.Year)
    Text5.Text = Trim(TagInfo.Comment)
End Sub

[MissRachele]

[OT] sarbia è ovunque essere di sarbia è un concetto troppo vago ed estendibile per poter dire sei di sarbia! solo alcuni sono eletti che sanno, sono e possono rispondere si a quella domanda![/OT] :di56:

[wallrider]

ho trovato questo che ha fatto un'OCX per leggere i dati di un mp3, casomai mandi una mail a lui

[wallrider]

Originariamente inviato da wallrider
ho trovato questo che ha fatto un'OCX per leggere i dati di un mp3, casomai mandi una mail a lui

a dire il vero è una dll ma non riesco ad usarla

[wallrider]

Private Type Mp3Tag
    Title As String * 30
    ...

Cosa significa il " * 30 "?

    Open "c:\Demo.mp3" For Binary As FileNum

e che differenza c'è tra aprire "for Binary" e aprire "for Input"?

    Seek #FileNum, LOF(FileNum) - 127

Con questa istruzione ti porti a 128 bytes dalla fine del file?
:master: :master: :master: :master: :master:

[PirataLith]

Originariamente inviato da wallrider

Private Type Mp3Tag
    Title As String * 30
    ...

Cosa significa il " * 30 "?

    Open "c:\Demo.mp3" For Binary As FileNum

e che differenza c'è tra aprire "for Binary" e aprire "for Input"?

    Seek #FileNum, LOF(FileNum) - 127

Con questa istruzione ti porti a 128 bytes dalla fine del file?
:master: :master: :master: :master: :master:

Allora il * 30 significa una stringa di lunghezza fissa a 30 caratteri

Per fare ciò, devi aprire il file in modo Binary se no lo prende come testo, e non come caratteri binari.

Si, con quella istruzione ti ritrovi a -128 byte dalla fine del file

Il tag Id3v2 si trova, invece, all'inizio del file... e la versione Id3v1.1 si trova alla fine, preceduto dai caratteri "ID3" (che fantasia