[VB] MP3 Bitrate bepalen

[Verwijderd]

Hi,

ik wil een functie schrijven waarmee ik via vb de bitrate van een mp3-bestandje kan achterhalen.
Kan iemand mij hiermee op weg helpen of misschien heeft
iemand een werkende functie op zijn schijf staan.

Thx!

[Arnaud]

Voor dit soort simpele dingen kun je beter google gebruiken: http://www.google.nl/sear...itrate+mp3&hl=nl&ie=UTF-8

[OnTracK]

gebruik de url-tags! http://www.google.nl/sear...itrate+mp3&hl=nl&ie=UTF-8

het is precies dezelfde link, maar dan aan één stuk

[ Voor 18% gewijzigd door OnTracK op 10-04-2003 20:47 ]

[Arnaud]

Zal ik voortaan doen. Ik had al een paar keer gemerkt dat een url wordt afgebroken na dubbelle punt, maar ik had nog niet aan de UBB-tags gedacht om dit te voorkomen.

[BdR]

hier staat de MP3 header info, en dan is het dus volgens mij zoiets

code:

Private Function GetMP3info(strFile As String)
  ' strFile moet MP3 file zijn
  ' deze functie achterhaalt de BitRate
  
  Dim tmpByte As Byte
  Dim strTemp As String
  
  Open strFile For Binary As #1
  Get #1, 3, tmpByte '3e byte
  Close #1
  
  tmpByte = 240 And tmpByte
  tmpByte = (tmpByte / 16) 'shift right
  
  Select Case tmpByte
  Case 1
    strTemp = "32"
  Case 2
    strTemp = "40"
  Case 3
    strTemp = "48"
  Case 4
    strTemp = "56"
  Case 5
    strTemp = "64"
  Case 6
    strTemp = "80"
  Case 7
    strTemp = "96"
  Case 8
    strTemp = "112"
  Case 9
    strTemp = "128"
  Case 10
    strTemp = "160"
  Case 11
    strTemp = "192"
  Case 12
    strTemp = "224"
  Case 13
    strTemp = "256"
  Case 14
    strTemp = "320"
  Case Else
    strTemp = "??"
  End Select

  strTemp = strTemp + " kBits/s"

  MsgBox (strTemp)
    
End Function

edit:
hm niet helemaal goed, is dus afhankelijk van welke MPEG versie en layer. Moet je dus via dit tabelletje achterhalen

[ Voor 19% gewijzigd door BdR op 11-04-2003 13:43 ]