Erick and Joe, THANKS, but I already have a solution to get the Duration for QT movies. What I was looking for is how to get the read-only movie's Duration if the MoviePlayer.PlayerType is set to Windows Media Player.
In my original Feature Request, I wrote: > The MBS plugin has the DurationMBS property, > but that only works for QuickTime-supported > Read-Only files, leaving the problem unresolved > if the MoviePlayer is set to PlayerType=2 > (Windows Media Player). Do either of you have any Duration declares that would work for Windows Media Player when used with the MoviePlayer control? Regards, Dave Wooldridge Electric Butterfly http://www.ebutterfly.com ------------------------------------ > On Mar 14, 2006, at 6:50 PM, Dave Wooldridge wrote: >> 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. > > While I agree that it might be nice to have this built-in, you can > easily find the information yourself *today*. :-) > > Here's some code (MachO required for this snippet, but it should work > fine on all other QT-able RB platforms) > > hth, > Erick > > ------------------------------- > > > dim f as folderitem > dim m as movie > Dim i,n as Integer > > Declare Function GetMovieDuration Lib "/System/Library/Frameworks/ > QuickTime.framework/QuickTime" _ > (movie as integer) as integer > > Declare Function GetMovieTimeScale Lib "/System/Library/ > Frameworks/QuickTime.framework/QuickTime" _ > (movie as integer) as integer > > f = GetOpenFolderItem("any") > if f<>nil then > m = f.openasmovie > i = GetMovieDuration(m.handle) > n = GetMovieTimeScale(m.handle) > MsgBox "GetMovieDuration = "+str(i)+" TimeScale units"+chr(13) > +"GetMovieTimeScale="+str(n)+chr(13)+"wristwatch time = "+str(i/n)+" > sec." > end if > > _______________________________________________ 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>
