// sample13.hsp 動画を静止画キャプチャ
#include "hspdsp.as"

	dsp_Init	; 初期化

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

	// システム標準のレンダラーで開く
	dsp_Open refstr,OPEN_DEFAULT_RENDERER,0,0,0
	//サイズを取得
	x=dsp_info(0):y=dsp_info(1)
	
	onexit *exit	; 終了時開放するため

	title "ENTERキーで静止画キャプチャをとります"

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

	//ENTERキー入力チェック
	repeat
		stick ky,32,1
		if ky&32:gosub *sub
		wait 5
	loop
	
	stop

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

	
*sub
	//キャプチャを行うサブルーチン
	if (x>0)&(y>0){
		screen 7,x,y,2
		dsp_CaptureVideo hdc,0,0,x,y,SRCCOPY
		gsel 7,2:gsel 0,1
		dsp_Play2
	}

	return