編集履歴:差分

記録開始と2008/02/01 22:17:26 JST間のMedia Player 6.4の変更箇所

+ 追加された行
- 削除された行

- Media Player 6.4の機能を呼び出してみる。
- 
- 
- [[$$toc]]
- - →[[HSP3・サンプルスクリプト]]に戻る
- 
- ----
- 
- HSP3.1β2 XPsp2 で動作確認 (3.0a以降です。)~%
- オートメーション対応。~%
- 
- 
- * スクリプト
- {{{
- ; <<<< HSP 3.1β2 サンプル >>>>
- ;
- ; Media Player 6.4の機能を呼び出してみる
- ;
- 
- onexit gosub *exit
- 
- 	screen 0,640,500
- 	title "mediaplayer"
- 
- 	objsize 50,20
- 
- 	pos 0,0 : button gosub "OPEN" , *go1
- 
- 	pos 0,20
- 	axobj pmedia,"mediaplayer.mediaplayer",640,480 : axid=stat 
- 
- stop
- 
- *go1
- 	sdim path,1024
- 	
- 	dialog "mpg;*.avi;*.wmv;*.ram",16,"Movie"
- 	if stat == 0 { goto *exit}
- 	path = refstr
- 
- 	wait 4
- 
- 	pmedia("FileName")=path
- 
- return
- 
- *exit
- 	delcom pmedia : pmedia=0
- end
- 
- }}}
- * memo~%
- 2006/04/08 14:01:34 JST~%
- 変更~%
- onexit *exit -> onexit gosub *exit
- 
-