The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

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

SYNOPSIS

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 );

DESCRIPTION

Interface to QTOControl.QTControl ActiveX Control

METHODS

new

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.

newVersion

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

EVENTS

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 );

ACTIVEX INFO

Events

QTEvent
SizeChanged
Error
StatusUpdate
MouseDown
MouseUp
MouseMove

Methods

_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()

Properties

_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 & LICENSE

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.