Wx::ActiveX::Flash - ActiveX interface for Shockwave Flash.
use Wx::ActiveX::Flash ; my $flash = Wx::ActiveX::Flash->new( $parent , -1 , wxDefaultPosition , wxDefaultSize ); $flash->LoadMovie(0,"file:///F:/swf/test.swf") ; $flash->Play ; EVT_ACTIVEX($this, $flash ,"FSCommand", sub{ my ( $this , $evt ) = @_ ; my $cmd = $evt->{command} ; my $args = $evt->{args} ; ... }) ;
ActiveX control for Shockwave Flash. The control comes from Wx::ActiveX, and all methods/events from there exit here too.
** You will need to already have the Flash player installed.
This will create and return the Flash object.
See Wx:ActiveX.
All the events use EVT_ACTIVEX.
<EVENTS> OnReadyStateChange FSCommand OnProgress </EVENTS> <PROPS> AlignMode AllowScriptAccess BackgroundColor Base BGColor DeviceFont EmbedMovie FlashVars FrameNum Loop Menu Movie Playing Quality Quality2 ReadyState SAlign Scale ScaleMode SWRemote TotalFrames WMode </PROPS> <METHODS> AddRef() Back() CurrentFrame() FlashVersion() Forward() FrameLoaded(FrameNum) GetIDsOfNames(riid , rgszNames , cNames , lcid , rgdispid) GetTypeInfo(itinfo , lcid , pptinfo) GetTypeInfoCount(pctinfo) GetVariable(name) GotoFrame(FrameNum) Invoke(dispidMember , riid , lcid , wFlags , pdispparams , pvarResult , pexcepinfo , puArgErr) IsPlaying() LoadMovie(layer , url) Pan(x , y , mode) PercentLoaded() Play() QueryInterface(riid , ppvObj) Release() Rewind() SetVariable(name , value) SetZoomRect(left , top , right , bottom) Stop() StopPlay() TCallFrame(target , FrameNum) TCallLabel(target , label) TCurrentFrame(target) TCurrentLabel(target) TGetProperty(target , property) TGetPropertyAsNumber(target , property) TGetPropertyNum(target , property) TGotoFrame(target , FrameNum) TGotoLabel(target , label) TPlay(target) TSetProperty(target , property , value) TSetPropertyNum(target , property , value) TStopPlay(target) Zoom(factor) </METHODS>
This package only works for Win32, since it use AtiveX.
Wx::ActiveX, Wx
Graciliano M. P. <gm@virtuasites.com.br>
Thanks to wxWindows peoples and Mattia Barbon for wxPerl! :P
Thanks to Justin Bradford <justin@maxwell.ucsf.edu> and Lindsay Mathieson <lmathieson@optusnet.com.au>, that wrote the original C++ classes for wxActiveX and wxIEHtmlWin.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Wx::ActiveX, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Wx::ActiveX
CPAN shell
perl -MCPAN -e shell install Wx::ActiveX
For more information on module installation, please visit the detailed CPAN module installation guide.