求如何在delphi中使用DirectShow中的 IAMErrorLog

[lightrain]

在Delphi中实现了一个DirectShow的DES程序，现在发现程序有些小问题，想使用DirectShow中提供的错误回调机制进行查看，但不知如何才能正确使用，请大侠支招。

确切的说，应该是如何将C＋＋类翻译成Delphi的代码，该类是DirectShow中的一个示例，类如下：

类声明
class CErrReporter : public IAMErrorLog
{
 protected:
    long m_lRef; // reference count
 public:
    CErrReporter() { m_lRef = 0; }
    // IUnkown
    STDMETHOD( QueryInterface( REFIID, void** ) );
    STDMETHOD_(ULONG, AddRef() );
    STDMETHOD_(ULONG, Release() );
    // IAMErrorLog
    STDMETHOD( LogError(...) );
}

部分实现
STDMETHOD CErrReporter::QueryInterface( REFIID riid, void **ppv )
{
   if( ppv == NULL ) return E_POINTER;
   
   *ppv = NULL;
   if( riid == IID_IUnknown )
      *ppv = static_cast<IUnknown*>(this);
   else if( riid == IID_IAMErrorLog )
      *ppv = static_cast<IAMErrorLog*>(this);
   else
      return E_NOINTERFACE;

   AddRef();
   return S_OK;
}

....

谢谢，分不够的话可另外开贴。

[xjq2003]

来学习一下，