swf don't wotk

[mesale0077 14]

#AutoIt3Wrapper_Res_File_Add=test_1.htm, rt_html, TEST_HTML_1
#AutoIt3Wrapper_Res_File_Add=test_1.gif, rt_html, TEST_GIF_1

$oIE = ObjCreate("Shell.Explorer.2")
$gui = GUICreate("HTML from resources example",500,400)
$ie_ctrl = GUICtrlCreateObj ($oIE, 0, 0 , 500, 400)
GUISetState(@SW_SHOW)

; image from resource (all HTML supported types)
$oIE.navigate("res://" & @AutoItExe & "/test_gif_1")
Sleep(3000)
; html from resource (with embeded image from resources)
$oIE.navigate("res://" & @AutoItExe & "/test_html_1")

While 1
    If GUIGetMsg() = -3 Then Exit
WEnd

expandcollapse popup

#Region
#AutoIt3Wrapper_icon=D:\programlar\iconlar\alim.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
;#AutoIt3Wrapper_Res_File_Add=C:\slide.swf, rt_rcdata, TEST_BIN_1
#AutoIt3Wrapper_Res_File_Add=C:\test_1.dat, rt_rcdata, TEST_BIN_1
;#AutoIt3Wrapper_run_after=ResHacker.exe -add %out%, %out%, C:\slide.swf, rcdata, TEST_BIN_1, 0
#AutoIt3Wrapper_Run_After=upx.exe --best --compress-resources=0 "%out%"

#include <GUIConstants.au3>
Global $oRP = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
GUICreate ("Flash", 820, 600, -1, -1)
$GUIActiveX    = GUICtrlCreateObj( $oRP, 10, 10 , 800 , 580)

With $oRP
    .bgcolor = "#000000"
    ;.Movie = 'C:\slide.dat';
     .Movie = "res://" & @AutoItExe & "/test_bin_1"
    .ScaleMode = 2
    .Loop = True
    .wmode = "Opaque"
    .FlashVars = ""
EndWith

GUISetState ()

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd

$oRP = 0
GUIDelete ()
Exit

hello

file read in @AutoItExe

dont install

res://" & @AutoItExe & "/test_bin_1 <===

dont work

dont read swf file

why

thank you help me now

this like it code

Edited August 23, 2010 by mesale0077

[doudou 5]

res: protocol is IE specific and Flash obviously doesn't support it. Use FileInstall to extract your movie at runtime:

FileInstall("C:\slide.swf", @ScriptDir & "\slide.swf", 1)
If @compiled Then
    $oRP.Movie = @ScriptDir & "\slide.swf"
Else
    $oRP.Movie = "C:\slide.swf"
EndIf