Forum: Multimedia
Delphi
by bitsetter,
23. Mär 2007
Bei meinem "Volume Control Panel" ist mir aufgefallen, dass der Balance Schieberegler vom Microfoneingang deaktiviert worden ist (siehe Bild). Das bedeutet wohl, dass zumindest mein Microfoneingang nur einen Kanal unterstützt. Daher war es naheliegend bei mxcd.cChannels = 1 einzutragen.
Bei Line In usw. funktioniert das übrigens auch.
Forum: Multimedia
Delphi
by bitsetter,
21. Mär 2007
Hallo,
also beim Microfoneingang habe ich es jetzt hinbekommen, das lag an mxcd.cChannels = 2 bei mir ging es nur mit mxcd.cChannels = 1.
Den Code habe ich jetzt so abgeändert, dass man den linken und rechten Kanal einzeln ansteuern kann, sofern es unterstützt wird.
Die beiden anderen Konstanten MIXERLINE_COMPONENTTYPE_DST_WAVEIN und
MIXERLINE_COMPONENTTYPE_DST_VOICEIN sehen ja etwas...
Forum: Multimedia
Delphi
by bitsetter,
16. Mär 2007
Hallo,
hier ist noch ein Link: (ganz nach unten scrollen)
GetVolume()
Davon brauchst du die Funktionen GetMixerControlID() und GetVolume().
Ein Beispiel für LineIn:
procedure TForm1.Button1Click(Sender: TObject);
begin
caption:= inttostr(GetVolume(GetMixerControlID(MIXERLINE_COMPONENTTYPE_SRC_LINE)));//LineIn