musik ohne bild

[ts-soft]

>> kann man das nicht irgendwie so zusammenzaubern?
Wir sind ein Programmierforum, kein Zauberzirkel
Haste Dir die MCI sachen mal angesehen, ist das einfachste.

[TomTom]

ohhh das ist nicht gut (möchte das gerne noch verstehen können) ^^

egal dann werde ich ein neues projekt starten ^^ Vielen Dank für die Posts!

[Fluid Byte]

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