Das Handle ist ungültig

[EWeiss]

Zitat von TiGü:

Erzeugst du die visuellen Elemente aufgrund der Größe des Rückgabewertes von TAudioVolume.GetSessionCount oder aufgrund der Länge des Arrays FAudioSessionList?

Sind diese Zeilen noch aktuell oder inzwischen auch geändert/auskommentiert?

Delphi-Quellcode:

 
  HR := pEnumerator.GetCount(FSessionCount);
  Succeeded(HR) then
   SetLength(FAudioSessionList, FSessionCount + 1);

aufgrund von des Arrays FAudioSessionList TAudioVolume.GetSessionCount deshalb das SCount
Es wurden so viele Elemente erstellt wie Session <> AudioSessionStateExpired

Also meine Änderung die ich aktuell verwende damit du nicht raten musst.. sorry.
Habe es mal mit deinem Schnipsel versucht das gleiche Spiel.
Nur als Gegenprobe zu meiner Version.

Delphi-Quellcode:

function TAudioVolume.GetSessionCount: integer;
var
  DeviceEnumerator: IMMDeviceEnumerator;
  SessionManager: IAudioSessionManager;
  SessionManager2: IAudioSessionManager2;
  AudioDevice: IMMDevice;
  SessionEnumerator: IAudioSessionEnumerator;
  SessionControl: IAudioSessionControl;
  SessionCount: Integer;
  HR: HResult;
begin

  Result := 0;
  SessionCount := 0;

  HR := CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_ALL, IID_IMMDeviceEnumerator, DeviceEnumerator);
  if Succeeded(HR) then
  begin
    HR := DeviceEnumerator.GetDefaultAudioEndpoint(eRender, eMultimedia, AudioDevice);
    if Succeeded(HR) then
    begin
      HR := AudioDevice.Activate(IID_IAudioSessionManager, CLSCTX_INPROC_SERVER, nil, IUnknown(SessionManager));
      if Succeeded(HR) then
      begin
        if Supports(SessionManager, IID_IAudioSessionManager2, SessionManager2) then
        begin
          HR := SessionManager2.GetSessionEnumerator(SessionEnumerator);
          if Succeeded(HR) then
          begin
            HR := SessionEnumerator.GetCount(SessionCount);
            if Succeeded(HR) then
            begin
              Setlength(FAudioSessionList, SessionCount + 1);
              Result := SessionCount;
            end;
            SessionControl := nil;
          end;
          SessionEnumerator := nil;
        end;
        SessionManager2 := nil;
      end;
      SessionManager := nil;
    end;
    AudioDevice := nil;
  end;
  DeviceEnumerator := nil;
end;

Delphi-Quellcode:

function TAudioVolume.GetSessionPID(Index: Integer; AudioDevice: IMMDevice): DWORD;
var
  SessionControl2: IAudioSessionControl2;
  SessionControl: IAudioSessionControl;
  pEnumerator: IAudioSessionEnumerator;
  PID: DWORD;
  HR: HResult;
begin
  Result := 0;

  if Assigned(SessionManager2) then
  begin
    HR := AudioDevice.Activate(IID_IAudioSessionManager2, CLSCTX_ALL, nil, IUnknown(SessionManager2)
      );
    if Succeeded(HR) then
    begin
      HR := SessionManager2.GetSessionEnumerator(pEnumerator);
      if Succeeded(HR) then
      begin
        HR := pEnumerator.GetSession(Index, SessionControl);
        if Succeeded(HR) then
        begin
          HR := SessionControl.QueryInterface(IAudioSessionControl2, SessionControl2);
          if Succeeded(HR) then
          begin
            HR := SessionControl2.GetProcessID(PID);
            if Succeeded(HR) then
              Result := PID;
          end;
        end;
      end;
    end;
  end;
end;

Bei deiner Version gibt mir sessioncount 0 zurück weil ich das AudioDevice neu initialisiere.

Nach jeden Neustart der Anwendung addiert sich der Count über SessionEnumerator.GetCount(SessionCount); um 1!
Das verstehe wer will.
Die Anzahl der Session unter Windows im, Mixer bleiben aber gleich.

gruss

[TiGü]

Zitat von EWeiss:

Nach jeden Neustart der Anwendung addiert sich der Count über SessionEnumerator.GetCount(SessionCount); um 1!
Das verstehe wer will.
Die Anzahl der Session unter Windows im, Mixer bleiben aber gleich.

Task Manager parallel öffnen und schauen, ob das Programm richtig beendet wird.

[EWeiss]

Zitat von TiGü:

Zitat von EWeiss:

Nach jeden Neustart der Anwendung addiert sich der Count über SessionEnumerator.GetCount(SessionCount); um 1!
Das verstehe wer will.
Die Anzahl der Session unter Windows im, Mixer bleiben aber gleich.

Task Manager parallel öffnen und schauen, ob das Programm richtig beendet wird.

Beim Debuggen?
Ist nicht nötig die IDE beendet sich dann ist das Programm garantiert auch beendet.

gruss

[TiGü]

Das Problem lässt sich mit Konsolenprogramm nicht nachvollziehen. Viel Spaß bei der Fehlersuche.

[EWeiss]

Zitat von TiGü:

Das Problem lässt sich mit Konsolenprogramm nicht nachvollziehen. Viel Spaß bei der Fehlersuche.

Danke Hab ja sonst nix zu tun

gruss

[HolgerX]

Hmm..

(Gerade erst hiermit beschäftigt )

Mal den Source vom Konsolenprogramm getestet und mir den Log in einem Memo ausgeben lassen.
Erweitert um die weiteren Infos aus IAudioSessionControl2/IAudioSessionControl.
Dann mal nen Timer angesetzt.

Ergebnis
(Getestet auf Win7 64bit mit D6)
- Windows scheint die AudioSessions zu cachen
- Nach 180 Sekunden (3 Minuten) werden die aus dem Cache entfernt.
- Eine aktive/existierende Session hat den State 1 (IAudioSessionControl.GetState())
- Wird die Applikation beendet, erhält diese umgehend den State 0, verbleibt aber in der Liste.
- Die PID der AudioSession gehört also zu keinem laufenden Process...

Resultat:
Es genügt nicht durch den Enum durchzulaufen und sich die PID über IAudioSessionControl2 zu holen, sondern es muss der State geprüft werden, da nur noch die PIDs gültig sind, welche einen State 1 haben.

Der Mixer wird nur die Apps anzeigen, welche State 1 haben (und zusätzlich den System).

Keine App läuft:

Zitat:

SessionCount: 1
---------------------------------------------------
SessionIdentifier: {0.0.0.00000000}.{8aa1d6e2-aca1-4ae5-a835-6c0dbea6b990}|#%b{A9EF3FD9-4240-455E-A4D5-F2B3301887B2}
InstanceIdentifier: {0.0.0.00000000}.{8aa1d6e2-aca1-4ae5-a835-6c0dbea6b990}|#%b{A9EF3FD9-4240-455E-A4D5-F2B3301887B2}|1%b#
ProcessId: 0
DisplayName: @%SystemRoot%\System32\AudioSrv.Dll,-202
IconPath: @%SystemRoot%\System32\AudioSrv.Dll,-203
IsSystemSoundsSession: 0
State: 0
---------------------------------------------------

VidPlayer gestartet:

Zitat:

SessionCount: 2
---------------------------------------------------
SessionIdentifier: {0.0.0.00000000}.{8aa1d6e2-aca1-4ae5-a835-6c0dbea6b990}|\Device\HarddiskVolume2\Tools\playwi n.exe%b{00000000-0000-0000-0000-000000000000}
InstanceIdentifier: {0.0.0.00000000}.{8aa1d6e2-aca1-4ae5-a835-6c0dbea6b990}|\Device\HarddiskVolume2\Tools\playwi n.exe%b{00000000-0000-0000-0000-000000000000}|1%b4048
ProcessId: 4048
DisplayName:
IconPath:
IsSystemSoundsSession: 1
State: 1
---------------------------------------------------
SessionIdentifier: {0.0.0.00000000}.{8aa1d6e2-aca1-4ae5-a835-6c0dbea6b990}|#%b{A9EF3FD9-4240-455E-A4D5-F2B3301887B2}
InstanceIdentifier: {0.0.0.00000000}.{8aa1d6e2-aca1-4ae5-a835-6c0dbea6b990}|#%b{A9EF3FD9-4240-455E-A4D5-F2B3301887B2}|1%b#
ProcessId: 0
DisplayName: @%SystemRoot%\System32\AudioSrv.Dll,-202
IconPath: @%SystemRoot%\System32\AudioSrv.Dll,-203
IsSystemSoundsSession: 0
State: 0
---------------------------------------------------

VidPlayer beendet:

Zitat:

SessionCount: 2
---------------------------------------------------
SessionIdentifier: {0.0.0.00000000}.{8aa1d6e2-aca1-4ae5-a835-6c0dbea6b990}|\Device\HarddiskVolume2\Tools\playwi n.exe%b{00000000-0000-0000-0000-000000000000}
InstanceIdentifier: {0.0.0.00000000}.{8aa1d6e2-aca1-4ae5-a835-6c0dbea6b990}|\Device\HarddiskVolume2\Tools\playwi n.exe%b{00000000-0000-0000-0000-000000000000}|1%b4048
ProcessId: 4048
DisplayName:
IconPath:
IsSystemSoundsSession: 1
State: 0
---------------------------------------------------
SessionIdentifier: {0.0.0.00000000}.{8aa1d6e2-aca1-4ae5-a835-6c0dbea6b990}|#%b{A9EF3FD9-4240-455E-A4D5-F2B3301887B2}
InstanceIdentifier: {0.0.0.00000000}.{8aa1d6e2-aca1-4ae5-a835-6c0dbea6b990}|#%b{A9EF3FD9-4240-455E-A4D5-F2B3301887B2}|1%b#
ProcessId: 0
DisplayName: @%SystemRoot%\System32\AudioSrv.Dll,-202
IconPath: @%SystemRoot%\System32\AudioSrv.Dll,-203
IsSystemSoundsSession: 0
State: 0
---------------------------------------------------

Nach 3 Minuten:

Zitat:

SessionCount: 1
---------------------------------------------------
SessionIdentifier: {0.0.0.00000000}.{8aa1d6e2-aca1-4ae5-a835-6c0dbea6b990}|#%b{A9EF3FD9-4240-455E-A4D5-F2B3301887B2}
InstanceIdentifier: {0.0.0.00000000}.{8aa1d6e2-aca1-4ae5-a835-6c0dbea6b990}|#%b{A9EF3FD9-4240-455E-A4D5-F2B3301887B2}|1%b#
ProcessId: 0
DisplayName: @%SystemRoot%\System32\AudioSrv.Dll,-202
IconPath: @%SystemRoot%\System32\AudioSrv.Dll,-203
IsSystemSoundsSession: 0
State: 0
---------------------------------------------------

[EWeiss]

Zitat:

Resultat:
Es genügt nicht durch den Enum durchzulaufen und sich die PID über IAudioSessionControl2 zu holen, sondern es muss der State geprüft werden, da nur noch die PIDs gültig sind, welche einen State 1 haben.

Holger das tue ich doch.. bitte siehe folgenden Schnipsel hoffe er reicht.

Delphi-Quellcode:

              HR := SessionControl2.GetProcessID(PID);
              if Succeeded(HR) then
              begin
                HR := SessionControl2.GetState(State);
                if Succeeded(HR) then
                begin
                  if State <> uint(TAudioSessionState.AudioSessionStateExpired) then
                    Result := PID;
                end;
              end;

Mein Problem ist das mit jedem erneuten start der Counter von
SessionEnumerator.GetCount(SessionCount);
um 1 erhöht wird.
Damit addiere ich Aktive und inaktive Session.

Das bekomme ich erst gar nicht es fehlt mir warum auch immer.

Zitat:

SessionCount: 1
---------------------------------------------------
SessionIdentifier: {0.0.0.00000000}.{8aa1d6e2-aca1-4ae5-a835-6c0dbea6b990}|#%b{A9EF3FD9-4240-455E-A4D5-F2B3301887B2}
InstanceIdentifier: {0.0.0.00000000}.{8aa1d6e2-aca1-4ae5-a835-6c0dbea6b990}|#%b{A9EF3FD9-4240-455E-A4D5-F2B3301887B2}|1%b#
ProcessId: 0
DisplayName: @%SystemRoot%\System32\AudioSrv.Dll,-202
IconPath: @%SystemRoot%\System32\AudioSrv.Dll,-203
IsSystemSoundsSession: 0
State: 0

gruss