Sign in to follow this  
Followers 0
piccaso

Flash activex control

5 posts in this topic

cant this thig be resized?

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 245, 238, 219, 122, BitOR($WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_POPUPWINDOW,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS))
$Obj1 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 8, 8, 224, 216)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Obj1.Movie = "C:\WINDOWS\Help\Tours\mmTour\intro.swf"
GUICtrlSetResizing($Obj1_ctrl,$GUI_DOCKBORDERS)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
if you do that with an multiline edit it works...

does someone know where i can find a reference for this flash object?

thanks :P


CoProc Multi Process Helper libraryTrashBin.nfshost.com store your AutoIt related files here!AutoIt User Map

Share this post


Link to post
Share on other sites



Haven't figured out how to resize it, but found some info:

EVENTS
    onreadystatechange
    FSCommand
    onprogress
  
PROPS
    AlignMode
    AllowScriptAccess
    BackgroundColor
    Base
    BGColor
    DeviceFont
    EmbedMovie
    FlashVars
    FrameNum
    Loop
    Menu
    Movie
    Playing
    Quality
    Quality2
    ReadyState
    SAlign
    Scale
    ScaleMode
    SWRemote
    TotalFrames
    WMode
  
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)

SciTE for AutoItDirections for Submitting Standard UDFs

 

Don't argue with an idiot; people watching may not be able to tell the difference.

 

Share this post


Link to post
Share on other sites

The flash object resizes poorly. Not much can be done about that. But, you can host it inside of an IE object, like so:

#include <GUIConstants.au3>
#include <ie.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 245, 238, 219, 122, BitOR($WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_POPUPWINDOW,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS))
$Obj = _IECreateEmbedded ( )
$browser = GUICtrlCreateObj($Obj, 8, 8, 224, 216)
GUICtrlSetResizing(-1,$GUI_DOCKBORDERS)

_IENavigate ($Obj, 'about:blank')
$oDoc = _IEDocGetObj ($Obj)
$oDoc.body.style.overflow = "auto"
GUISetState(@SW_SHOW)

$flash1 = "C:\WINDOWS\Help\Tours\mmTour\intro.swf"
$flash2 = "C:\WINDOWS\Help\Tours\mmTour\segment1.swf"

$sHTML = '<embed id=flashy src="'&$flash1&'" '
$sHTML &= 'quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" '
$sHTML &= 'type="application/x-shockwave-flash" '
$sHTML &= 'width="100%" height="100%"></embed>'
_IEBodyWriteHTML ($Obj, $sHTML)



sleep(2000)
$Obj1 = _IEGetObjByName ($Obj, "flashy")
$Obj1.Movie = $flash2

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Note that I'm still getting the flash object as an actual object, so you can do lots of fun stuff with it.


[font="Fixedsys"][list][*]All of my AutoIt Example Scripts[*]http://saneasylum.com[/list][/font]

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