MP3 validieren

woeh · 21. April 2017, 12:10

hallo leute

gibts ne möglichkeit ein MP3 zu validieren...
also das es sich wirklich um eine MP3 Handelt mit entsprechenden Header ?

habe die lösung gefunden

danke fürs lesen !

Acr0most · 21. April 2017, 15:17

woeh schrieb:

habe die lösung gefunden

Freut mich für dich!!

Aber es wird sicherlich auch andere User interessieren - mich mit eingeschlossen.
Könntest du die von dir selbst erstellte Lösung für dein Problem bitte posten und ggf. ein paar Worte dazu sagen?

Danke!

VG Acr0most

woeh · 21. April 2017, 15:46

also....ich bin ein vb.net anfänger und komme von vb6.
ich code z.zt ein prog, das ich schon immer haben wollte und das es nicht gibt.

die lösung habe ich in 2 alten klassen von vb6 gefunden.
naja....die meiste arbeit hat VBuc 7.2 erledigt.
ich habe dann nur die letzten fehler ausgemerzt und die 2 klassen kombiniert.
dazu gibts dann natürlich auch alle propertys der mp3.....

würde mich über fehler oder dergleichen und rückmeldung freuen

aufruf aus form1

VB.NET-Quellcode

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim clsID3 As New clsMP3Header
clsID3.FilePath = "C:\MeineMP3.mp3"
If clsID3.GetFileInfos() <> -1 Then
MsgBox("Valid !")
End If
End Sub
End Class

die klasse selber

Quellcode

Option Strict Off
Option Explicit On
Imports Microsoft.VisualBasic
Imports System
Friend Class clsMP3Header
Private anBitrateLookup(7, 15) As Integer
Private alFreqLookup(3, 7) As Integer
Private avFrameRates(3) As Double
Private m_sFilePath As String = ""
Private m_lFileSize As Integer
Private m_bytVersion As Byte
Private m_bytLayer As Byte
Private m_bCRCProtected As Boolean
Private m_lBitrate As Integer
Private m_lFrequency As Integer
Private m_bPadding As Boolean
Private m_bPrivateBit As Boolean
Private m_bytChannelMode As Byte
Private m_bytChannelModeExtention As Byte
Private m_bCopyright As Boolean
Private m_bOriginal As Boolean
Private m_bytEmphasis As Byte
Private m_sVersionText As String = ""
Private m_sLayerText As String = ""
Private m_sChannelModeText As String = ""
Private m_sEmphasisText As String = ""
Private m_lFrameSize As Integer
Private m_lFrames As Integer
Private m_lSeconds As Integer
Private m_ID3V2 As Boolean
Private m_ID3V1 As Boolean
Private m_HeaderPosition As Integer
Public Property FilePath() As String
Get
Return m_sFilePath
End Get
Set(ByVal Value As String)
ZeroValues()
m_sFilePath = Value
End Set
End Property
Public ReadOnly Property Minutes() As Double
Get
Return Math.Round((m_lSeconds / 60), 2)
End Get
End Property
Public ReadOnly Property FileSize() As String
Get
Return CStr(m_lFileSize)
End Get
End Property
Public ReadOnly Property Version() As Byte
Get
Return m_bytVersion
End Get
End Property
Public ReadOnly Property Layer() As Byte
Get
Return m_bytLayer
End Get
End Property
Public ReadOnly Property CRCProtected() As Boolean
Get
Return m_bCRCProtected
End Get
End Property
Public ReadOnly Property Bitrate() As Integer
Get
Return m_lBitrate / 1000
End Get
End Property
Public ReadOnly Property Frequency() As Integer
Get
Return m_lFrequency
End Get
End Property
Public ReadOnly Property Padding() As Boolean
Get
Return m_bPadding
End Get
End Property
Public ReadOnly Property PrivateBit() As Boolean
Get
Return m_bPrivateBit
End Get
End Property
Public ReadOnly Property Channelmode() As Byte
Get
Return m_bytChannelMode
End Get
End Property
Public ReadOnly Property ChannelModeExtention() As Byte
Get
Return m_bytChannelModeExtention
End Get
End Property
Public ReadOnly Property Copyright() As Boolean
Get
Return m_bCopyright
End Get
End Property
Public ReadOnly Property Original() As Boolean
Get
Return m_bOriginal
End Get
End Property
Public ReadOnly Property Emphasis() As Byte
Get
Return m_bytEmphasis
End Get
End Property
Public ReadOnly Property VersionText() As String
Get
Return m_sVersionText
End Get
End Property
Public ReadOnly Property LayerText() As String
Get
Return m_sLayerText
End Get
End Property
Public ReadOnly Property ChannelModeText() As String
Get
Return m_sChannelModeText
End Get
End Property
Public ReadOnly Property EmphasisText() As String
Get
Return m_sEmphasisText
End Get
End Property
Public ReadOnly Property FrameSize() As Integer
Get
Return m_lFrameSize
End Get
End Property
Public ReadOnly Property Frames() As Integer
Get
Return m_lFrames
End Get
End Property
Public ReadOnly Property Seconds() As Integer
Get
Return m_lSeconds
End Get
End Property
Public ReadOnly Property HeaderPosition() As Integer
Get
Return m_HeaderPosition
End Get
End Property
Public ReadOnly Property ID3V1() As Boolean
Get
Return m_ID3V1
End Get
End Property
Public ReadOnly Property ID3V2() As Boolean
Get
Return m_ID3V2
End Get
End Property
Public Sub New()
MyBase.New()
Dim sBitrateData As String = "999,999,999,999,999,999," &
"032,032,032,032,008,008," &
"064,048,040,048,016,016," &
"096,056,048,056,024,024," &
"128,064,056,064,032,032," &
"160,080,064,080,040,040," &
"192,096,080,096,048,048," &
"224,112,096,112,056,056," &
"256,128,112,128,064,064," &
"288,160,128,144,080,080," &
"320,192,160,160,096,096," &
"352,224,192,176,112,112," &
"384,256,224,192,128,128," &
"416,320,256,224,144,144," &
"448,384,320,256,160,160," &
"999,999,999,999,999,999"
Dim asBitrateCore() As String = sBitrateData.Split(","c)
For nBitRate As Integer = 1 To 14
For nVerLayer As Integer = 0 To 2
anBitrateLookup(7 - nVerLayer, nBitRate) = Conversion.Val(asBitrateCore((nBitRate * 6) + nVerLayer))
Next
For nVerLayer As Integer = 0 To 2
anBitrateLookup(3 - nVerLayer, nBitRate) = Conversion.Val(asBitrateCore((nBitRate * 6) + 3 + nVerLayer))
Next
Next
Dim sFreqData As String = "44100,22050,11025," &
"48000,24000,12000," &
"32000,16000,08000," &
"99999,99999,99999"
Dim asFreqCore() As String = sFreqData.Split(","c)
For nFreq As Integer = 0 To 3
alFreqLookup(3, nFreq) = CInt(Conversion.Val(asFreqCore(nFreq * 3)))
alFreqLookup(2, nFreq) = CInt(Conversion.Val(asFreqCore((nFreq * 3) + 1)))
alFreqLookup(0, nFreq) = CInt(Conversion.Val(asFreqCore((nFreq * 3) + 2)))
Next
avFrameRates(0) = 38.5
avFrameRates(1) = 32.5
avFrameRates(2) = 27.8
avFrameRates(3) = 0
End Sub
Private Sub ZeroValues()
m_lFileSize = 0
m_bytVersion = 0
m_bytLayer = 0
m_bCRCProtected = False
m_lBitrate = 0
m_lFrequency = 0
m_bPadding = False
m_bPrivateBit = False
m_bytChannelMode = 0
m_bytChannelModeExtention = 0
m_bCopyright = False
m_bOriginal = False
m_bytEmphasis = 0
m_sVersionText = ""
m_sLayerText = ""
m_sChannelModeText = ""
m_sEmphasisText = ""
m_lFrameSize = 0
m_lFrames = 0
m_lSeconds = 0
End Sub
Public Function GetFileInfos() As Integer
Dim result As Integer = 0
Dim FileExist() As Integer
Dim sMP3bitsString As String = ""
Dim nBit1, nBit2, nBitD1, nBitD2 As Integer
Dim dSHIFT As String = ""
Dim FrameSize As Double
Dim aBytes(3) As Byte
Dim ID3V2Len As Double
Dim sID3Len As String = ""
Dim ID3Position, HDPos As Integer
'On Local Error Resume Next
On Error GoTo Quit
m_ID3V2 = False
result = -1
If Not IO.File.Exists(m_sFilePath) Then Return result
If ID3v2GetFrameSize(m_sFilePath, ID3V2Len) = False Then
Return -1
End If
result = 0
Dim nFile As Integer = FileSystem.FreeFile()
FileSystem.FileOpen(nFile, m_sFilePath, OpenMode.Binary)
FileSystem.Seek(nFile, FileSystem.LOF(nFile) - 127)
Dim sInput As String = FileSystem.InputString(nFile, 128)
If sInput.StartsWith("TAG") Then
m_ID3V1 = True
End If
FileSystem.Seek(nFile, 1)
'Einlesen der ersten vier Kilobytes um
'den Header der Datei zu finden
sInput = FileSystem.InputString(nFile, 8192)
'Wird für die Berechnung der Trackduration benötigt
m_lFileSize = FileSystem.LOF(nFile)
' Ist ein ID3V2-Tag vorhanden?
If sInput.StartsWith("ID3") Then
ID3Position = 1
m_ID3V2 = True
End If
If ID3Position Then
' Bytes mit Längen-Info des Tags lesen
sID3Len = sInput.Substring(ID3Position + 5, Math.Min(4, sInput.Length - (ID3Position + 5)))
' länge des Tags berechnen
'On Error Resume Next
'Call ID3v2RemoveTag(m_sFilePath,,, ID3V2Len, False)
'ID3V2Len = &H200000 * Strings.Asc(sID3Len.Substring(0, Math.Min(1, sID3Len.Length))(0)) + &H4000S * Strings.Asc(sID3Len.Substring(1, Math.Min(1, sID3Len.Length - 1))(0)) + &H80S * Strings.Asc(sID3Len.Substring(2, Math.Min(1, sID3Len.Length - 2))(0)) + Strings.Asc(sID3Len.Substring(3, Math.Min(1, sID3Len.Length - 3))(0))
' Tag überspringen
FileSystem.Seek(nFile, CInt(ID3Position + ID3V2Len + 10))
'wird benötigt zur Berechnung der Headerposition
HDPos = CInt(ID3Position + ID3V2Len + 10)
m_lFileSize = CInt(m_lFileSize - (ID3Position + ID3V2Len + 10))
' neuen Einlesen
sInput = FileSystem.InputString(nFile, 8192)
End If
FileSystem.FileClose(nFile)
Dim i As Integer = 0
Do Until i = 8191
ReEnter:
i += 1
nBit1 = Strings.Asc(sInput.Substring(i - 1, Math.Min(1, sInput.Length - (i - 1)))(0))
nBit2 = Strings.Asc(sInput.Substring(i, Math.Min(1, sInput.Length - i))(0))
If nBit1 = &HFFS And (nBit2 And &HE0S) = &HE0S Then
'20 HeadersBits auslesen - es sind die
'letzen 20 Bits der nexten 3 Bytes
sMP3bitsString = sInput.Substring(i, Math.Min(3, sInput.Length - i))
m_HeaderPosition = HDPos + i - 1
Exit Do
End If
'Wir haben die Sync nicht gefunden, deshalb
'verschieben wir das ganze um 4Bits nach links
dSHIFT = ShiftBits(sInput.Substring(i - 1, Math.Min(3, sInput.Length - (i - 1))))
nBitD1 = Strings.Asc(dSHIFT.Substring(0, Math.Min(1, dSHIFT.Length))(0))
nBitD2 = Strings.Asc(dSHIFT.Substring(Math.Max(dSHIFT.Length - 1, 0))(0))
If nBitD1 = &HFFS And (nBitD2 And &HE0S) = &HE0S Then
'20 HeaderBits auslesen - es sind die
'ersten 20 Bits der nexten 3 Bytes
sMP3bitsString = sInput.Substring(i + 1, Math.Min(3, sInput.Length - (i + 1)))
m_HeaderPosition = HDPos + i - 1
Exit Do
End If
Loop
If i = 8191 Then Return result 'Header wurde nicht gefunden!
' -> beenden der Routine
For z As Integer = 1 To 3
aBytes(z) = Strings.Asc(sMP3bitsString.Substring(z - 1)(0))
Next
'Die ersten 20 Bits von sMP3bitsString sind die
'Headerinformationen für diesen Frame
'1te Bit: ID | 0 = MPEG-2 | 1 = MPEG-1
m_bytVersion = (&H18S And aBytes(1)) / 8
Dim mp3_ID1 As Integer = (m_bytVersion And 1)
'folgende 2 Bits sind der Layer
m_bytLayer = (&H6S And aBytes(1)) / 2
'folgendes Bit ist Protection
Dim mp3_protection As Integer = &H1S And aBytes(1)
m_bCRCProtected = mp3_protection <> 0
'folgende 4 Bits sind die Bitrate
Dim mp3_bitrate As Integer = (&HF0S And aBytes(2)) / 16
Dim LayerType As Integer = (mp3_ID1 * 4) Or m_bytLayer
m_lBitrate = 1000 * (anBitrateLookup(LayerType, mp3_bitrate))
'folgende 2 Bits sind die Frequenz
Dim mp3_frequency As Integer = (&HCS And aBytes(2)) / 4
m_lFrequency = alFreqLookup(m_bytVersion, mp3_frequency)
If m_lFrequency = 99999 Or m_lFrequency = 0 Or m_lBitrate = 0 Then
i += 4
GoTo ReEnter
End If
'folgendes Bit ist das Padding Bit
m_bPadding = ((&H2S And aBytes(2)) / 2) = 1
'folgendes Bit ist das Private Bit
m_bPrivateBit = ((&H10S And aBytes(3)) / 2) = 1
'folgende 2 Bit sind der Channel mode
m_bytChannelMode = (&HC0S And aBytes(3)) / 64
'folgende 2 Bits sind die Channel Mode Extention
m_bytChannelModeExtention = (&H30S And aBytes(3)) / 16
'folgendes Bit ist der Copyright Flag
m_bCopyright = ((&H8S And aBytes(3)) / 8) = 1
'folgendes Bit ist das Original Flag
m_bOriginal = ((&H4S And aBytes(3)) / 4) = 1
'folgendes Bit ist das Emphasis Flag
m_bytEmphasis = &H3S And aBytes(3)
Select Case m_bytVersion
Case 0
m_sVersionText = "MPEG-2.5"
Case 1
Case 2
m_sVersionText = "MPEG-2.0"
Case 3
m_sVersionText = "MPEG-1.0"
End Select
Select Case m_bytLayer
Case 1
m_sLayerText = "Layer III"
FrameSize = (144 * (m_lBitrate / m_lFrequency))
Case 2
m_sLayerText = "Layer II"
FrameSize = (144 * (m_lBitrate / m_lFrequency))
Case 3
m_sLayerText = "Layer I"
FrameSize = (12 * (m_lBitrate / m_lFrequency) + Math.Abs(CInt(m_bPadding))) * 4
End Select
Select Case m_bytChannelMode
Case 0
m_sChannelModeText = "Stereo"
Case 1
m_sChannelModeText = "Joint Stereo"
If m_bytVersion < 3 Then FrameSize = IIf(FrameSize > 0, Math.Floor(FrameSize), Math.Ceiling(FrameSize)) / 2
If m_bytVersion = 0 Then FrameSize = IIf(FrameSize > 0, Math.Floor(FrameSize), Math.Ceiling(FrameSize)) / 2
Case 2
m_sChannelModeText = "Dual Channel"
Case 3
m_sChannelModeText = "Single Channel"
If m_bytVersion < 3 Then FrameSize = IIf(FrameSize > 0, Math.Floor(FrameSize), Math.Ceiling(FrameSize)) / 2
End Select
Select Case m_bytEmphasis
Case 0
m_sEmphasisText = "None"
Case 1
m_sEmphasisText = "50/15 ms"
Case 2
m_sEmphasisText = "Reserved"
Case 3
m_sEmphasisText = "CIT J.17"
End Select
'Ausrechnen der Frameanzahl und der Spieldauer
m_lFrameSize = CInt(IIf(FrameSize > 0, Math.Floor(FrameSize), Math.Ceiling(FrameSize)))
m_lFrames = CInt(m_lFileSize / IIf(FrameSize > 0, Math.Floor(FrameSize), Math.Ceiling(FrameSize)))
m_lSeconds = CInt(m_lFrames / avFrameRates(mp3_frequency))
m_lSeconds = m_lSeconds
Return result
Quit:
If Err.Number <> 0 Then
Err.Clear()
Return -1
End If
End Function
Private Function ShiftBits(ByRef sInput As String) As String
Dim nSD1 As Integer = Strings.Asc(sInput.Substring(0, Math.Min(1, sInput.Length))(0))
Dim nSD2 As Integer = Strings.Asc(sInput.Substring(1, Math.Min(1, sInput.Length - 1))(0))
Dim nSD3 As Integer = Strings.Asc(sInput.Substring(Math.Max(sInput.Length - 1, 0))(0))
Dim nDO1 As Integer = ((nSD1 And &HFS) * 16) Or ((nSD2 And &HF0S) / 16)
Dim nDO2 As Integer = ((nSD2 And &HFS) * 16) Or ((nSD3 And &HF0S) / 16)
Return Strings.Chr(nDO1).ToString() & Strings.Chr(nDO2).ToString()
End Function
Public Function ID3v2GetFrameSize(ByVal file As String,
ByRef frameSize As Long,
Optional lb As ListBox = Nothing) _
As Boolean
Dim tmpFile As String
Dim bytTemp() As Byte, bytByte() As Byte, byt() As Byte
Dim lngSizeLeft, lngTotalSize
Dim result As Boolean
On Error GoTo Quit
Dim fsr As IO.FileStream
Dim reader As IO.BinaryReader
fsr = New IO.FileStream(file, IO.FileMode.Open, IO.FileAccess.Read)
reader = New IO.BinaryReader(fsr)
Call reader.ReadBytes(3)
ReDim bytTemp(6)
bytTemp = reader.ReadBytes(bytTemp.Length)
frameSize = LeftShift(bytTemp(3), 21) + LeftShift(bytTemp(4), 14) + LeftShift(bytTemp(5), 7) + bytTemp(6) + 10
result = True
Quit:
If Err.Number <> 0 Then
frameSize = -1
result = False
End If
reader.Close()
fsr.Close()
reader.Dispose()
fsr.Dispose()
Err.Clear()
Return result
End Function
Private Function LeftShift(ByVal intNumber As Integer, ByVal bytAmount As Byte) As Integer
Dim strTemp As String = ""
If bytAmount = 0 Then
Return intNumber
Else
strTemp = NumberToBinary(intNumber)
strTemp = strTemp & New String("0", bytAmount)
Return BinaryToLong(strTemp)
End If
End Function
Private Function BinaryToLong(ByVal strBinary As String) As Integer
Dim lngTotal As Integer
Dim bytBit As Byte
Dim lngFactor As Integer = 0
For lngCounter As Integer = Len(strBinary) To 1 Step -1
bytBit = CByte(strBinary.Substring(lngCounter - 1, Math.Min(1, strBinary.Length - (lngCounter - 1))))
lngTotal += (bytBit * (2 ^ lngFactor))
lngFactor += 1
Next
Return lngTotal
End Function
Private Function NumberToBinary(ByVal intNumber As Integer) As String
Dim result As String = ""
Dim lngNumber As Integer
Dim strTemp, strPad As String
lngNumber = intNumber
Do
If (lngNumber Mod 2) = 0 Then
strTemp = "0" & strTemp
Else
strTemp = "1" & strTemp
End If
lngNumber = lngNumber \ 2
Application.DoEvents()
Loop Until lngNumber = 0
If Len(strTemp) < 8 Then
strPad = New String("0", 8 - Strings.Len(strTemp))
End If
Return strPad & strTemp
End Function
End Class

RodFromGermany · 21. April 2017, 16:32

woeh schrieb:

habe die lösung gefunden

Leider nicht :!:

Ich hab das ganze mit ner Excel-Datei aufgerufen, die ist angeblich auch valid!

woeh · 21. April 2017, 16:37

naja...wenn der code an bestimmten stellen die bytes findet, liest er natürlich den rest aus...
ist trotzdem ne klasse klasse ,) für meine bedürfnisse reicht es...

wenn ich das richtig verstanden habe, müßte man checken, ob sich in der datei ein valieder audiostream befindet...ich glaube nur so gehts.....

danke für die rückmeldung

RodFromGermany · 21. April 2017, 17:03

@woeh Vielleicht rufst Du einen Audioplayer auf, der weiß es ganz genau.
Wie kommen denn da Nicht-MP3-Dateien rein?
Genügt es nicht, einfach die Extension zu testen?

slice · 21. April 2017, 18:28

Du könntest auch einfach die Magic Numbers checken (List of file signatures).

MP3 validieren

MP3 validieren

woeh schrieb:

VB.NET-Quellcode

Quellcode

woeh schrieb:

Benutzer online 1

Ähnliche Themen

4 Benutzer haben hier geschrieben