21

サウンドカードへの出力の現在の音量を取得する必要があります。

どのようにアイデアはありますか？

4

7 に答える 7

13

これらの値は、VistaおよびWin7のCoreAudioAPIのIAudioMeterInformationを使用して取得できます。

マネージラッパーはNAudioで利用できます（MMDeviceからAudioMeterInformationを入手してください）。

于 2010-03-29T09:02:26.323 に答える
4

他の音が存在しないときにある種の「エレベーター音楽」を開始する（まだリリースされていない...）アプリケーションに取り組んでいたときに、これを解決しました。

Mark Heath が提供したすばらしいヒントに従って、私が望んでいたものを手に入れました。 

 using NAudio.CoreAudioApi; 
 MMDeviceEnumerator devEnum = new MMDeviceEnumerator();
 MMDevice defaultDevice = devEnum.GetDefaultAudioEndpoint(DataFlow.Render, Role.Multimedia);
 string currVolume = "MasterPeakVolume : " + defaultDevice.AudioMeterInformation.MasterPeakValue.ToString();
于 2010-08-31T22:33:20.230 に答える
2

多分 winmm.dll があなたを助けることができます:

EDDYKT から (VB):

Private Const HIGHEST_VOLUME_SETTING = 100 '%
Private Const AUX_MAPPER = -1&
Private Const MAXPNAMELEN = 32
Private Const AUXCAPS_CDAUDIO = 1   '  audio from internal CD-ROM drive
Private Const AUXCAPS_AUXIN = 2   '  audio from auxiliary input jacks
Private Const AUXCAPS_VOLUME = &H1          '  supports volume control
Private Const AUXCAPS_LRVOLUME = &H2          '  separate left-right volume control
Private Const MMSYSERR_NOERROR = 0
Private Const MMSYSERR_BASE = 0
Private Const MMSYSERR_BADDEVICEID = (MMSYSERR_BASE + 2)
Private Type AUXCAPS
       wMid As Integer
       wPid As Integer
       vDriverVersion As Long
       szPname As String * MAXPNAMELEN
       wTechnology As Integer
       dwSupport As Long
End Type
Private Type VolumeSetting
    LeftVol As Integer
    RightVol As Integer
End Type
Private Declare Function auxGetNumDevs Lib "winmm.dll" () As Long
Private Declare Function auxGetDevCaps Lib "winmm.dll" Alias "auxGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As AUXCAPS, ByVal uSize As Long) As Long
Private Declare Function auxSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
Private Declare Function auxGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByRef lpdwVolume As VolumeSetting) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Private Function nSigned(ByVal lUnsignedInt As Long) As Integer
    Dim nReturnVal As Integer                          ' Return value from Function
    If lUnsignedInt > 65535 Or lUnsignedInt < 0 Then
        MsgBox "Error in conversion from Unsigned to nSigned Integer"
        nSignedInt = 0
        Exit Function
    End If
    If lUnsignedInt > 32767 Then
        nReturnVal = lUnsignedInt - 65536
    Else
        nReturnVal = lUnsignedInt
    End If
    nSigned = nReturnVal
End Function
Private Function lUnsigned(ByVal nSignedInt As Integer) As Long
    Dim lReturnVal As Long                          ' Return value from Function
    If nSignedInt < 0 Then
        lReturnVal = nSignedInt + 65536
    Else
        lReturnVal = nSignedInt
    End If
    If lReturnVal > 65535 Or lReturnVal < 0 Then
        MsgBox "Error in conversion from nSigned to Unsigned Integer"
        lReturnVal = 0
    End If
    lUnsigned = lReturnVal
End Function
Private Function lSetVolume(ByRef lLeftVol As Long, ByRef lRightVol As Long, lDeviceID As Long) As Long
    Dim Volume As VolumeSetting, lBothVolumes As Long
    Volume.LeftVol = nSigned(lLeftVol * 65535 / HIGHEST_VOLUME_SETTING)
    Volume.RightVol = nSigned(lRightVol * 65535 / HIGHEST_VOLUME_SETTING)
    'copy our Volume-variable to a long
    CopyMemory lBothVolumes, Volume.LeftVol, Len(Volume)
    'call the SetVolume-function
    lSetVolume = auxSetVolume(lDeviceID, lBothVolumes)
End Function
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Volume As VolumeSetting, Cnt As Long, AC As AUXCAPS
    'set the output to a persistent graphic
    Me.AutoRedraw = True
    'loop through all the devices
    For Cnt = 0 To auxGetNumDevs - 1 'auxGetNumDevs is zero-based
        'get the volume
        auxGetVolume Cnt, Volume
        'get the device capabilities
        auxGetDevCaps Cnt, AC, Len(AC)
        'print the name on the form
        Me.Print "Device #" + Str$(Cnt + 1) + ":  " + Left(AC.szPname, InStr(AC.szPname, vbNullChar) - 1)
        'print the left- and right volume on the form
        Me.Print "Left volume:" + Str$(HIGHEST_VOLUME_SETTING * lUnsigned(Volume.LeftVol) / 65535)
        Me.Print "Right volume:" + Str$(HIGHEST_VOLUME_SETTING * lUnsigned(Volume.RightVol) / 65535)
        'set the left- and right-volume to 50%
        lSetVolume 50, 50, Cnt
        Me.Print "Both volumes now set to 50%"
        'empty line
        Me.Print
    Next
End Sub

または多分これ: http://blackbeltvb.com/index.htm?free/mcisamp.htm

于 2010-04-08T10:33:51.160 に答える
2

次の MSDN 情報を参照してください。

  • IMMDeviceCollection、IMMDevice、および IAudioEndpointVolume (Windows Vista、Windows 7 のみ)。
  • mixerGetNumDevs、mixerGetLineControls、...

これは「共通」情報です。C# にはもっと便利な方法がある可能性があります (わかりません)。

于 2010-03-28T23:11:28.583 に答える
1

XP で現在の Peak を取得する簡単な方法があるとは思えません。MIXERC​​ONTROL_CONTROLTYPE_PEAKMETER は存在しますが、ほとんどサポートされていないと思います (現在のマシンにはあります)。現在のオーディオ出力を分析する独自の方法を作成したと思います。こちらの DSP セクションをご覧ください。

どちらの方法を使用するかは、実行時に決めることができます。XP と Vista/7 では、オーディオを処理する方法が大きく異なります。私が以前に書いたこの問題に関するいくつかの有用な情報はここにあります.

私の意見では、MSDN のドキュメントと Larry Osterman (彼は SO のメンバーでもあります) のブログは、おそらく現在の Windows オーディオ インフラストラクチャの 2 つの最も有用な情報源です。

于 2010-04-08T09:29:58.330 に答える
0

コード プロジェクトからこのコードを確認してください: DirectX を使用した LED スタイル ボリューム メーター

この記事は、私が作成した AnalogSignalMeter という UserControl の使用説明書です。このコントロールは、Direct3D を使用してコントロールを描画し、DirectSound を使用してオーディオ信号をサンプリングします。

これには、現在の左右のスピーカー レベルを報告するイベントが発生する AnalogSignalMeter オブジェクトがあります。

于 2010-04-07T22:02:24.353 に答える