Wx::ActiveX::QuickTime - interface to QTOControl.QTControl ActiveX Control

    use Wx::ActiveX::QuickTime qw( :everything );

    ..........

    my $activex = Wx::ActiveX::QuickTime->new( $parent );

    OR

    my $activex = Wx::ActiveX::QuickTime->newVersion( 1, $parent );

    EVT_ACTIVEX_QUICKTIME_QTEVENT( $handler, $activex, \&on_event_qtevent );

Interface to QTOControl.QTControl ActiveX Control

    my $activex = Wx::ActiveX::QuickTime->new(
                        $parent,
                        $windowid,
                        $position,
                        $size,
                        $style,
                        $name);

Returns a new instance of Wx::ActiveX::QuickTime. Only $parent is mandatory. $parent must be derived from Wx::Window (e.g. Wx::Frame, Wx::Panel etc). This constructor creates an instance using the latest version available of QTOControl.QTControl.

    my $activex = Wx::ActiveX::QuickTime->newVersion(
                        $version
                        $parent,
                        $windowid,
                        $position,
                        $size,
                        $style,
                        $name);

Returns a new instance of Wx::ActiveX::QuickTime. $version and $parent are mandatory. $parent must be derived from Wx::Window (e.g. Wx::Frame, Wx::Panel etc). This constructor creates an instance using the specific type library specified in $version of QTOControl.QTControl.

e.g. $version = 4;

will produce an instance based on the type library for

QTOControl.QTControl.4

The module provides the following exportable event subs

    EVT_ACTIVEX_QUICKTIME_QTEVENT( $evthandler, $activexcontrol, \&on_event_quicktime_sub );
    EVT_ACTIVEX_QUICKTIME_SIZECHANGED( $evthandler, $activexcontrol, \&on_event_quicktime_sub );
    EVT_ACTIVEX_QUICKTIME_ERROR( $evthandler, $activexcontrol, \&on_event_quicktime_sub );
    EVT_ACTIVEX_QUICKTIME_STATUSUPDATE( $evthandler, $activexcontrol, \&on_event_quicktime_sub );
    EVT_ACTIVEX_QUICKTIME_MOUSEDOWN( $evthandler, $activexcontrol, \&on_event_quicktime_sub );
    EVT_ACTIVEX_QUICKTIME_MOUSEUP( $evthandler, $activexcontrol, \&on_event_quicktime_sub );
    EVT_ACTIVEX_QUICKTIME_MOUSEMOVE( $evthandler, $activexcontrol, \&on_event_quicktime_sub );

    QTEvent
    SizeChanged
    Error
    StatusUpdate
    MouseDown
    MouseUp
    MouseMove

    _get_DataRef(pDataRef , pDataRefType)
    _put_DataRef(inDataRef , inDataRefType , inNewMovieFlags)
    AddRef()
    CreateNewMovie(movieIsActive)
    CreateNewMovieFromImages(bstrFirstFilePath , rate , rateIsFramesPerSecond)
    GetIDsOfNames(riid , rgszNames , cNames , lcid , rgdispid)
    GetTypeInfo(itinfo , lcid , pptinfo)
    GetTypeInfoCount(pctinfo)
    Invoke(dispidMember , riid , lcid , wFlags , pdispparams , pvarResult , pexcepinfo , puArgErr)
    MovieResizingLock()
    MovieResizingUnlock()
    QueryInterface(riid , ppvObj)
    QuickTimeInitialize(InitOptions , InitFlags)
    QuickTimeTerminate()
    Release()
    SetScale(x , y)
    SetSizing(sizingOption , forceSizeUpdate)
    ShowAboutBox()

    _MovieControllerHandle
    _MovieHandle
    _Property
    AutoPlay
    BackColor
    BaseURL
    BorderColor
    BorderStyle
    ErrorCode
    ErrorHandling
    FileName
    FullScreen
    FullScreenEndKeyCode
    FullScreenFlags
    FullScreenHWND
    FullScreenMonitorNumber
    FullScreenSizing
    hWnd
    IsQuickTimeAvailable
    Movie
    MovieControllerVisible
    NewMovieFlags
    QuickTime
    QuickTimeVersion
    ScaleX
    ScaleY
    Sizing
    URL
    Version

Copyright (C) 2008 Mark Dootson

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.