🚀 go-pugleaf

Hi,

I'm trying to set the microphone-input-volume and converted a piece of 
delphi-code for cpp-builder.

There is only one problem: It dosn't work :-(

Do You have any clue, whats wrong?

Thanks in advance
Michael Kutscher


Here is the code

bool SetMicrophoneVolume(DWORD bValue)
{
   HMIXER hMix;
   MIXERLINECONTROLS mxlc;
   MIXERCONTROLDETAILS mxcd;
   MIXERCONTROLDETAILS_UNSIGNED vol ;
   MIXERCONTROL mxc ;
   MIXERLINE mxl ;
   int intRet;
   int nMixerDevs;
   // Check if Mixer is available
   // �berpr�fen, ob ein Mixer vorhanden
   nMixerDevs = mixerGetNumDevs();
   if (nMixerDevs < 1) return false;

   // open the mixer
   intRet = mixerOpen(&hMix, 0, 0, 0, 0);
   if (intRet == MMSYSERR_NOERROR)
   {
     ZeroMemory(&mxl,sizeof(mxl));
     mxl.dwComponentType = MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;
     mxl.cbStruct = sizeof(mxl);

     // get line info
     intRet = mixerGetLineInfo(hMix, &mxl, 
MIXER_GETLINEINFOF_COMPONENTTYPE);

     if (intRet == MMSYSERR_NOERROR)
     {
       ZeroMemory(&mxlc, sizeof(mxlc));
       mxlc.cbStruct = sizeof(mxlc);
       mxlc.dwLineID = mxl.dwLineID;
       mxlc.dwControlType = MIXERCONTROL_CONTROLTYPE_VOLUME;
       mxlc.cControls = 1;
       mxlc.cbmxctrl = sizeof(mxc);

       mxlc.pamxctrl = &mxc;
       intRet = mixerGetLineControls(hMix, &mxlc, 
MIXER_GETLINECONTROLSF_ONEBYTYPE);

       if (intRet == MMSYSERR_NOERROR)
       {
        // Microphone Name
        Form1->Label1->Caption = mxlc.pamxctrl->szName;
        vol.dwValue = bValue;

         // Min/Max Volume
         //Form1->Label2->Caption = IntToStr(mxc.Bounds.dwMinimum) + 
"->" + IntToStr(mxc.Bounds.dwMaximum);
         ZeroMemory(&mxcd, sizeof(mxcd));
         mxcd.dwControlID = mxc.dwControlID;
         mxcd.cbStruct = sizeof(mxcd);
         mxcd.cMultipleItems = 0;
         mxcd.cbDetails = sizeof(vol);
         mxcd.paDetails = &vol;
         mxcd.cChannels = 1;

         // vol.dwValue := mxlc.pamxctrl.Bounds.lMinimum; Set min. 
Volume           // Minimum setzen



         // vol.dwValue := mxlc.pamxctrl.Bounds.lMaximum; Set max. 
Volume // Maximum setzen

         intRet = mixerSetControlDetails(hMix, &mxcd, 
    MIXER_SETCONTROLDETAILSF_VALUE);
         if (intRet != MMSYSERR_NOERROR)
           ShowMessage("SetControlDetails Error");

//  I get Error 1025 here and nothing happens :-(



       }
       else
         ShowMessage("GetLineInfo Error");
     }
     intRet = mixerClose(hMix);
   }
   return intRet;
}