Cant open mp3 as binary?

[deoblo1]

I can not open an mp3 as binary. I did this


Dim LocData() As Byte
Dim LenData As Long
Dim sendloop As Long
Dim path As String
path = "d:\program files\napster\music\Hows it gonna be.mp3"
Open path For Binary As #1

ReDim LocData(1 To 2048) As Byte ' Work in 2kb chunks

LenData = LOF(1) ' Get length of file

For sendloop = 1 To LenData \ 2048 ' Go through file

Get #1, , LocData 'Get data from the file nCnt is from where to start the get

Form1.Winsock1(index).SendData LocData 'Send the chunk

Next


but it wont do it, it is saying when i get the the lenData, it is saying it is 0. Any sudgestions?

[HarryW]

Well you have spaces in the file name, and that's not healthy :)

Try putting the string in quotes, Windows likes it better that way:


Dim LocData() As Byte
Dim LenData As Long
Dim sendloop As Long
Dim path As String
path = """d:\program files\napster\music\Hows it gonna be.mp3"""
Open path For Binary As #1

ReDim LocData(1 To 2048) As Byte ' Work in 2kb chunks

LenData = LOF(1) ' Get length of file

For sendloop = 1 To LenData \ 2048 ' Go through file

Get #1, , LocData 'Get data from the file nCnt is from where to start the get

Form1.Winsock1(index).SendData LocData 'Send the chunk

Next

[Wak]

A function to receive MP3 tag info is below.


option explicit

Private Type TagInfo
Tag As String * 3
Songname As String * 30
artist As String * 30
album As String * 30
year As String * 4
comment As String * 30
genre As String * 1
End Type

Private CurrentTag As TagInfo

Public Function GetTagInfo(Filename As String) As String

Open Filename For Binary As #1
With CurrentTag
Get #1, FileLen(Filename) - 127, .Tag
If Not .Tag = "TAG" Then
GetTagInfo = "Other"
Close #1
Exit Function
End If

Get #1, , .Songname
Get #1, , .artist
Get #1, , .album
Get #1, , .year
Get #1, , .comment
Get #1, , .genre
Close #1

GetTagInfo = RTrim(.artist) & " - " & RTrim(.Songname)

End With
End Function




This just gets the basic tag info, if that's what you want.
Just put it in a separate module.