Sign in to follow this  
Followers 0
kjactive

Quicktime player embedded com obj...

2 posts in this topic

#1 ·  Posted (edited)

I played around with apple quicktime player and it's a quiet proffetional application ( rev. 7.02 ) and comes free in a reduced version but I discovered that there was an ocx related that also play the apple .mov file type both from disk and as streamed...

Script needs latest autoit3 beta and quicktime player ( free addition )

; Embedded Quicktime com obj player example
;by Kåre Johansson date 5.10.05
;need the QTPlugin.ocx plugin in system32 or in QuickTime\QTPlugin.ocx
;and probably the freeware quicktime packet as well - the plugin is part of the installation

#include "GUIConstants.au3"
Dim $w = 450,$h = 220
$obj = ObjCreate("QuickTime.QuickTime.4")
GUICreate("Embedded Quicktime player control Test", $w, $h,(@DesktopWidth-$w)/2, (@DesktopHeight-$h)/2 , BitOr($WS_OVERLAPPEDWINDOW,$WS_VISIBLE,$WS_CLIPSIBLINGS))
GUICtrlCreateObj( $obj, 0, 0 , $w , $h )
GUISetState()

With $obj; object pool
    .SetBgColor(0000000)
    .SetAutoPlay(True)
    .SetUrl('http://movies.apple.com/movies/universal/doom/doom-tlr5_480.mov')
    .SetControllerVisible(True)
EndWith

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
Wend
$obj = 0; free the object
GUIDelete()
Exit

Quicktime can be downloaded from site:

http://www.apple.com/quicktime/download/win.html

I just love SvenPs com support functions - works alright with most objects although it's not finished...

kjactive ;)

Edited by kjactive

Share this post


Link to post
Share on other sites



Hi kjactive,

sorry for posting in you topic created in 2005.

I would really like to try your example but when running it using Autoit3 I get several error messages.

Thanks to the first problem could be solved by replacing

#include "GUIConstants.au3"

with

#include <GUIConstants.au3>

#include <WindowsConstants.au3>

But the next error message reffers to line 15 and I don't know how to deal with it:

'With $obj

With ^ ERROR

Error: Only Objects-type variables allowed in a "With" statement.'

Did you, by chance, create an updated version working in Autoit3?

Cheers,

Kaba

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0