VB Forum / Win API / May 2007

Hi,
I'm using the class clsvolume (on gssg.de -
vbclassic-multimedia-volume1) since years for adjusting volume-levels.
Using W2K SP4

Changed now mainboard and CPU, put on the new drivers, didn't bring up
the whole system new. Everything words fine except the above mentioned
Api. I'm using the old soundcard as PCI-card, the new board has sound
on board.
When I disable onboard-sound in the bios, everythings ok, otherwise
the error as described occurs:

'open the mixer:
rc = mixerOpen(hMixer, 0, 0, 0, 0) 'ist ok

'then Get the waveout volume control

  mxl.cbStruct = Len(mxl)  'mxl as mixerline defined (s.b.)
  mxl.dwComponentType = MIXERLINE_COMPONENTTYPE_DST_SPEAKERS
  rc = mixerGetLineInfo(hMixer, mxl, MIXER_GETLINEINFOF_COMPONENTTYPE)

rc returns 11 here, that is
Private Const MMSYSERR_INVALPARAM As Long = (MMSYSERR_BASE + 11).

later calls for this api with:

mxl.dwComponentType = MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE
mxl.dwComponentType = MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT
mxl.dwComponentType = MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC
mxl.dwComponentType = MIXERLINE_COMPONENTTYPE_SRC_LINE

return NO_ERROR

I cannot understand this behaviour. Can anybody explain me what to do?

Thanks in advance! TH

Private Type MIXERLINE
    cbStruct As Long                  '  size of MIXERLINE structure
    dwDestination As Long             '  zero based destination index
    dwSource As Long                  '  zero based source index (if
source)
    dwLineID As Long                  '  unique line id for mixer device
    fdwLine As Long                   '  state/information about line
    dwUser As Long                    '  driver specific information
    dwComponentType As Long           '  component Private Type line
connects to
    cChannels As Long                 '  number of channels line supports
    cConnections As Long              '  number of connections (possible)
    cControls As Long                 '  number of controls at this line
    szShortName As String * MIXER_SHORT_NAME_CHARS
    szName As String * MIXER_LONG_NAME_CHARS
    dwType As Long
    dwDeviceID As Long
    wMid  As Integer
    wPid As Integer
    vDriverVersion As Long
    szPname As String * MAXPNAMELEN
End Type