TAudioVolume Komponente incl. System Mixer

[EWeiss]

Projekt entfernt..

[TiGü]

Zitat von EWeiss:

Nebenbei.. Ich war selber schon auf der gleichen Seite habe aber wegen meiner schlechten English Kenntnisse das nicht richtig verstanden.
Aber Larry.. sollte es wissen er hat das Teil ja mit entwickelt.

Nutze https://www.deepl.com/translator
Das spuckt für oben zitierten Abschnitt folgendes aus:

Zitat:

Die erste ist, dass seine Anwendung die aktuelle Liste der Sitzungen nicht abgerufen hat. Dies ist eines der wirklich subtilen Dinge über die Session Enumeration APIs. Um eine Wettlaufsituation zu verhindern, die auftreten kann, wenn eine Sitzungsbenachrichtigung eintrifft, während die Anwendung mit den Sitzungs-APIs gestartet wird, verwirft die Sitzungsaufzählungs-API neue Sitzungsbenachrichtigungen, bis die Anwendung zuerst die Liste der vorhandenen Sitzungen abgerufen hat.

Das erwartete Nutzungsverhalten ist:

Anwendung aktiviert einen Session-Manager2. Anwendungsregister für Sitzungsbenachrichtigungen. Die Anwendung ruft die aktuelle Liste der Sitzungen für den Endpunkt ab und speichert die Sitzungssteuerungsobjekte in einer Liste (vergessen Sie nicht, die Sitzung hinzuzufügen).

Wenn ein neuer Modus erstellt wird, nimmt die Anwendung eine Referenz auf das neu erstellte Session-Control-Objekt und fügt es in die Liste ein, falls es noch nicht vorhanden ist. Beachten Sie, dass das in die Benachrichtigung übergebene Sitzungssteuerungsobjekt zerstört wird, wenn die Sitzungsbenachrichtigung zurückkehrt - wenn Sie GetSessionEnumerator an dieser Stelle aufrufen, wird es wahrscheinlich NICHT die neu erstellte Sitzung halten (es könnte sein, es hängt alles vom Timing ab).

Ist nicht perfekt, aber gut verständlich.

[EWeiss]

Zitat:

Ist nicht perfekt, aber gut verständlich.

Jo Danke hab sonst immer Google Translator verwendet der taugt nicht sonderlich viel.
Aber zur not tat er es auch.

Habe gesehen du hast SysProp2 deaktiviert.. nur zur Info das funktioniert nicht mit D2010 da ist SysProp fehlerhaft.

gruss

[TiGü]

Zitat von EWeiss:

Habe gesehen du hast SysProp2 deaktiviert.. nur zur Info das funktioniert nicht mit D2010 da ist SysProp fehlerhaft.

Ja, Tokyo hat rumgezickt und es musste schnell gehen. Machs dir so wie du es brauchst.

[EWeiss]

Zitat von TiGü:

Zitat von EWeiss:

Habe gesehen du hast SysProp2 deaktiviert.. nur zur Info das funktioniert nicht mit D2010 da ist SysProp fehlerhaft.

Ja, Tokyo hat rumgezickt und es musste schnell gehen. Machs dir so wie du es brauchst.

Ist ja kein Problem man muss halt flexible sein
Ein Flag kann da wunder wirken.

{$IFDEF VER210} PropSys2 {$ELSE} PropSys {$ENDIF}
Habe es addiert.

gruss

[EWeiss]

Kleines Update..

PeakMeter gefixt.
GetMasterPeaks addiert
GetSessionPeaks addiert
Die Peaks werden jetzt abhängig vom Mute Status oder der Lautstärke OUTLINE, FILLED gezeichnet.

Delphi-Quellcode:

procedure TAudioVolume.GetMasterPeaks(var Master, MasterL, MasterR: Integer);
begin
  if Assigned(MasterMeter) then
  begin
    Master := MasterMeterPeak;
    MasterL := MasterMeterPeakL;
    MasterR := MasterMeterPeakR;
  end;
end;

So muss man in der Anwendung selbst sich nicht mehr darum kümmern.
Kümmere mich jetzt um die Events.

gruss

[EWeiss]

Zitat:

// hier ist der ganze magische Trick!!!
HR := SessionManager2.GetSessionEnumerator(SessionEnum);
// Musste rufen, sonst wird nicht notifiziert!

@TiGü
Wegen deinem Trick..
Du weist aber schon das ich genau das schon mache?

Hmmm....

Delphi-Quellcode:

    // We can get session enumerator if we use Windows 7 or newer system.
    if (Win32MajorVersion > 6) or ((Win32MajorVersion = 6) and (Win32MinorVersion >= 1)) then
    begin
      // Get the session manager2 for the endpoint device.
      HR := Device.Activate(IID_IAudioSessionManager2, CLSCTX_ALL, nil, IUnknown(SessionManager2));
      if HR <> S_OK then
        raise Exception.Create('Error : Unable to get AudioSessionManager2 Interface');

      // Register TAudioSessionNotification to receive a notification when a session is created.
      HR := SessionManager2.RegisterSessionNotification(self);
      if HR <> S_OK then
        raise Exception.Create('Error : Unable to Register Session Notification');

      // Get the session enumerator
      HR := SessionManager2.GetSessionEnumerator(SessionEnumerator); // <<<<<<<<
      if HR <> S_OK then
        raise Exception.Create('Error : Unable to get SessionEnumerator Interface');
    end;

gruss

[TiGü]

Hälst du denn die Instanz davon irgendwo oder wird die bei jeden Aufruf überschrieben?
Ist das eine der Methoden, der man eine IMMDevice-Instanz hineingibt?
So dass immer wieder neu GetSessionEnumerator aufgerufen wird?

Vergleiche mal mein Beispielprogramm wenn man GetSessionEnumerator auskommentiert.

Wenn auskommentiert: Kein OnSessionCreated. Wenn einkommentiert: OnSessionCreated wird befeuert!

[EWeiss]

Zitat von TiGü:

Hälst du denn die Instanz davon irgendwo oder wird die bei jeden Aufruf überschrieben?
Ist das eine der Methoden, der man eine IMMDevice-Instanz hineingibt?
So dass immer wieder neu GetSessionEnumerator aufgerufen wird?

Vergleiche mal mein Beispielprogramm wenn man GetSessionEnumerator auskommentiert.

Wenn auskommentiert: Kein OnSessionCreated. Wenn einkommentiert: OnSessionCreated wird befeuert!

Es ist diese.. und sie wird überschrieben wenn ein neues Control erstellt wird.
Unregistriert und neu registriert für das aktuelle Device.

Delphi-Quellcode:

function TAudioVolume.SetupDefaultAudioEndpoint(Device_Enumerator: IMMDeviceEnumerator): boolean;
var
  HR: HResult;
  MDevice: IMMDevice;
  hnsRequestedDuration: REFERENCE_TIME;
  pwfx: PWAVEFORMATEX;

begin
  Result := false;

  try
    // Get default audio endpoint device with the specified data-flow direction (eRender or eCapture)
    //  and device role.
    HR := Device_Enumerator.GetDefaultAudioEndpoint(eRender, eMultimedia, MDevice);
    if HR <> S_OK then
      raise Exception.Create('Error : Unable to get DefaultAudioEndpoint Device');

    FDefaultDevice := GetDeviceInfo(MDevice);
    Device := MDevice;

    // Get the session manager for the endpoint device.
    HR := Device.Activate(IID_IAudioSessionManager, CLSCTX_INPROC_SERVER, nil, IUnknown
        (SessionManager));
    if HR <> S_OK then
      raise Exception.Create('Error : Unable to get AudioSessionManager Interface');

    // **** Get the IChannelAudioVolume interface :
    HR := Device.Activate(IID_IAudioClient, CLSCTX_ALL, nil, IUnknown(AudioClient));
    if HR <> S_OK then
      raise Exception.Create('Error : Unable to get AudioClient Interface');

    hnsRequestedDuration := REFTIMES_PER_SEC;
    HR := AudioClient.GetMixFormat(pwfx);
    if HR <> S_OK then
      raise Exception.Create(
        'Error : Unable to retrieves the stream format that the audio engine uses');

    HR := AudioClient.Initialize(AUDCLNT_SHAREMODE_SHARED, 0, hnsRequestedDuration, 0, pwfx, nil);
    if HR <> S_OK then
      raise Exception.Create('Error : Unable to initialize AudioClient Interface');

    HR := AudioClient.GetService(IID_IChannelAudioVolume, IUnknown(ChannelAudioVolume));
    if HR <> S_OK then
      raise Exception.Create('Error : Unable to get ChannelAudioVolume Interface');

    // get SimpleAudioVolume
    HR := SessionManager.GetSimpleAudioVolume(nil, 0, SimpleAudioVolume);
    if HR <> S_OK then
      raise Exception.Create('Error : Unable to get SimpleAudioVolume Interface');

    // Get the control interface for the process-specific audio session.
    HR := SessionManager.GetAudioSessionControl(nil, false, SessionControl);
    if HR <> S_OK then
      raise Exception.Create('Error : Unable to get AudioSessionControl');

    // Register IAudioSessionEvents interface to receive notifications when session events occur.
    HR := SessionControl.RegisterAudioSessionNotification(self);
    if HR <> S_OK then
      raise Exception.Create('Error : Unable to Register Session Notification Event');

    // We can get session enumerator if we use Windows 7 or newer system.
    if (Win32MajorVersion > 6) or ((Win32MajorVersion = 6) and (Win32MinorVersion >= 1)) then
    begin
      // Get the session manager2 for the endpoint device.
      HR := Device.Activate(IID_IAudioSessionManager2, CLSCTX_ALL, nil, IUnknown(SessionManager2));
      if HR <> S_OK then
        raise Exception.Create('Error : Unable to get AudioSessionManager2 Interface');

      // Register TAudioSessionNotification to receive a notification when a session is created.
      HR := SessionManager2.RegisterSessionNotification(self);
      if HR <> S_OK then
        raise Exception.Create('Error : Unable to Register Session Notification');

      // Get the session enumerator
      HR := SessionManager2.GetSessionEnumerator(SessionEnumerator);
      if HR <> S_OK then
        raise Exception.Create('Error : Unable to get SessionEnumerator Interface');
    end;

    Result := true;
  finally

  end;
end;

Was ich mir vorstellen könnte das es an der falschen Position initialisiert wird.

gruss

[TiGü]

Zitat von EWeiss:

Es ist diese.. und sie wird überschrieben wenn ein neues Control erstellt wird.
Unregistriert und neu registriert für das aktuelle Device.

Delphi-Quellcode:

    // Get default audio endpoint device with the specified data-flow direction (eRender or eCapture)
    //  and device role.
    HR := Device_Enumerator.GetDefaultAudioEndpoint(eRender, eMultimedia, MDevice);
    if HR <> S_OK then
      raise Exception.Create('Error : Unable to get DefaultAudioEndpoint Device');

Larry sagt im verlinkten SO-Post:

Zitat:

You should also use the eConsole role instead of the eMultimedia role. It doesn't effectively matter (if you have only one audio device) but it's more correct

Halte dir testhalber mal die Instanzen von Device, SessionManager2 und SessionEnumerator in einer oder mehreren Listen. Siehe Beispielprogramm.
Vielleicht geht es dann.

[EWeiss]

Zitat:

Halte dir testhalber mal die Instanzen von Device, SessionManager2 und SessionEnumerator in einer oder mehreren Listen. Siehe Beispielprogramm.
Vielleicht geht es dann.

Die habe ich und befinden sich im Array.. also jedes Control hat einen eigenen Pointer auf den SessionEnumerator und SessionManager2.

Zitat:

You should also use the eConsole role instead of the eMultimedia role. It doesn't effectively matter (if you have only one audio device) but it's more correct

Hatte da schon mal versucht nachdem ich den Artikel gelesen habe.
Aber kann es nochmals testen. Danke.

EDIT:
Da ist kein Unterschied..
Im Moment ist die Luft raus muss mal ein paar Tage pause machen... komme zu keinen Ergebnis.
Bei dir geht es warum auch immer.

gruss