Type a page name and press Enter. You'll jump to the page if it exists, or you can create it if it doesn't.
To create a page in a module other than winmm, prefix the name with the module name and a period.
Declare Auto Function waveOutGetDevCaps Lib "winmm.dll" (ByVal uDeviceID as Integer, ByRef lpCaps As WAVEOUTCAPS, _
ByVal uSize As Integer) As Integer
Constants Used:
Public Const C_MAXPNAMELEN As Integer = 32
Public Const WAVE_MAPPER As Integer = -1 'Specifies default device ID
Structures Used:
VB.NET 2005 - Use the following structure: WAVEOUTCAPS
<Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential, CharSet:=Runtime.InteropServices.CharSet.Auto)> _
Public Structure WAVEOUTCAPS
Public wMid As Short
Public wPid As Short
Public vDriverVersion As Integer
<System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=32)> _
Public szPname As String
Public dwFormats As Integer
Public wChannels As Short
Public wReserved As Short
Public dwSupport As Integer
End Structure
C# 2005 version of structure
[System.Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential, CharSet = System.Runtime.InteropServices.CharSet.Auto)]
public struct WAVEOUTCAPS
{
public short wMid;
public short wPid;
public int vDriverVersion;
[MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst = 32)]
public string szPname;
public int dwFormats;
public short wChannels;
public short wReserved;
public int dwSupport;
}
Alternative Managed API:
Do you know one? Please contribute it!
Notes:
Remember to have the strings marshaled as ByValTStr with size of 32.
Use "Auto" in the Declare statement to have the correct character set selected automatically.
Tips & Tricks:
Please add some!
Sample Code:
Sub ShowDeviceCaps()
Dim i As Integer
Dim wc As New WAVEOUTCAPS
MsgBox("Number of Wave Devices: " & waveOutGetNumDevs(), , "WAVE DEVICES")
For i = 0 To waveOutGetNumDevs() - 1
' waveOutGetDevCaps(i, wc, Len(wc))
waveOutGetDevCaps(i, wc, System.Runtime.InteropServices.Marshal.SizeOf(wc))
MsgBox("MID = " & wc.wMid & Chr(13) & "PID = " & wc.wPid & Chr(13) & "Version = " & _
wc.vDriverVersion & Chr(13) & "Name = " & wc.szPname & Chr(13) & "Formats = " & wc.dwFormats & _
Chr(13) & "Channels = " & wc.wChannels, , "Device ID = " & i + 1)
Next i
End Sub
C# Code
public class WaveIO
{
/// <summary>
///
/// </summary>
[System.Runtime.InteropServices.StructLayout(System.Runtime.InteropServices.LayoutKind.Sequential, Pack = 4)]
public struct WAVEOUTCAPS
{
public const uint _MarshalSizeConst = 80;
public short wMid;
public short wPid;
public int vDriverVersion;
[System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst = 32)]
private byte[] szPname;
public uint dwFormats;
public short wChannels;
public short wReserved;
public uint dwSupport;
public override string ToString()
{
return string.Format("wMid:{0}|wPid:{1}|vDriverVersion:{2}|szPname:{3}|dwFormats:{4}|wChannels:{5}|wReserved:{6}|dwSupport:{7}", new object[] { wMid, wPid, vDriverVersion, Name, dwFormats, wChannels, wReserved, dwSupport });
}
public string Name
{
get
{
return System.Text.UnicodeEncoding.Unicode.GetString(szPname);//Convert to unicode if it's unicode platform...
}
}
}
/// <summary>
///
/// </summary>
[System.Runtime.InteropServices.StructLayout(System.Runtime.InteropServices.LayoutKind.Sequential, Pack = 4)]
public struct WAVEINCAPS
{
public const uint _MarshalSizeConst = 80;
public short wMid;
public short wPid;
public int vDriverVersion;
[System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst = 32)]
private byte[] szPname;
public uint dwFormats;
public short wChannels;
public short wReserved;
//public int dwSupport;
public override string ToString()
{
return string.Format("wMid:{0}|wPid:{1}|vDriverVersion:{2}|szPname:{3}|dwFormats:{4}|wChannels:{5}|wReserved:{6}", new object[] { wMid, wPid, vDriverVersion, Name, dwFormats, wChannels, wReserved });
}
public string Name
{
get
{
return System.Text.UnicodeEncoding.Unicode.GetString(szPname);//Convert to unicode if it's unicode platform...
}
}
}
public static WAVEOUTCAPS[] GetDevCapsPlayback()
{
uint waveOutDevicesCount = waveOutGetNumDevs();
if (waveOutDevicesCount > 0)
{
WAVEOUTCAPS[] list = new WAVEOUTCAPS[waveOutDevicesCount];
for (int uDeviceID = 0; uDeviceID < waveOutDevicesCount; uDeviceID++)
{
WAVEOUTCAPS waveOutCaps = new WAVEOUTCAPS();
waveOutGetDevCaps(uDeviceID, ref waveOutCaps, (uint)System.Runtime.InteropServices.Marshal.SizeOf(typeof(WAVEOUTCAPS))+32);
System.Diagnostics.Debug.WriteLine("\n" + waveOutCaps.ToString());
list[uDeviceID] = waveOutCaps;
}
return list;
}
else
{
return null;
}
}
public static WAVEINCAPS[] GetDevCapsRecording()
{
uint waveInDevicesCount = waveInGetNumDevs();
if (waveInDevicesCount > 0)
{
WAVEINCAPS[] list = new WAVEINCAPS[waveInDevicesCount];
for (int uDeviceID = 0; uDeviceID < waveInDevicesCount; uDeviceID++)
{
WAVEINCAPS waveInCaps = new WAVEINCAPS();
waveInGetDevCaps(uDeviceID, ref waveInCaps, (uint) System.Runtime.InteropServices.Marshal.SizeOf(typeof(WAVEINCAPS)) + 32);
System.Diagnostics.Debug.WriteLine("\n" + waveInCaps.ToString());
list[uDeviceID] = waveInCaps;
}
return list;
}
else
{
return null;
}
}
helpful tips or sample code to share for using this API in managed code?
corrections to the existing content?
variations of the signature you want to share?
additional languages you want to include?
Select "Edit This Page" on the right hand toolbar and edit it! Or add new pages containing supporting types needed for this API (structures, delegates, and more).
Revisions