Eingestellte Samplingrate, Bittiefe und Mono/Stereo von Aufnahmegerät ermitteln

kafffee · 26. Oktober 2024, 13:06

Hallo liebe Community,

ich möchte die eingestellte Samplingrate, Bittiefe und Kanalanzahl von Aufnahmegeräten ermitteln, wie in der Sound-Systemsteuerung eingestellt (s. Screenshot).

Gibt es da eine Möglichkeit in .NET? Hab nix dazu ergoogeln können, und in den Docs der bass.dll von Un4Seeen Developments hab ich auch nix dazu gefunden...

Ich gehe mal stark davon aus, dass da ohne C und Interfaces nix zu machen ist??

-Franky- · 26. Oktober 2024, 20:14

kafffee schrieb:

Ich gehe mal stark davon aus, dass da ohne C und Interfaces nix zu machen ist??

Das fürchte ich auch. Die Core Audio APIs/Interfaces (WASAPI) wäre da die erste Anlaufstelle. Schätze das es dafür sogar Nuget-Pakete gibt. Über die WinRT wäre auch ein möglicher Weg um entsprechende Geräte und deren Properties aufzulisten.

Edit: Die "Windows Media Foundation" als möglichen Weg hab ich glatt vergessen.

kafffee · 1. November 2024, 10:40

Oje, ich glaub das tu ich mir (vorerst) nicht an... Vielleicht mal später...

DTF · 1. November 2024, 12:56

Geht es nur darum zu schauen was eingestellt ist?

Dann solltest du damit an die gewollten Daten kommen:
un4seen.com/doc/#bass/BASS_GetInfo.html
un4seen.com/doc/#bass/BASS_INFO.html

Wird auch in der BassNet sein.(hab ja nun auf die C-Doku verwiesen)

Mit der BassWasapi wirst du vermutlich auch da dran kommen.

-Franky- · 2. November 2024, 08:41

@kafffee Also wenn es nur um die Default Einstellung des Default Aufnahmegerätes geht, dürfte das mit COM Interfaces relativ einfach sein. Hab es selbst noch nicht ausprobiert, sollte aber so funktionieren. Grob überschlagen. Erzeuge ein IMMDeviceEnumerator -> IMMDeviceEnumerator::GetDefaultAudioEndpoint(EDataFlow.eCapture) -> IMMDevice -> IMMDevice::Activate(IID_IAudioClient) -> IAudioClient -> IAudioClient::GetMixFormat -> Structure WAVEFORMATEX. In der WAVEFORMATEX sollten dann die derzeit eingestellten Werte wie SampleRate, Channel usw stehen. Über IMMDevice::OpenPropertyStore -> IPropertyStore kommst an weitere Eigenschaften des Gerätes wie zB. den Namen des Gerätes. Du kannst auch alle Geräte, je nach DataFlow und DeviceState auflisten. Über den IMMDeviceEnumerator::EnumAudioEndpoints(EDataFlow, DeviceState) -> IMMDeviceCollection -> ::GetCount -> ::Item -> IMMDevice usw.

kafffee · 3. November 2024, 06:57

@DTF

Also ich find da nichts von den Werten die ich brauch. Überseh ich etwas?

Auch in der WASAPI leider nichts...

@-Franky-

Sei mir nicht böse aber das is mir momentan zu viel. Werd aber ggf. nochmal drauf zurückkommen...

-Franky- · 3. November 2024, 07:57

kafffee schrieb:

Werd aber ggf. nochmal drauf zurückkommen

Kein Problem. Wobei IAudioClient::GetMixFormat doch nicht das richtige wäre. Der gibt nur die interne WAVEFORMATEX zurück, nicht die eingestellten Default-Werte. Man müsste sich die anderen Interfaces anschauen die per IMMDevice::Activate erstellt werden können ob da was passendes bei ist, das entsprechende Informationen liefert.

DTF · 3. November 2024, 08:34

kafffee schrieb:

Überseh ich etwas?

Quellcode

DWORD speakers;
DWORD freq;
} BASS_INFO;

Schau mal was da in der Doku steht. Allein schon speakers, 1 = Mono, 2 = Stereo, 3 = 2.1(L/R/LFE), 4 = quadrofonie, 6 = 5.1 (RR/RL/FR/FL/C/LFE) etc.....

PS. Da scheint aber noch die Bittiefe zu fehlen, also doch Basswasapi:
BASS_WASAPI_GetDeviceInfo und BASS_WASAPI_INFO
bass.radio42.com/help/html/e0e…a2b-0787-2fdd26115c38.htm
bass.radio42.com/help/html/689…3f9-5955-ef6edc5fce27.htm

kafffee · 3. November 2024, 12:45

Schaut mal Leute was ich gefunden hab, da gibts noch eine Funktion .BASS_RecordGetInfo:

un4seen.com/doc/#bass/BASS_RecordGetInfo.html

Hab das hier draus gemacht, aber ich bekomm für ParseDeviceInfo immer eine leere Liste zurück. Weiss jemand was ich falsch mach? Debug.Writeline gibt erstmal keinen Fehler zurück...

VB.NET-Quellcode

Private Sub GentInfo()
Bass.BASS_RecordInit(GeraetIndex)
Dim info As BASS_RECORDINFO = Bass.BASS_RecordGetInfo()
Debug.WriteLine("recordinfo: " & Bass.BASS_ErrorGetCode.ToString)
Qualitaet = ParseDeviceInfo(info)
End Sub
Private Function ParseDeviceInfo(argInfo As BASS_RECORDINFO) As List(Of String)
Dim retList As New List(Of String)
If argInfo.WaveFormat.HasFlag(BASSRecordFormat.WAVE_FORMAT_1M08) Then retList.Add("11025 Hz, Mono, 8 Bit")
If argInfo.WaveFormat.HasFlag(BASSRecordFormat.WAVE_FORMAT_1S08) Then retList.Add("11025 Hz, Stereo, 8 Bit")
If argInfo.WaveFormat.HasFlag(BASSRecordFormat.WAVE_FORMAT_1M16) Then retList.Add("11025 Hz, Mono, 16 Bit")
If argInfo.WaveFormat.HasFlag(BASSRecordFormat.WAVE_FORMAT_1S16) Then retList.Add("11025 Hz, Stereo, 16 Bit")
If argInfo.WaveFormat.HasFlag(BASSRecordFormat.WAVE_FORMAT_2M08) Then retList.Add("22050 Hz, Mono, 8 Bit")
If argInfo.WaveFormat.HasFlag(BASSRecordFormat.WAVE_FORMAT_2S08) Then retList.Add("22050 Hz, Stereo, 8 Bit")
If argInfo.WaveFormat.HasFlag(BASSRecordFormat.WAVE_FORMAT_2M16) Then retList.Add("22050 Hz, Mono, 16 Bit")
If argInfo.WaveFormat.HasFlag(BASSRecordFormat.WAVE_FORMAT_2S16) Then retList.Add("22050 Hz, Stereo, 16 Bit")
If argInfo.WaveFormat.HasFlag(BASSRecordFormat.WAVE_FORMAT_4M08) Then retList.Add("44100 Hz, Mono, 8 Bit")
If argInfo.WaveFormat.HasFlag(BASSRecordFormat.WAVE_FORMAT_4S08) Then retList.Add("44100 Hz, Stereo, 8 Bit")
If argInfo.WaveFormat.HasFlag(BASSRecordFormat.WAVE_FORMAT_4M16) Then retList.Add("44100 Hz, Mono, 16 Bit")
If argInfo.WaveFormat.HasFlag(BASSRecordFormat.WAVE_FORMAT_4S16) Then retList.Add("44100 Hz, Stereo, 16 Bit")
Return retList
End Function

DTF · 3. November 2024, 15:34

Doku gucken! Du hast bestimmt was mit 48 KHz oder noch höher und dann matched nichts. Hat dir Intellisense denn nichts anderes vorgeschlagen?
bass.radio42.com/help/html/45b…2a8-383e-e160f32bf3ee.htm

kafffee · 3. November 2024, 15:41

Ja das hatte ich auch gedacht. Eigentlich hatte ich das geprüft, also nachgeschaut in der Soundsystemsteuerung, da hätte eigentlich zumindest das letzte matchen sollen.

Ich hab zwar auch in den Docs von Radio42 nachgeschaut und mich gewundert, wo denn die Flags mit den "höheren" Samplingraten bleiben, da scheine ich eine veraltete Seite angeschaut zu haben, ich hab nämlich komplett alle Flags eigentlich in meine Sub übertragen....

Ich probiers nochmal mit dem Flags von deiner Seite, vielleicht hab ich auch irgendwo einen DeviceIndex falsch....

DTF · 3. November 2024, 16:03

Schau auch noch mal mit Intellisense, meine Soundkarte unterstützt auch 192 KHz, die dortige Liste geht aber auch nur bis 96 KHz.

kafffee · 3. November 2024, 16:05

Gute Idee

-Franky- · 3. November 2024, 16:43

Auf die schnelle, weil Sonntag, zusammen gezimmert und alles in einer Form. Wie immer: Keine Referenzen oder NuGet-Pakete. Ermittelt die aktuell eingestellten Werte des Default Capture Devices. Interfaces, Enums, Structs usw sind teilweise unvollständig und enthalten nur das, was benötigt wird.

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class Form1
Private Const S_OK As Integer = 0
Private Const CLSID_MMDeviceEnumerator As String = "bcde0395-e52f-467c-8e3d-c4579291692e"
Private Const IID_IMMDeviceEnumerator As String = "a95664d2-9614-4f35-a746-de8db63617e6"
Private Const IID_IMMDevice As String = "d666063f-1587-4e43-81f1-b948e807363f"
Private Const IID_IPropertyStore As String = "886d8eeb-8cf2-4446-8d02-cdba1dbdcf99"
Private Const PKEY_AudioEngine_DeviceFormat_FMTID As String = "f19f064d-082c-4e27-bc73-6882a1bb8e4c"
Private Const PKEY_AudioEngine_DeviceFormat_PID As UInteger = 0
Private Enum EDATAFLOW As Integer
Render = 0
Capture = 1
All = 2
End Enum
Private Enum EROLE As Integer
Console = 0
Multimedia = 1
Communications = 2
End Enum
Private Enum STGM_ACCESS As Integer
Read = 0
Write = 1
ReadWrite = 2
End Enum
Private Enum VARENUM As UShort 'Unvollständig
VT_BLOB = 65
End Enum
<StructLayout(LayoutKind.Sequential, Pack:=1)>
Private Structure WAVEFORMATEX
Dim wFormatTag As UShort
Dim nChannels As UShort
Dim nSamplesPerSec As UInteger
Dim nAvgBytesPerSec As UInteger
Dim nBlockAlign As UShort
Dim wBitsPerSample As UShort
Dim cbSize As UShort
End Structure
Private Structure PROPERTYKEY
Dim fmtid As Guid
Dim pid As UInteger
End Structure
Private Structure CArray
Dim cElems As UInteger
Dim pElems As IntPtr
End Structure
<StructLayout(LayoutKind.Explicit, Size:=16)> 'Unvollständig
Private Structure PROPVARIANT
<FieldOffset(0)> Dim vt As VARENUM
<FieldOffset(2)> Dim wReserved1 As UShort
<FieldOffset(4)> Dim wReserved2 As UShort
<FieldOffset(6)> Dim wReserved3 As UShort
<FieldOffset(8)> Dim cArray As CArray
End Structure
<DllImport("Ole32.dll", EntryPoint:="PropVariantClear")>
<PreserveSig> Private Shared Function PropVariantClear(<[In]> ByRef pvar As PROPVARIANT) As Integer
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim MMDeviceEnumerator As IMMDeviceEnumerator = CType(Activator.CreateInstance(Type.GetTypeFromCLSID(New Guid(CLSID_MMDeviceEnumerator))), IMMDeviceEnumerator)
If MMDeviceEnumerator IsNot Nothing Then
Dim MMDevice As IMMDevice = Nothing
If MMDeviceEnumerator.GetDefaultAudioEndpoint(EDATAFLOW.Capture, EROLE.Multimedia, MMDevice) = S_OK Then
Dim PropertyStore As IPropertyStore = Nothing
If MMDevice.OpenPropertyStore(STGM_ACCESS.Read, PropertyStore) = S_OK Then
Dim PropKey As New PROPERTYKEY With {
.fmtid = New Guid(PKEY_AudioEngine_DeviceFormat_FMTID),
.pid = PKEY_AudioEngine_DeviceFormat_PID
}
Dim PropVar As New PROPVARIANT
If PropertyStore.GetValue(PropKey, PropVar) = S_OK Then
If PropVar.vt = VARENUM.VT_BLOB Then
Dim CurrentFormat As WAVEFORMATEX = CType(Marshal.PtrToStructure(PropVar.cArray.pElems,
GetType(WAVEFORMATEX)),
WAVEFORMATEX)
Debug.Print("Current Channels = " & CurrentFormat.nChannels.ToString)
Debug.Print("Current SamplesPerSec = " & CurrentFormat.nSamplesPerSec.ToString)
Debug.Print("Current BitsPerSample = " & CurrentFormat.wBitsPerSample.ToString)
End If
PropVariantClear(PropVar)
End If
Marshal.ReleaseComObject(PropertyStore)
End If
Marshal.ReleaseComObject(MMDevice)
End If
Marshal.ReleaseComObject(MMDeviceEnumerator)
End If
End Sub
<ComImport>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
<Guid(IID_IMMDeviceEnumerator)>
Private Interface IMMDeviceEnumerator
<PreserveSig> Function EnumAudioEndpoints() As Integer 'Dummy
<PreserveSig> Function GetDefaultAudioEndpoint(<[In]> dataFlow As EDATAFLOW,
<[In]> role As EROLE,
<Out, MarshalAs(UnmanagedType.Interface)> ByRef ppEndpoint As IMMDevice) As Integer
<PreserveSig> Function GetDevice() As Integer 'Dummy
<PreserveSig> Function RegisterEndpointNotificationCallback() As Integer 'Dummy
<PreserveSig> Function UnregisterEndpointNotificationCallback() As Integer 'Dummy
End Interface
<ComImport>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
<Guid(IID_IMMDevice)>
Private Interface IMMDevice
<PreserveSig> Function Activate() As Integer 'Dummy
<PreserveSig> Function OpenPropertyStore(<[In]> stgmAccess As STGM_ACCESS,
<Out, MarshalAs(UnmanagedType.Interface)> ByRef ppProperties As IPropertyStore) As Integer
<PreserveSig> Function GetId() As Integer 'Dummy
<PreserveSig> Function GetState() As Integer 'Dummy
End Interface
<ComImport>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
<Guid(IID_IPropertyStore)>
Private Interface IPropertyStore
<PreserveSig> Function GetCount() As Integer 'Dummy
<PreserveSig> Function GetAt() As Integer 'Dummy
<PreserveSig> Function GetValue(<[In]> ByRef pkey As PROPERTYKEY,
<Out> ByRef pv As PROPVARIANT) As Integer
<PreserveSig> Function SetValue() As Integer 'Dummy
<PreserveSig> Function Commit() As Integer 'Dummy
End Interface
End Class

Ansonsten: IMMDeviceEnumerator::EnumAudioEndpoints(EDataFlow, DeviceState) -> IMMDeviceCollection -> ::GetCount -> ::Item -> IMMDevice -> IMMDevice::OpenPropertyStore -> IPropertyStore -> ::GetCount -> ::GetAt falls Du alle Properties von allen Geräten, je nach DataFlow und DeviceState, auslesen möchtest.

kafffee · 4. November 2024, 13:31

@DTF

Der Fehler scheint in der bass.dll zu liegen, s. Screenshot. Aber echt komisch, ich hab sechs Aufnahmegeräte und bei keinem davon funktioniert es, den GeraeteIndex hab ich auch nochmal gecheckt...

@-Franky-

Ja ich brauch tatsächlich alle Eigenschaften von allen Geräten. Ich poste obiges Problem mal noch bei Un4Seen und wenn sich da herausstellt, dass das so nicht geht, dann probier ichs mal mit deinem.

-Franky- · 4. November 2024, 18:01

kafffee schrieb:

Ja ich brauch tatsächlich alle Eigenschaften von allen Geräten.

Über den IPropertyStore kann man schon diverse Eigenschaften, wie z.B. auch den Namen des Gerätes, auslesen. Ein paar PKeys dazu findest Du hier: learn.microsoft.com/en-us/wind…reaudio/device-properties bzw. hier: learn.microsoft.com/en-us/wind…audio-endpoint-properties Das was Du noch suchst könnte sich unter IMMDevice::Activate(IID_ISpatialAudioClient) -> ISpatialAudioClient -> ISpatialAudioClient::GetSupportedAudioObjectFormatEnumerator -> IAudioFormatEnumerator::GetCount/::GetFormat -> WAVEFORMATEX befinden. Hab das aber bisher selbst nicht benötigt. Daher keine Garantie das Du hier an alle möglichen Werte kommst, die Du auch unter Windows sehen kannst. Da hilft nur ausprobieren.

kafffee · 7. November 2024, 12:45

Okay ich hab mal mit Un4Seen Rücksprache gehalten, man kann ja die Member .freq für die Samplingrate hernehmen und .Channels wenn man wissen will ob Mono oder Stereo.

Die Bittiefe kann man wie ich das verstanden hab, selbst festlegen mit den Flags BASSFlag.BASS_DEFAULT (16 Bits) und BASSFlag.BASS_SAMPLE_8BITS (8 Bits).

Das genügt für meine Ansprüche völlig, dass man vom ausgewählten Aufnahmegerät die in der Systemsteuerung gesetzten Eigenschaften abfragen kann.

Das mit den WaveFormat-Flags funktioniert wohl nur auf sehr alten Windows-Versionen (Windows XP und älter).

Danke

Eingestellte Samplingrate, Bittiefe und Mono/Stereo von Aufnahmegerät ermitteln

Eingestellte Samplingrate, Bittiefe und Mono/Stereo von Aufnahmegerät ermitteln

kafffee schrieb:

kafffee schrieb:

kafffee schrieb:

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

kafffee schrieb:

Benutzer online 1

Ähnliche Themen

3 Benutzer haben hier geschrieben