Audiomixer Monitoring EIN/AUS schalten

[Der.Kaktus]

Hallo DP'ler,

habe folgendes Problem:

im Audiomixer (XP) besteht fuer einige Eingaenge(Line-IN/Micro) die Moeglichkeit, Monitoring zuzuschalten. Habe mir ueber das Example " TAudioMixer v1.70" eine Liste erstellt.

• 
  Destination Number : 1
  Destination Name : Aufnahme
  Destination Component Type : 0x7
  Destination Target Name : C-Media Rear Panel Audio
  Destination Target Type : 0x2
  Control Number : 0
  Control Name : Aufnahmequelle
  Control Control Type : 0x70010001
  MIXERCONTROL_CONTROLTYPE_MUX
  ....
  Connection Number : 4
  Connection Name : Line-In
  Connection Component Type : 0x1002
  Control Number : 0
  Control Name : Monitoring
  Control Control Type : 0x20010001
  Control Number : 1
  Control Name : Line-Eingangslautstärke
  Control Control Type : 0x50030001
  MIXERCONTROL_CONTROLTYPE_VOLUME

aktivieren...deaktivieren des Einganges bzw. Lautstaerke aendern..geht.
Wie kann ich aber Monitoring zuschalten (im Mixer geht es ja auch)? Hab nichts gefunden.

Danke im voraus.

P.S. nich so einfach..ich weiss *g*

[Der.Kaktus]

Wo bleiben die API Spezies? :(


Frohe Ostern!

[DeddyH]

Moin Kaki, wo hast Du die Kompo denn her? Über Google finde ich nur unleserliche (chinesische?) Seiten.

[edit] Alles klar, hab sie bei Torry gefunden. [/edit]

[Der.Kaktus]

DeddyH? Du willst eh nur :cheers: *kreisch*..abba danke Dir ;-)

[DeddyH]

Dank mir nicht zu früh, ich finde gar nix über Monitoring.

[edit] Auch das Beispielprogramm gibt mir nichts über Monitoring aus, anscheinend ist meine Soundkarte zu "billig" :? [/edit]

[Der.Kaktus]

meinst, ich wuerde ne Frage stellen die "einfach" iss? ;-)..kaempfe da seit Wochen mit

[Der.Kaktus]

...iss ja net dienstlich, aber mich interessierts;-)

[Der.Kaktus]

Hallo DP'ler,

habe, Dank Wishmaster eine Lösung gefunden. Hier mal der Quelltext..vielleicht braucht es ja mal wer.

[code=delphi]

uses MMSystem;

function GetMonitoring(
Mixer: hMixerObj;
var Control: TMixerControl): MMResult;
// Returns True on success
var
Line: TMixerLine;
Controls: TMixerLineControls;
begin
ZeroMemory(@Line, SizeOf(Line));
Line.cbStruct := SizeOf(Line);
Line.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_LINE; //LineIN
Result := mixerGetLineInfo(Mixer, @Line,
MIXER_GETLINEINFOF_COMPONENTTYPE);
if Result = MMSYSERR_NOERROR then
begin
ZeroMemory(@Controls, SizeOf(Controls));
Controls.cbStruct := SizeOf(Controls);
Controls.dwLineID := Line.dwLineID;
Controls.cControls := 1;
Controls.dwControlType := MIXERCONTROL_CONTROLTYPE_ONOFF; //checkbox 1 Monitoring unter Erw.
Controls.cbmxctrl := SizeOf(Control);
Controls.pamxctrl := @Control;
Result := mixerGetLineControls(Mixer, @Controls,
MIXER_GETLINECONTROLSF_ONEBYTYPE);
end;
end;

procedure SetMonitoringValue(
Mixer: hMixerObj;
Value: Boolean);
var
Monitoring: TMixerControl;
Details: TMixerControlDetails;
BoolDetails: TMixerControlDetailsBoolean;
Code: MMResult;
begin
Code := GetMonitoring(0, Monitoring);
if Code = MMSYSERR_NOERROR then
begin
with Details do
begin
cbStruct := SizeOf(Details);
dwControlID := Monitoring.dwControlID;
cChannels := 1;
cMultipleItems := 0;
cbDetails := SizeOf(BoolDetails);
paDetails := @BoolDetails;
end;
LongBool(BoolDetails.fValue) := Value;
Code := mixerSetControlDetails(0, @Details,MIXER_SETCONTROLDETAILSF_VALUE);
end;
if Code <> MMSYSERR_NOERROR then
raise Exception.CreateFmt('SetMonitoringValue failure, '+
'multimedia system error #%d',

Code:

);
end;




procedure TForm1.Button1Click(Sender: TObject);
var
  Monitoring: TMixerControl;
  Code: MMResult;
begin
  SetMonitoringValue(0,True);//TRUE=ON FALSE=OFF
end;