Can anyone help me write a function that will WRITE TAGS to an OGG FILE
HEADER?
heres a function i found and modded that will read an OGG TAG. But this
somehow needs reversing.
if anyone can help re-write this function so it writes to the tag then im
happy.
thnks
rnd
'---------------------------------------------------------------------------
-
Public Type VorbisTag
Title As String
Artist As String
Album As String
Genre As String
Date As String
Comment As String
TrackNumber As Integer
EncodedUsing As String
error As String
End Type
'---------------------------------------------------------------------------
-
Public Function GetOGGtag(Filename, OggTag As VorbisTag) As Boolean
Dim phase As Integer
Dim filelength As Long
Dim fileremaining As Long
Dim fileopened As Long
Dim FileHandle As Integer
Dim errmsg As String
Dim tmp As Integer
Dim tmp4 As Integer
Dim tmp2 As Integer
Dim tmp3 As Integer
Dim foundatag As Boolean
Dim s$
GetOGGtag = False
OggTag.Album = ""
OggTag.Artist = ""
OggTag.Comment = ""
OggTag.Date = ""
OggTag.EncodedUsing = ""
OggTag.error = ""
OggTag.Genre = ""
OggTag.TrackNumber = 0
OggTag.Title = ""
foundatag = False
s$ = Space$(2048)
'Phase is used so the error handler knows
'what we are up to
On Error GoTo Errhandler
phase = 1
'Phase 1: We're trying to open the file.
filelength = FileLen(Filename)
fileremaining = filelength
FileHandle = FreeFile()
Open Filename For Binary Access Read As FileHandle
'Phase 2: File open.. so it exists..
phase = 2
Do
Get FileHandle, , s$
fileopened = fileopened + Len(s$)
fileremaining = fileremaining - Len(s$)
If fileremaining < 2048 Then
s$ = Space$(fileremaining)
End If
tmp = InStr(1, s$, "vorbis ")
tmp2 = InStr(1, s$, "vorbis ")
If tmp <> 0 Then
If tmp2 < tmp Then
If tmp2 <> 0 Then
tmp = tmp2
End If
End If
Else
If tmp2 <> 0 Then
tmp = tmp2
End If
End If
If tmp <> 0 Then Exit Do
If fileremaining = 0 Then Exit Do
Loop
If tmp = 0 Then phase = 3: GoTo Errhandler
'Ok, we've found the vorbis header.
'Let's get a big chunk of data
Get FileHandle, tmp, s$
'Ok, we've got 2kb of data after the header
'lets find the header close
Close #FileHandle
tmp = InStr(7, s$, "vorbis")
If tmp = 0 Then phase = 4: GoTo Errhandler
'now we can get the required info
tmp = InStr(1, s$, "TITLE=")
If tmp <> 0 Then
foundatag = True
tmp2 = InStr(tmp, s$, Chr$(0) + Chr$(0) + Chr$(0))
tmp3 = InStr(tmp, s$, Chr$(1) + Chr$(5) + "vorbis")
If tmp3 < tmp2 Then tmp2 = tmp3 + 1
tmp2 = tmp2 - 1
OggTag.Title = Mid$(s$, tmp + 6, tmp2 - (tmp + 6))
End If
tmp = InStr(1, s$, "ARTIST=")
If tmp <> 0 Then
foundatag = True
tmp2 = InStr(tmp, s$, Chr$(0) + Chr$(0) + Chr$(0))
tmp3 = InStr(tmp, s$, Chr$(1) + Chr$(5) + "vorbis")
If tmp3 < tmp2 Then tmp2 = tmp3 + 1
tmp2 = tmp2 - 1
OggTag.Artist = Mid$(s$, tmp + 7, tmp2 - (tmp + 7))
End If
tmp = InStr(1, s$, "COMMENT=")
If tmp <> 0 Then
foundatag = True
tmp2 = InStr(tmp, s$, Chr$(0) + Chr$(0) + Chr$(0))
tmp3 = InStr(tmp, s$, Chr$(1) + Chr$(5) + "vorbis")
If tmp3 < tmp2 Then tmp2 = tmp3 + 1
tmp2 = tmp2 - 1
OggTag.Comment = Mid$(s$, tmp + 8, tmp2 - (tmp + 8))
End If
tmp = InStr(1, s$, "ALBUM=")
If tmp <> 0 Then
foundatag = True
tmp2 = InStr(tmp, s$, Chr$(0) + Chr$(0) + Chr$(0))
tmp3 = InStr(tmp, s$, Chr$(1) + Chr$(5) + "vorbis")
If tmp3 < tmp2 Then tmp2 = tmp3 + 1
tmp2 = tmp2 - 1
OggTag.Album = Mid$(s$, tmp + 6, tmp2 - (tmp + 6))
End If
tmp = InStr(1, s$, "DATE=")
If tmp <> 0 Then
foundatag = True
tmp2 = InStr(tmp, s$, Chr$(0) + Chr$(0) + Chr$(0))
tmp3 = InStr(tmp, s$, Chr$(1) + Chr$(5) + "vorbis")
If tmp3 < tmp2 Then tmp2 = tmp3 + 1
tmp2 = tmp2 - 1
OggTag.Date = Mid$(s$, tmp + 5, tmp2 - (tmp + 5))
End If
tmp = InStr(1, s$, "TRACKNUMBER=")
If tmp <> 0 Then
foundatag = True
tmp2 = InStr(tmp, s$, Chr$(0) + Chr$(0) + Chr$(0))
tmp3 = InStr(tmp, s$, Chr$(1) + Chr$(5) + "vorbis")
If tmp3 < tmp2 Then tmp2 = tmp3 + 1
tmp2 = tmp2 - 1
OggTag.TrackNumber = Val(Mid$(s$, tmp + 12, tmp2 - (tmp + 12)))
End If
tmp = InStr(1, s$, "GENRE=")
If tmp <> 0 Then
foundatag = True
tmp2 = InStr(tmp, s$, Chr$(0) + Chr$(0) + Chr$(0))
tmp3 = InStr(tmp, s$, Chr$(1) + Chr$(5) + "vorbis")
If tmp3 < tmp2 Then tmp2 = tmp3 + 1
tmp2 = tmp2 - 1
OggTag.Genre = Mid$(s$, tmp + 6, tmp2 - (tmp + 6))
End If
tmp = InStr(1, s$, "ENCODED_USING=")
If tmp <> 0 Then
foundatag = True
tmp2 = InStr(tmp, s$, Chr$(0) + Chr$(0) + Chr$(0))
tmp3 = InStr(tmp, s$, Chr$(1) + Chr$(5) + "vorbis")
If tmp3 < tmp2 Then tmp2 = tmp3 + 1
tmp2 = tmp2 - 1
OggTag.EncodedUsing = Mid$(s$, tmp + 14, tmp2 - (tmp + 14))
End If
If foundatag = False Then phase = 5: GoTo Errhandler
GetOGGtag = True
Exit Function
Errhandler:
Close #FileHandle
If phase = 1 Then errmsg = "Error opening file! "
If phase = 2 Then errmsg = "Error processing file."
If phase = 3 Then errmsg = "Vorbis header not found!"
If phase = 4 Then errmsg = "Vorbis header not closed!"
If phase = 5 Then errmsg = "No tag information exists!"
OggTag.error = errmsg
GetOGGtag = False
End Function
'---------------------------------------------------------------------------
-
'// =======================================================
Rules : http://ReliableAnswers.com/List/Rules.asp
Home : http://groups.yahoo.com/group/vbHelp/
=======================================================
Post : [email protected]
Join : [EMAIL PROTECTED]
Leave : [EMAIL PROTECTED]
'// =======================================================
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/vbhelp/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
