HSPTV!掲示板

XPまではwinmm.dllで音量の取得や変更が可能だったんですが、
Vista以降ではこの方法だとアプリケーション単体の
音量調節しか出来なくなってしまいました。

Vistaでマスターボリュームの取得・変更を行なうにはどうしたらよいでしょうか？

私も昔突っかかりましたが、アプリ単体での調節はVistaから導入された為COMを使うしかないようです。
Core Audio APIとのことですが、日本語資料は少ないですね。
http://www.google.com/search?hl=ja&client=opera&hs=M8o&rls=ja&q=Core+Audio+APIs+in+Windows+Vista&revid=2120610948&sa=X&ei=clV4TJH5GcqecfeCiKYG&ved=0CBMQ4QIoAA

拙作プラグインhspdsp.dllにてVista以降のボリューム変更に対応しています。
http://awplus.jp/soft/page1/yd/hspdsp.html

> inoviaさん
返信ありがとうございます。
音量だけでなくミュートの操作も行なう予定ですので、
今回はCOMを使用とさせていただこうかと考えております。



>uさん
ありがとうございます。
Core Audio APIについて色々と調べ、
検索の中で見つけたこちらのソースををHSPに書き換えてみました。
http://blogs.msdn.com/b/larryosterman/archive/2007/03/06/how-do-i-change-the-master-volume-in-windows-vista.aspx

しかし30行目でエラーとなってしまいます。

#uselib "ole32.dll"
#cfunc CoInitialize	"CoInitialize"	sptr
#cfunc CoCreateInstance "CoCreateInstance" sptr, sptr, sptr, sptr, sptr
#func CoUninitialize "CoUninitialize"

#define	CLSID_MMDeviceEnumerator			"{BCDE0395-E52F-467C-8E3D-C4579291692E}"
#define	IID_IMMDeviceEnumerator				"{A95664D2-9614-4F35-A746-DE8DB63617E6}"
#define	IID_IMMDevice						"{D666063F-1587-4E43-81F1-B948E807363F}"
#define	IID_IMMDeviceCollection				"{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}"
#define	IID_IAudioEndpointVolume			"{5CDF2C82-841E-4546-9722-0CF74078229A}"
#define	IID_IAudioMeterInformation			"{C02216F6-8C67-4B5B-9D00-D008E73E0064}"
#define	IID_IAudioEndpointVolumeCallback	"{657804FA-D6AD-4496-8A60-352752AF4F89}"

#define	NULL					0
#define	CLSCTX_INPROC_SERVER	0x01

#const	eRender					0x00000000
#const	eConsole				0x00000000


hr = CoInitialize( NULL );
mes hr

newcom deviceEnumerator, IID_IMMDeviceEnumerator;
hr = CoCreateInstance( CLSID_MMDeviceEnumerator, NULL, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, varptr( deviceEnumerator ) );
mes hr
newcom defaultDevice, IID_IMMDevice;

comres hr;
mcall deviceEnumerator, "GetDefaultAudioEndpoint", eRender, eConsole, varptr( defaultDevice );
mcall deviceEnumerator, "Release";

newcom endpointVolume, IID_IAudioEndpointVolume;
mcall defaultDevice, "Activate", IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, NULL, varptr( endpointVolume );
mcall defaultDevice, "Release";

VolumeLevel = 0.0;
mcall endpointVolume, "GetMasterVolumeLevel", varptr( VolumeLevel );
mes VolumeLevel;

mcall endpointVolume, "GetMasterVolumeLevelScalar", varptr( VolumeLevel );
mes VolumeLevel;

mcall endpointVolume, "Release";

CoUninitialize;

stop

正常に取得するにはどうしたらよいのでしょうか。

よろしくお願いします。

> 音量だけでなくミュートの操作も行なう予定ですので、
hspdsp.dllは Vista以降でのミュート操作にも対応しています。

とりあえず、hspdsp.dllのボリューム操作部分をHSPに移植してみました。

#module

#define CLSID_IMMDeviceEnumerator	"{BCDE0395-E52F-467C-8E3D-C4579291692E}"
#define IID_IMMDeviceEnumerator		"{A95664D2-9614-4F35-A746-DE8DB63617E6}"
#define IID_IMMDevice				"{D666063F-1587-4E43-81F1-B948E807363F}"
#define IID_IAudioEndpointVolume	"{5CDF2C82-841E-4546-9722-0CF74078229A}"

#define ERender 0x00000000
#define Console 0x00000000

#usecom IMMDeviceEnumerator		IID_IMMDeviceEnumerator 	CLSID_IMMDeviceEnumerator
#comfunc Enumerator_GetDefaultAudioEndpoint		4 int,int,var
#usecom IMMDevice 				IID_IMMDevice 				CLSID_IMMDeviceEnumerator
#comfunc Device_Activate		3 var,int,int,var
#usecom IAudioEndpointVolume 	IID_IAudioEndpointVolume 	CLSID_IMMDeviceEnumerator
#comfunc Volume_SetMasterVolumeLevelScalar 7 float,var
#comfunc Volume_GetMasterVolumeLevelScalar 9 var
#comfunc Volume_SetMute			14 int,int
#comfunc Volume_GetMute			15 var

#defcfunc todouble int p1
	temp = 0.0
	lpoke temp, 4, (p1 & 0x80000000) | (((p1 & 0x7fffffff) >> 3) + ((p1 & 0x7fffffff) ! 0) * 0x38000000)
	lpoke temp, 0, p1 << 29
return temp

#deffunc _OpenDevice

	newcom pMMDeviceEnumerator,IMMDeviceEnumerator
	if varuse(pMMDeviceEnumerator) = 0 : _CloseDevice : return -1
	newcom pMMDevice,IMMDevice,-1,0
	newcom pAudioEndpointVolume,IAudioEndpointVolume,-1,0

	Enumerator_GetDefaultAudioEndpoint pMMDeviceEnumerator,ERender,Console,pMMDevice
	if varuse(pMMDevice) = 0 : _CloseDevice : return -2
	uuid = 0x5CDF2C82 , 0x4546841E , 0xF70C2297 , 0x9A227840
	Device_Activate pMMDevice,uuid,1,0,pAudioEndpointVolume
	if varuse(pAudioEndpointVolume) = 0 : _CloseDevice : return -3
	
return 0

#deffunc _CloseDevice

	if vartype(pAudioEndpointVolume) = 6{
		if varuse(pAudioEndpointVolume) != 0{
			delcom pAudioEndpointVolume
		}
	}
	if vartype(pMMDevice) = 6{
		if varuse(pMMDevice) != 0{
			delcom pMMDevice
		}
	}
	if vartype(pMMDeviceEnumerator) = 6{
		if varuse(pMMDeviceEnumerator) != 0{
			delcom pMMDeviceEnumerator
		}
	}
		
	
return

#deffunc SetMasterVolumeVista int vol

	_OpenDevice
	if stat<0 : return stat
	uuid = 0,0,0,0
	Volume_SetMasterVolumeLevelScalar pAudioEndpointVolume,1.0f*(double(vol)/100.0f),uuid
	_CloseDevice
	
return

#defcfunc GetMasterVolumeVista

	_OpenDevice
	if stat<0 : return stat
	
	vol = 0
	Volume_GetMasterVolumeLevelScalar pAudioEndpointVolume,vol
	
	_CloseDevice
	
return int(todouble(vol)*100.0f)

#deffunc SetMuteVista int flag

	_OpenDevice
	if stat<0 : return stat
	Volume_SetMute pAudioEndpointVolume,flag,0
	_CloseDevice
	
return
#defcfunc GetMuteVista

	_OpenDevice
	if stat<0 : return stat
	res = 0
	Volume_GetMute pAudioEndpointVolume,res
	
	_CloseDevice
	
return res
#global

// ミュートに設定
SetMuteVista 1
mes GetMuteVista()

// ミュート解除
SetMuteVista 0
mes GetMuteVista()

// ボリュームを30にセット（0〜100）
SetMasterVolumeVista 30
mes GetMasterVolumeVista()

floatからdoubleに変換する方法は以下を参考にしました。
というよりそのまんまです〜(^_^;)

http://sprocket.babyblue.jp/html/hsp_koneta3.htm#tofloat

モジュールの制作ありがとうございます。
だいぶ間違っていたようですね＾＾；

> hspdsp.dllは Vista以降でのミュート操作にも対応しています。
失礼しました。
せっかくなので今回は作成していただいたモジュールを使わせていただきます。

どうもありがとうございました。