Problem using waveInOpen from VB.NET

[Fred Loud]

I'm having a problem calling waveInOpen from a VB.NET application, every time
I call it I get a return value of 11 which is MMSYSERR_INVALP ARAM.

I can call waveInGetNumDev s and waveInGetDevCap s just fine. Below is the
format of the waveInOpen call and WaveFormatEx structure.

<DllImport("win mm.dll", SetLastError:=F alse, ExactSpelling:= True)> _
Public Shared Function waveInOpen(ByVa l lphWaveIn As Int32 _
, ByVal uDeviceID As Int32 _
, ByRef lpFormat As APIStructures.W aveFormatEx _
, ByVal dwCallback As Int32 _
, ByVal dwInstance As Int32 _
, ByVal dwFlags As Int32) As Int32
End Function

<StructLayout(L ayoutKind.Seque ntial, CharSet:=CharSe t.Auto, Pack:=1)> _
Public Structure WaveFormatEx
Public FormatTag As Int16
Public Channels As Int16
Public SamplesPerSec As Int32
Public AvgBytesPerSec As Int32
Public BlockAlign As Int16
Public BitsPerSample As Int16
Public ExtraDataSize As Int16
End Structure

A sample solution is available upon request. Any help would be much
appreciated.

--
Fred Loud
MCP

[Mattias Sjögren]

Fred,

<DllImport("wi nmm.dll", SetLastError:=F alse, ExactSpelling:= True)> _
Public Shared Function waveInOpen(ByVa l lphWaveIn As Int32 _
, ByVal uDeviceID As Int32 _
, ByRef lpFormat As APIStructures.W aveFormatEx _
, ByVal dwCallback As Int32 _
, ByVal dwInstance As Int32 _
, ByVal dwFlags As Int32) As Int32
End Function

Try it like this

<DllImport("win mm.dll", SetLastError:=F alse, ExactSpelling:= True)> _
Public Shared Function waveInOpen(ByRe f lphWaveIn As IntPtr _
, ByVal uDeviceID As IntPtr _
, ByRef lpFormat As APIStructures.W aveFormatEx _
, ByVal dwCallback As IntPtr _
, ByVal dwInstance As IntPtr _
, ByVal dwFlags As Int32) As Int32
End Function

Mattias

--
Mattias Sjögren [MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.

[Fred Loud]

Thanks for the change, I updated the app to use IntPtr for the device handle
instead of Int32s and it worked the first time.

Thanks again for the hugh help!
--
Fred Loud
MCP
"Mattias Sjögren" wrote:

Fred,

<DllImport("wi nmm.dll", SetLastError:=F alse, ExactSpelling:= True)> _
Public Shared Function waveInOpen(ByVa l lphWaveIn As Int32 _
, ByVal uDeviceID As Int32 _
, ByRef lpFormat As APIStructures.W aveFormatEx _
, ByVal dwCallback As Int32 _
, ByVal dwInstance As Int32 _
, ByVal dwFlags As Int32) As Int32
End Function

Try it like this

<DllImport("win mm.dll", SetLastError:=F alse, ExactSpelling:= True)> _
Public Shared Function waveInOpen(ByRe f lphWaveIn As IntPtr _
, ByVal uDeviceID As IntPtr _
, ByRef lpFormat As APIStructures.W aveFormatEx _
, ByVal dwCallback As IntPtr _
, ByVal dwInstance As IntPtr _
, ByVal dwFlags As Int32) As Int32
End Function

Mattias

--
Mattias Sjögren [MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.