Quicktime player embedded com obj...

[kjactive]

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 October 9, 2005 by kjactive

[Kaba]

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