Flash activex control

[piccaso]

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

[GaryFrost]

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

expandcollapse popup

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)

[lod3n]

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.

[GaryFrost]

Looks pretty good....

[piccaso]

works fine

thanks

Edited September 21, 2006 by piccaso