// sample22.hsp AVIファイルのみ キーフレームでシーク
#include "hspdsp.as"

	dsp_Init	; 初期化
	
	width 320,100:gsel 0,2:objsize 320,100
	button gosub "現在位置から10秒先送り(キーフレーム単位)",*seek10

	dialog "avi",16,"AVIファイル"
	if stat=0:end

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

	dsp_Play2// hwnd,0,0,320,240		; 0,0 座標に 640x480 の大きさで表示

	// ビデオウィンドウのキャプションにファイル名を表示
	dsp_SetVideoWindow 3,varptr(fname)
	
	//再生時間を表示
	s=dsp_info(2)	;総時間
	
	repeat
		title ""+strf("%2.2f",1.0*dsp_info(3)/100)+"s / "+strf("%2.2f",1.0*s/100)+"s - AVIKeyFrameSeek"
		wait 5
	loop
	
	stop
	
*seek10
	
	dsp_SetAVIKeyFrameSeek (double(dsp_info(3))/100)+10.0
	dsp_Play2
	return


*exit

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