Zum Seiteninhalt springen
Du bist nicht angemeldet.
Erweiterte Suche
Benutzerinformationen überspringen
tcs-1986
Registrierter Benutzer
Beiträge: 71
Dabei seit: 6. Dezember 2008
Wohnort: Freiburg
1
Freitag, 19. Juni 2009, 23:03
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
Imports System.IO Function IsWAVFile(ByVal FilePath As String) As Boolean Dim fs As FileStream = New FileStream(FilePath, FileMode.Open) Dim br As BinaryReader = New BinaryReader(fs) Dim riff As Char() = br.ReadChars(4) Dim len As UInt32 = br.ReadUInt32 'Länge (aber hier nicht sinnvoll) Dim type As Char() = br.ReadChars(4) 'Typ auslesen br.Close() fs.Close() If type = "WAVE" And riff = "RIFF" Then Return True End If End Function
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »mikeb69« (20. Juni 2009, 13:07)
Epic
Floating Turtle
Beiträge: 219
Dabei seit: 31. Mai 2010
Frühere Benutzernamen: knurbl
Hilfreich-Bewertungen: 35
2
Sonntag, 1. Mai 2011, 09:39
Dauerhaft angemeldet bleiben?