At 4:50 PM -0800 3/14/06, Dave Wooldridge wrote:
Movie Class needs a Duration property
Even though a movie's Duration can be obtained via an Editable Movie, that
only works for writeable movies. When accessing a Read-Only movie (such as
on CD), there's currently no way to get the Duration from the
MoviePlayer.Movie.
I agree that having a Movie.Duration property would be handy. However
in the meantime, you can get the duration of a read only movie or
audio file with a simple declare or two if the file is readable by
QuickTime.
Function DurationJAH(Extends aMov as Movie) As Double
Declare Function GetMovieDuration Lib kQuickTimeLib (theMovie as
Integer) as Integer
Declare Function GetMovieTimeScale Lib kQuickTimeLib (theMovie as
Integer) as Integer
dim MovieDuration, MovieTimeScale as integer
MovieDuration = GetMovieDuration (aMov.Handle)
MovieTimeScale = GetMovieTimeScale (aMov.Handle)
return MovieDuration / MovieTimeScale
End Function
Regards,
Joe Huber
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
