moin, moin...
Ich hab mir per rekursivem Directory-Scan eine Liste von Files erstellt und möchte nun File für File verläßlich prüfen, ob es sich um ein Video- oder Audio-File handelt.
Wie mach ich das am geschicktesten/kürzesten ?
Gibts ne PB- /WinAPI-Funktion, die ich nicht erkannt habe ?
tia......
scholly
[gelöst] Mediafiles (audio|video) erkennen ?
[gelöst] Mediafiles (audio|video) erkennen ?
Zuletzt geändert von scholly am 17.05.2008 17:01, insgesamt 1-mal geändert.
Ich bin blutiger PB-Anfänger.
seit 17.12.08: PB 4.3 unter XP Home(SP3)
seit 17.12.08: PB 4.3 unter XP Home(SP3)
Video-Plaer (z. B. Media Player) können auch Musikdateien öffnen, umgekehrt kann z. B. WinAmp auch Videodateien wiedergeben.
Wenn du dich nicht nur auf die Dateiendung verlassen möchtest, prüfe erst, ob sich die vermeintliche Video-/Sounddatei mit LoadSound() öffnen lässt. Wenn ja ist es eine reine Audiodatei, andernfalls öffne sie mit LoadMovie(). Sagt LoadMovie() "ja", dann ist es entweder ein Movie oder auch eine Audiodatei, die abgespielt werden kann (Movie - Lib unterstützt mehr Dateiformate als Sound - Lib).
Das wäre die eheste Idee, die mir einfällt. Ansonsten hätte ich noch eine Idee: Versuche dein Glück mit fmod oder mci.
Wenn du dich nicht nur auf die Dateiendung verlassen möchtest, prüfe erst, ob sich die vermeintliche Video-/Sounddatei mit LoadSound() öffnen lässt. Wenn ja ist es eine reine Audiodatei, andernfalls öffne sie mit LoadMovie(). Sagt LoadMovie() "ja", dann ist es entweder ein Movie oder auch eine Audiodatei, die abgespielt werden kann (Movie - Lib unterstützt mehr Dateiformate als Sound - Lib).
Das wäre die eheste Idee, die mir einfällt. Ansonsten hätte ich noch eine Idee: Versuche dein Glück mit fmod oder mci.
PB 4.30
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End
Da LoadSound anscheinend z.B. kein MP3 erkennt, hab ich ausschließlich mit movies gemacht:
Danke für den Schubs...
scholly
Code: Alles auswählen
Mediafile.s = OpenFileRequester ( "Select Mediafile", "d:\4tests", "Mediafile|*.*", 0 )
InitMovie()
If LoadMovie(1,Mediafile)
Debug "isn mediafile"
If MovieInfo(1, 0) > 0
Debug "isn video"
Else
Debug "isn audio"
EndIf
FreeMovie(1)
Else
Debug "is keins"
EndIf
End
scholly
Ich bin blutiger PB-Anfänger.
seit 17.12.08: PB 4.3 unter XP Home(SP3)
seit 17.12.08: PB 4.3 unter XP Home(SP3)