TAudioVolume Komponente incl. System Mixer

[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

[TiGü]

Also in meiner Beispielapplikation mit dem Memo erhälst du OnSessionCreated?

[EWeiss]

Zitat von TiGü:

Also in meiner Beispielapplikation mit dem Memo erhälst du OnSessionCreated?

Ja ohne Probleme.

gruss

[TiGü]

Schreib einfach alles nochmal neu!

[EWeiss]

Zitat von TiGü:

Schreib einfach alles nochmal neu!

Dir ist schon klar das du dein Sample nicht mit meiner Anwendung bzw. TAudioVolume vergleichen kannst oder?
Du tust doch praktisch nichts .. bis auf ein paar Zeilen im Memo Auszugeben und das alles in der gleichen Anwendung bzw. Thread!

Und die Herangehendweise ist komplett unterschiedlich.
Erstelle mit deinem Sample Komponente und verwende einen externen zusätzlichen Thread dann sehen wir ob es immer noch funktioniert was ich bezweifeln möchte.
Es macht nur sinn sich an die Vorgaben bzw. TAudioVolume zu halten alles andere ist Augenwischerei da es nicht die gleiche Basis verwendet.

Aber wie gesagt mache erst mal pause.
Bis auf 1 > 2 Leute interessiert es nicht wirklich jemand von daher

Aber! Es funktioniert trotzdem auch ohne neu zu schreiben nur du verstehst einfach nicht warum das so ist.
Eine Konsolen oder Memo Anwendung ist einfach nichtssagend was glaubst du eigentlich was bei dir abgeht wenn du dich in anderen Threads befindest?
Nichts mehr!

gruss