Edit History:Diff

Changes of RealPlayer since Epoch

+ added lines
- deleted lines
- RealPlayer G2 Controlの機能を呼び出してみる。
- 
- 
- [[$$toc]]
- - →[[HSP3・サンプルスクリプト]]に戻る
- 
- ----
- 
- HSP3.1β2 XPsp2 で動作確認 (3.0a以降です。)~%
- オートメーション対応。~%
- 
- '''＊＊注意＊＊''' ~%
- G2 と同等の機能しか扱えないのと、RealPlayer その物をインストールしなくてはいけません。~%
- 
- http://www.jp.real.com/ ~%
- 
- 下記のコーデックのみをインストールしても一応は動作します。~%
- '''realalt147.exe'''  http://home.hccnet.nl/h.edskes/mirrorold.htm ~%
- 
- * スクリプト
- {{{
- ; <<<< HSP 3.1β2 サンプル >>>>
- ;
- ; RealPlayerの機能を呼び出し
- ;
- 
- onexit gosub *exit
- 
-         screen 0,640,535
- 
-         objsize 50,20
-         
-         pos 0,0: button gosub "OPEN",*go1
- 
-         pos 0,20:axobj Real1,"rmocx.RealPlayer G2 Control",640,480:RID1=stat 
- 
-         Real1("Controls")="ImageWindow"
-         Real1("Console")="player"
- 
-         pos 0,500:axobj Real2,"rmocx.RealPlayer G2 Control",640,35:RID2=stat 
- 
- 	Real2("Controls")="ControlPanel"
- 	Real2("Console")="player"
- 
- 	delcom Real2 : Real2=0
- stop
- 
- *go1
-         sdim path,520
-         dialog "mpg;*.avi;*.wmv;*.ram;*.rm",16,"Movie"
-         if stat == 0 {return}
-         path = refstr
- 
- 	Real1("Source")=path
- 	Real1->"DoPlay"
- return
- 
- *exit
-         Real1=0
- end
- 
- }}}
- * memo~%
- 
- '''Controls'''プロパティーは必ず何かしら指定しないといけません。~%
- '''Console'''プロパティーで指定する名前を統一（この例では、playerという名前）~%
- すると自動で認識してくれますので、Real1以外のオブジェクトは必要ありません。~%
- 
- また、RealPlayerオブジェクトの場合、部品ごとに axobj でウインドウを~%
- 作らなくてはいけないので、面倒ですね。~%
- 
- Controls で指定できる部品名は、下記の物です。~%
- {{{
-        All
-        ControlPanel
-        FFCtrl
-        HomeCtrl
-        ImageWindow
-        InfoPanel
-        InfoVolumePanel
-        MuteCtrl
-        MuteVolume
-        PauseButton
-        PlayButton (also PlayOnlyButton)
-        PositionField
-        PositionSlider
-        RWCtrl
-        StatusBar
-        StatusField
-        StopButton
-        TACCtrl
-        VolumeSlider
- 
- /*例)
-        pos 0,500:axobj Real2,"rmocx.RealPlayer G2 Control",640,20:RID2=stat 
-        Real2("Controls")="StatusBar" : Real2("Console")="player"
- */
- 
- }}}
- 
- 2006/04/08 14:05:06 JST~%
- 変更~%
- onexit *exit -> onexit gosub *exit
- 
-