Delphi-PRAXiS - Delphi 2ter Mixer Mikrofon auf Null setzen

Hallo zusammen

Ich muss ein Problem lösen. Das Mikrofon soll bei vielen verschiedenen Laptops abgeschaltet sein um die "Sicherheit" zu erhöhen. (Flashplayer etc.) Da per Service oder Treiber offenbar keine Umsetzung möglich ist, kam die Idee auf, einfach das Mikrofon jede Sekunde auf Stumm zu schalten oder den Pegel auf Null zu ziehen....

Die unten gelistete Funktion habe ich im Web gefunden. Sie funktioniert auch, - auf einem alten PC der das Mikrofon und alle anderen Regler in EINEM Mixer zur Verfügung stellt. Die meisten Mixer auf neuen Geräten kommen aber zweifach daher. Getrennt in Input und Output.

Hier mein bisheriger Erkenntnisstand.

Delphi-Quellcode:

			  // open the mixer   0 gleich der default Mixer, normalerweise Input...

  // Mixer öffnen

  intRet := mixerOpen(@hMix, 0, 0, 0, 0);

  if intRet = MMSYSERR_NOERROR then

Ich kann die "0" durch die "1" ersetzen, soweit ist der Errorcode noch "0" beim Öffnen des Mixers.

Beim nächsten Step

Delphi-Quellcode:

			 intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);

 if intRet = MMSYSERR_NOERROR then

wird für intRet bei Anwesenheit von zwei Mixern eine "11" zurückgeliefert.

Hat jemand eine Idee wie man unfallfrei an den zweiten Mixer und das dortige Mikrofon herankommt ?

Vielen Dank im voraus.

Delphi-Quellcode:

			// Hier die ganz Funktion

function SetMicrophoneVolumeMute(bMute: Boolean): Boolean;

var

  hMix: HMIXER;

  mxlc: MIXERLINECONTROLS;

  mxcd: TMIXERCONTROLDETAILS;

  vol: TMIXERCONTROLDETAILS_UNSIGNED;

  mxc: MIXERCONTROL;

  mxl: TMixerLine;

  intRet: Integer;

  nMixerDevs: Integer;

  mcdMute: MIXERCONTROLDETAILS_BOOLEAN;

begin

  // Check if Mixer is available

  // Überprüfen, ob ein Mixer vorhanden ist

  nMixerDevs := mixerGetNumDevs();

  if (nMixerDevs < 1) then

  begin

    Exit;

  end;

  // open the mixer   0 gleich der default Mixer, normalerweise Input...

  // Mixer öffnen

  intRet := mixerOpen(@hMix, 0, 0, 0, 0);

  if intRet = MMSYSERR_NOERROR then

  begin

    mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;

    mxl.cbStruct        := SizeOf(mxl);

    // mixerline info

    intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);

    if intRet = MMSYSERR_NOERROR then

    begin

      ZeroMemory(@mxlc, SizeOf(mxlc));

      mxlc.cbStruct := SizeOf(mxlc);

      mxlc.dwLineID := mxl.dwLineID;

      mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;

      mxlc.cControls := 1; //wieso eine 1 ?

      mxlc.cbmxctrl := SizeOf(mxc);

      mxlc.pamxctrl := @mxc;

      // Get the mute control

      // Mute control ermitteln

      intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);

      if intRet = MMSYSERR_NOERROR then

      begin

        ZeroMemory(@mxcd, SizeOf(mxcd));

        mxcd.cbStruct := SizeOf(TMIXERCONTROLDETAILS);

        mxcd.dwControlID := mxc.dwControlID;

        mxcd.cChannels := 1;

        mxcd.cbDetails := SizeOf(MIXERCONTROLDETAILS_BOOLEAN);

        mxcd.paDetails := @mcdMute;

        mcdMute.fValue := Ord(bMute); //1 für schalter auf gesetzt

        // set, unset mute

        // Stumsschalten ein/aus

        intRet := mixerSetControlDetails(hMix, @mxcd,

          MIXER_SETCONTROLDETAILSF_VALUE);

          {

          mixerGetControlDetails(hMix, @mxcd,

                                 MIXER_GETCONTROLDETAILSF_VALUE);

          Result := Boolean(mcdMute.fValue);

          }

        Result := intRet = MMSYSERR_NOERROR;

        if intRet <> MMSYSERR_NOERROR then

          ShowMessage('SetControlDetails Error');

      end

      else

        ShowMessage('GetLineInfo Error');

    end;

    intRet := mixerClose(hMix);

  end;

end;

[edit=mkinzler]Delphi-Tags eingefügt Mfg, mkinzler[/edit]