3

下面的代码在 Delphi XE2 Win32 下编译并在 Win 7 64 位下运行，执行“AudioSessionManager2.GetSessionEnumerator”行时产生以下异常：

“Project22.exe 引发异常类 $C0000005 并带有消息‘在 0x7027edb2 处的访问冲突：写入地址 0x0051ced6’”

我对异常类或它们的含义缺乏了解，因此我不知道异常的含义或如何修复它。

这是引发异常的代码（用于调试代码的断言）：

var
  HRES: HRESULT;
  DeviceEnumerator: IMMDeviceEnumerator;
  DefaultDevice: IMMDevice;
  AudioSessionManager2: IAudioSessionManager2;
  Enumerator: IAudioSessionEnumerator;
begin

  CoInitialize( nil );

  HRES := CoCreateInstance( CLSID_MMDeviceEnumerator, nil, CLSCTX_ALL, IID_IMMDeviceEnumerator, DeviceEnumerator );
  Assert( Succeeded( HRES ) );

  HRES := DeviceEnumerator.GetDefaultAudioEndpoint( eRender, eMultimedia, DefaultDevice );
  Assert( Succeeded( HRES ) );

  HRES := DefaultDevice.Activate( IID_IAudioSessionManager2, CLSCTX_ALL, nil, IUnknown( AudioSessionManager2 ) );
  Assert( Succeeded( HRES ) );

  HRES := AudioSessionManager2.GetSessionEnumerator( Enumerator );  // <- EXCEPTION HERE
  Assert( Succeeded( HRES ) );

  [snip]

我在 Google Code 上使用来自 MFPack的核心音频定义，IAudioSessionManager2 和 IAudioSessionEnumerator 接口如下所示：

IAudioSessionManager2 = interface(IUnknown)
['{77AA99A0-1BD6-484F-8BC7-2C654C9A9B6F}']
  function GetSessionEnumerator(out SessionEnum: IAudioSessionEnumerator): HResult; stdcall;
  function RegisterSessionNotification(SessionNotification: IAudioSessionNotification): HResult; stdcall;
  function UnregisterSessionNotification(SessionNotification: IAudioSessionNotification): HResult; stdcall;
  function RegisterDuckNotification(const sessionID: LPCWSTR; const duckNotification: IAudioVolumeDuckNotification): HResult; stdcall;
  function UnregisterDuckNotification(const duckNotification: IAudioVolumeDuckNotification): HResult; stdcall;
end;

IAudioSessionEnumerator = interface(IUnknown)
['{E2F5BB11-0570-40CA-ACDD-3AA01277DEE8}']
  function GetCount(out SessionCount: integer): HResult; stdcall;
  function GetSession(const SessionCount: integer; out Session: IAudioSessionControl): HResult; stdcall;
end;

我相信接口定义正确，我还仔细检查了 GUID。

由于在 Visual Studio 2012（Win32 项目）下按预期执行相同的指令序列，我怀疑问题出在我的代码（这里有点疑问）、Core Audio 接口定义或 Delphi 上。在 VS 中运行的 C++ 代码如下：

IMMDeviceEnumerator *DeviceEnumerator = NULL;
IMMDevice* DefaultDevice = NULL;
IAudioSessionManager2* AudioSessionManager = NULL;
IAudioSessionEnumerator* Enumerator = NULL;
HRESULT HR;

HR = CoCreateInstance( __uuidof(MMDeviceEnumerator), NULL, CLSCTX_ALL, __uuidof(IMMDeviceEnumerator), (void**)&DeviceEnumerator );
HR = DeviceEnumerator->GetDefaultAudioEndpoint( eRender, eMultimedia, &DefaultDevice );
HR = DefaultDevice->Activate( __uuidof(IAudioSessionManager2), CLSCTX_ALL, NULL,(void**)&AudioSessionManager );
HR = AudioSessionManager->GetSessionEnumerator( &Enumerator );

使用 C++ 代码，我可以正确检索会话枚举器并使用 GetCount 等。

我花了无数个小时试图找出我的代码出了什么问题，但我仍然一无所知，所以任何帮助将不胜感激。

4

1 回答 1

6

根据 MSDN，IAudioSessionManager2应该继承自IAudioSessionManager：

type
  IAudioSessionManager2 = interface(IAudioSessionManager)
  ...
于 2012-10-04T09:22:20.290 回答