ShockwaveFlash

ShockwaveFlashの機能を呼び出してみる。

• スクリプト
• memo

• →HSP3・サンプルスクリプトに戻る

HSP3.1β2 XPsp2 で動作確認 (3.0a以降です。)
オートメーション対応。
IEでFlashが表示されていれば動作します。

スクリプト

; <<<< HSP 3.1β2 サンプル >>>>
;
; ShockwaveFlashの機能を呼び出してみる
;

onexit gosub *exit

        screen 0,640,500

        objsize 50,20
        
        pos 0,0: button gosub "OPEN",*go1

        pos 0,20:axobj Flash,"ShockwaveFlash.ShockwaveFlash",640,480:FashID=stat 
stop

*go1
        sdim path,520
        dialog "swf", 16, "ShockwaveFlash Movie"
        if stat == 0 {return}
        path = refstr

        Flash->"LoadMovie" 0,path

return

*exit
        Flash=0
end

memo

2006/04/08 14:03:41 JST
変更
onexit *exit -> onexit gosub *exit