ab.com コミュニティ

(件名)はできるのでしょうか？
Yahoo!で「mciSendString 音量変更」で探してみたものの、ぴったり当てはまるページは見つかりませんでした。

mciSendStringで音量変更ができれば、DLLを探す必要がなくなるのですが、見つかりませんでしたので質問しました。
(今はwmaの再生(+音量変更が出来る)用のDLLを探しているのですが見つかりませんでした)

よろしくお願いします。(ここでの「音量変更」は、Windowsの音量変更ではなく、ソフト側の音量変更です。)

P.S.(こちらは答えれる方だけ答えてください)
wmaudsdk.dllと言うDLLをご存知の方、これはソフトに付属して配布しても問題は無いのでしょうか？配布元は英語で良く分かりませんでした。
配布元:http://www.dll-files.com/dllindex/dll-f ... l?wmaudsdk

ちょっと読んでみましたが、引用していいとは何所にも書いてないので、やめた方が無難だと思います。
どうしても必要な場合には、たとえばreadme.txt内にDLLが必要なことと、そのDLLの入手先を記述しておくとか、引用してはいけないとは何所にも書いていないのを理由にかってに使うとか、まぁ判断は任せます。

追記
英文を読む時はエキサイトなどで直訳しておくと大体の意味をつかむことが出来ますよ。

そのサイトには「File description: Windows Media Audio SDK DLL」と書かれています。
というわけで「Windows Media Audio SDK 再配布」と検索してみます。
するとこんなものが見つかりました。
http://www.microsoft.com/japan/msdn/win ... /wmsdk.asp
どうやら自由に再配布できないようです。

というわけで駄目でしょう。

マルチメディア系のプログラミングをしたい場合、日本語解説サイトは
絶望的だと考えてください。海外サイトを回れは意外とソースが転がっています。
試したことはありませんが以下のコードでいかがでしょうか？
※一部は省略します。

Const MCI_DGV_SETAUDIO_OVER = &H00010000L
Const MCI_DGV_SETAUDIO_CLOCKTIME = &H00020000L
Const MCI_DGV_SETAUDIO_ALG = &H00040000L
Const MCI_DGV_SETAUDIO_QUALITY = &H00080000L
Const MCI_DGV_SETAUDIO_RECORD = &H00100000L
Const MCI_DGV_SETAUDIO_LEFT = &H00200000L
Const MCI_DGV_SETAUDIO_RIGHT = &H00400000L
Const MCI_DGV_SETAUDIO_ITEM = &H00800000L
Const MCI_DGV_SETAUDIO_VALUE = &H01000000L
Const MCI_DGV_SETAUDIO_INPUT = &H02000000L
Const MCI_DGV_SETAUDIO_OUTPUT = &H04000000L

Const MCI_DGV_SETAUDIO_TREBLE = &H00004000L
Const MCI_DGV_SETAUDIO_BASS = &H00004001L
Const MCI_DGV_SETAUDIO_VOLUME = &H00004002L
Const MCI_DGV_SETAUDIO_STREAM = &H00004003L
Const MCI_DGV_SETAUDIO_SOURCE = &H00004004L
Const MCI_DGV_SETAUDIO_SAMPLESPERSEC = &H00004005L
Const MCI_DGV_SETAUDIO_AVGBYTESPERSEC = &H00004006L
Const MCI_DGV_SETAUDIO_BLOCKALIGN = &H00004007L
Const MCI_DGV_SETAUDIO_BITSPERSAMPLE = &H00004008L

Const MCI_DGV_SETAUDIO_SOURCE_STEREO = &H00000000L
Const MCI_DGV_SETAUDIO_SOURCE_LEFT = &H00000001L
Const MCI_DGV_SETAUDIO_SOURCE_RIGHT = &H00000002L
Const MCI_DGV_SETAUDIO_SOURCE_AVERAGE = &H00004000L

Type MCI_DGV_SETAUDIO_PARMS
	dwCallback As DWord
	dwItem As DWord
	dwValue As DWord
	dwOver As DWord
	lpstrAlgorithm As LPSTR
	lpstrQuality As LPSTR
End Type

Dim mdsp As MCI_DGV_SETAUDIO_PARMS
mdsp.dwValue = 0/*New Volume*/
mciSendCommand(0,MCI_SETAUDIO,MCI_DGV_SETAUDIO_VOLUME,mdsp)

NoWestさん、イグトランスさん、konisiさん、回答ありがとうございます。

(DLLの件)
分かりました、Readme.txtに入手方法等を記入しておきます。

(音量変更の件)
ありがとうございます、試してみます。

NoWestさんの提供コードで成功しましたので、他の方にも参考になるかなと思い載せておきます。

(宣言はNoWestさんのをそのまま使用、以下は追加･変更･使用例部分のみ)

'追加･修正宣言
Const MCI_SETAUDIO =&H00000873L
Type MCI_DGV_SETAUDIO_PARMS 
    dwCallback As DWord 
    dwItem As DWord 
    dwValue As DWord 
    dwOver As DWord 
    lpstrAlgorithm As BytePtr '修正前はLPSTR 
    lpstrQuality As BytePtr '修正前はLPSTR 
End Type 

'使用例
mdsp.dwValue = pos*10 'MCIでは0～1000で取り扱っているため、0～100のトラックバーの数値から10倍しています
mdsp.dwItem=MCI_DGV_SETAUDIO_VOLUME
mciSendCommand(mop.wDeviceID,MCI_SETAUDIO,MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM,mdsp) 'NoWestさんのではmciSendCommandのmciが抜けていたので追加しました。

改めて、MCIのコードサンプルを提供してくださったNoWestさん、DLLに関して詳しく説明してくださったイグトランスさん、konisiさん、どうもありがとうございました。