jetzt bekomme ich nicht die länge des liedes, weil mir ja dieframes fehlen... wie bekomme ich die länge heraus?
Code: Alles auswählen
Structure MovieStruc
Movie.IGraphBuilder
MediaControl.IMediaControl
MediaEvent.IMediaEventEx
Window.IVideoWindow
Audio.IBasicAudio
Video.IBasicVideo
MediaSeeking.IMediaSeeking
State.l
EndStructure
Filename$ = OpenFileRequester("",Filename$,"",0)
If Filename$
InitMovie()
*movie.MovieStruc = LoadMovie(0,Filename$)
*movie\MediaSeeking\GetDuration(@Duration.q)
Millisecs = Duration / 10000
Duration / 10000000
Hours = (Duration / 3600)
Minutes = (Duration / 60) - (60 * Hours)
Seconds = Duration - (60 * (Duration / 60))
Hours$ = Str(Hours) : Minutes$ = Str(Minutes) : Seconds$ = Str(Seconds)
If Seconds < 10 : Seconds$ = "0" + Seconds$ : EndIf
If Minutes < 10 : Minutes$ = "0" + Minutes$ : EndIf
If Hours < 10 : Hours$ = "0" + Hours$ : EndIf
Debug "Soundfile = " + Filename$
Debug "Duration = " + Str(Millisecs) + " Ms"
Debug "Time Format = " + Hours$ + ":" + Minutes$ + ":" + Seconds$ + " (H:M:S)"
EndIf