Ich bekomme die Values beider Kanäle nicht auf die Trackbar umgelegt.
Meine Ausgangs function.
Delphi-Quellcode:
function TAudioVolume.GetMasterBalance(): integer;
var
HR: HResult;
f: Single;
i: Integer;
Chans: Uint;
Channels: TChannels;
MasterVolPos: Integer;
begin
Result := (tbMasterVolume.Max div 2); //Center 100% für alles
if AudioEndpointVolume = nil then
exit;
HR := AudioEndpointVolume.GetChannelCount(Chans);
if HR = S_OK then
begin
if Chans < 2 then
exit;
end else
exit;
MasterVolPos := round(GetMasterVolume * tbMasterVolume.Max);
for i := 0 to Chans - 1 do
begin
HR := AudioEndpointVolume.GetChannelVolumeLevelScalar(i, f);
if HR = S_OK then
begin
case i of
0:
Channels.LeftVol := f;
1:
Channels.RightVol := f;
end;
end;
end;
Result := ???
end;
Ich habe jetzt 3 Werte die auf die Trackbar.Position umgelegt werden müssen.
1. MasterVol
Ändert sich dieser Wert dann passen sich die Werte der Kanäle entsprechend der Gesamtlautstärke an.
2. linker Kanal
Ändert sich die Gesamtlautstärke passt sich der Gesamtwert des linken Kanal an. Dieser soll dann die linke hälfte der Maximalen Value der Trackbar einnehmen.
3. rechte Kanal
Quasi das gleiche wie beim linken Kanal nur das hier die rechte hälfte der Maximalen Value der Trackbar dafür zuständig ist.
Die Maximale Value der Trackbar sollte sich dabei nicht verändern so das wenn als bsp.
Die Gesamtlautstärke 50% beträgt, dann ist der linke und rechte Kanal ebenfalls 50 % die Trackbar soll dann trotzdem zentriert sein.
Bin im Moment etwas überfordert das alles der Trackbar.Position zu zuweisen.
Jemand Interesse zu helfen?
PS:
Denke habe auch im ersten Beitrag noch einen Fehler da hier das MasterVol nicht mit berücksichtigt wird.
gruss