sample05.hsp

sample\hspdsp\sample05.hsp » Plain Format

// sample05.hsp ループ再生 (別スレッド作成版)
#include "hspdsp.as"

	dsp_Init	; 初期化
	
	dsp_CreateThread hwnd ,1	;別スレッド作成(一度作れば終了時まで使えます。)
	phwnd=dsp_GetThreadHWND()	;スレッドのウィンドウハンドルを取得

	dialog "*",16,"メディアファイル"
	if stat=0:end

	// システム標準のレンダラーで開く
	dsp_Open refstr,OPEN_DEFAULT_RENDERER,0,0,0
	
	onexit *exit	; 終了時開放するため

	dsp_SetEvHWND phwnd	;イベントがメッセージとして通知されます。
	oncmd gosub *change,WM_GRAPH_NOTIFY	;イベント通知

	dsp_Play hwnd,0,0,640,480		; 0,0 座標に 640x480 の大きさで表示
	
	stop

*exit
	
	dsp_Close	; メディアファイルを閉じる
	dsp_Exit	; 開放
	end

*change
	
		//別スレッド版は イベントIDはwparam に入ります。

		//イベント内容を見る(なくても動作に支障はありません。)
		sdim tt,128
		dupptr tt,dsp_getmediaevstr(wparam),128,2
		title ""+wparam+":"+tt

	return