sample25_SelectAudioDevice.hsp

sample\hspdsp\sample25_SelectAudioDevice.hsp » Plain Format

// sample25.hsp オーディオデバイスの切り替え
#include "hspdsp.as"

	dsp_Init								; 初期化
	gsel 0, -2
	
	dialog "*", 16, "メディアファイル"
	if stat == 0 : end

	screen 3, 640, 100
	title "出力先オーディオデバイス"

	sdim strAudioDeviceList, dsp_GetDeviceListSize()
	dsp_GetDeviceList strAudioDeviceList	; オーディオ出力デバイス一覧を取得

	objsize 640, 20
	combox nAudioIndex, , strAudioDeviceList
	
	objsize 640, 30
	button "指定デバイスで再生開始", *push
	
	stop
	
*push

	gsel 3, -1								; 出力先オーディオデバイスのウィンドウは不要なので消す
	
	dsp_Open refstr, OPEN_EVR, 0, 0, 0, nAudioIndex

	screen 1, ginfo_dispx, ginfo_dispy, 0, , , 640, 480
	title "ウィンドウの大きさを変えられるよ♪"
	
	onexit *exit							; 終了時開放するため
	oncmd gosub *event_resize, 0x05			; ウィンドウのリサイズ

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

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

*event_resize	
	//リサイズ時にこちらに飛びます
	dsp_Resize hwnd, 0, 0, ginfo(12), ginfo(13)
return