I have found that it is easier to use the OLEContainer/ActiveX version
of the Windows Media Player control. When you do that, you get access
to all the properties, events and methods of the actual Media Player.
But to answer the question specifically, no I don't know the declares,
but the ActiveX methods are quite straight-forward.
- Ryan
Dave Wooldridge wrote:
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>
_______________________________________________
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>
