Lautstärkeregler für LineIn

[Aike]

Hallo,

ich habe das Forum durchstöbert, aber leider konnto ich nichts zum LineIn-Eingang finden. Über den LineIn höre ich momentan Radio aus meinem Sateliten-Receiver, allerdings möchte ich mir manchmal auch meine MP3s anhören, und dann stört es mich, wenn ich extra den Receiver ausschalten muss oder den Windows-Regler aufrufen muss, weswegen ich dafür einen einfachen Button möchte.

Bei swissdelphicenter habe ich nichts gefunden, auch bei Torry wurde ich nicht fündig. Habt ihr vielleicht noch eine Idee, was ich machen könnte?

Wie immer sehr dankbar,
Aike

[edit]Torry's "TmVolCtrl v.1.0" hat bei mir nicht funktioniert. Ich bekomme beim ersten Beispiel in beiden Textfeldern 0, obwohl keiner meiner Regler bei 0% oder 100% ist.[/edit]

[turboPASCAL]

Was für eine Win.-Version und was für eine Delphiversion hast du denn ?
Schau auch mal ob dein LineIn nicht auf Mute steht.

[Steve]

Hi,

such mal nach folgenden Begriffen: Mixer Mixer mixerOpenmixerOpen und ähnliches...

Gruß
Stephan

[gothic_mike]

Hallo,

versuch mal diese Komponentensammlung: http://www.delphiarea.com/products/waveaudio/!
Der Mixer (TAudioMixer) ist eigentlich ganz gut...

[Aike]

Also ...
1. Hab ich schon alle durch.
2. Versteh ich nicht. Das (MSDN) könnte vielleicht interessant sein, aber ich verstehe nicht, was da steht
3. & 4. liefern leider das selbe Ergebnis :-/

Ich brauche ausführlichere Hilfe

Oh, du hast geantwortet, während ich hier lan und breit meine Antwort schreibe
Ich habe die Komponente(n) ausprobiert. Der Mixer kann wirklich viel, aber ich sehe keine Möglichkeit, damit irgendwas einzustellen *seufz* Ich fühl mich echt schlecht Keine der Proporties scheint einen sinnvollen Wert zu haben und man kann irgendwie mit der Komponente weder etwas ändern noch auslesen :-/ (btw. hab ich mir die ReadMe durchgelesen. Nein, ich versteh's trotzdem nicht )

[bitsetter]

Moin,

also ich habe jetzt einen Link gefunden und zwar der hier:
LineIn

Bei mir hat der Code unter WinXP jedenfalls funktioniert. Der Aufruf der Funktion lautet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var MixerCtrlID: DWord;
begin
  MixerCtrlID := GetMixerControlID(MIXERLINE_COMPONENTTYPE_SRC_LINE);
  
  //Beispiele
  SetVolume(MixerCtrlID, 65535);//Maximal
  SetVolume(MixerCtrlID, 32768);//50 %
  SetVolume(MixerCtrlID, 0);//Minimal
  
end;

Ich hoffe mal, dass das auch bei dir hilft.

EDIT:

Zitat von Aike:

Klasse, für den LineIn funktioniert das einwandfrei Allerdings hab ich den Code eingefügt, compiliert, Knopf gedrückt und wäre fast vom Stuhl gefallen, weil 100% *dermaßen* laut war

Damit keiner vom Stuhl fällt, habe ich jetzt minimal zum Schluss gesetzt.

[Aike]

Klasse, für den LineIn funktioniert das einwandfrei Allerdings hab ich den Code eingefügt, compiliert, Knopf gedrückt und wäre fast vom Stuhl gefallen, weil 100% *dermaßen* laut war

Kann ich irgendwie mit der Funktion auch die anderen Regler ansteuern? Wenn ja, wie lauten da die Parameter?

[edit]Lass mich raten:
MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE für das Mikro,
MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC für die CD und so weiter Steht zumindest so in der MMSystem.
[/edit]

[turboPASCAL]

Wenn du auch die Lautstärke "holen" möchtest, gibt es da die Fortsetzung.