Audiovolume - Balance bzw. Kanal-Lautstärke setzen

[EWeiss]

Zitat von jaenicke:

Da hat sich nichts geändert. Die Definition, die im Internet für Delphi oft kursiert, ist schlicht falsch.

Aber nicht die in TAudioVolume.

Zitat:

Für die Deklarationen der Interfaces MMDevApi.pas verwenden, dann funktioniert es.

Und woher kommt die?

gruss

[samso]

Zitat von EWeiss:

Und woher kommt die?

Berechtigte Frage. Nach den postings von mm1256 und jaenicke habe ich den Eindruck gewonnen, als würde MMDevApi.pas mit Delphi mitgeliefert werden. Das ist bei mir nicht der Fall. Habe ich einen Fehler in der Installation?

[EWeiss]

Zitat von samso:

Zitat von EWeiss:

Und woher kommt die?

Berechtigte Frage. Nach den postings von mm1256 und jaenicke habe ich den Eindruck gewonnen, als würde MMDevApi.pas mit Delphi mitgeliefert werden. Das ist bei mir nicht der Fall. Habe ich einen Fehler in der Installation?

NÖ denke nicht die kommt garantiert von TAudioVolume. (Denke ich mal)

gruss

[jaenicke]

Zitat von EWeiss:

Zitat von jaenicke:

Da hat sich nichts geändert. Die Definition, die im Internet für Delphi oft kursiert, ist schlicht falsch.

Aber nicht die in TAudioVolume.

Nein, in der dort mitgelieferten Version ist alles korrekt.

Aber unter dem oben geposteten Link zu Stackoverflow wird z.B. bei SetChannelVolumeLevel als Typ für fLevelDB double benutzt. Laut Dokumentation ist es aber ein float und kein double, d.h. in Delphi auch Single und nicht double.

[t.roller]

Mit der TWindowsMediaPlayer-Komponente geht das auch:
MUTE, BALANCE, VOLUME.

Delphi-Quellcode:

type
    WMP1: TWindowsMediaPlayer;
...
procedure TForm1.bnMUTEClick(Sender: TObject);
begin
if WMP1.settings.mute then WMP1.settings.mute:=FALSE else WMP1.settings.mute:= TRUE;
end;

procedure TForm1.tbBALANCEChange(Sender: TObject); // TrackBar -10000 to 10000
begin
WMP1.settings.balance:= tbBALANCE.Position;
tbBALANCE.SelStart:= tbBALANCE.Position -500;
tbBALANCE.SelEnd:= tbBALANCE.Position +500;
end;

procedure TForm1.tbVOLUMEChange(Sender: TObject); // TrackBar 0 to 100
begin
WMP1.settings.volume:= tbVOLUME.Position;
tbVOLUME.SelStart:= 0;
tbVOLUME.SelEnd:=  tbVOLUME.Position;
end;