使用 DSPack 从文件加载 directshow 过滤器

Question

如何使用 DSPack 在 delphi7 中加载未由 .ax 文件注册的 DirectShow 过滤器？ 我找到了an example in C++，不知道怎么翻译成Delphi。

Answer 1

Here you go:

function LoadFilter(const Fhandle: HMODULE; clis: TGUID): IBaseFilter; overload;
Var
  DllGetClassObject: Function(Const clsid, IID: TGUID; Var Obj)
    : HRESULT; STDCALL;
  ClassF: IClassFactory;
Begin
  result := nil;
  try
    If Fhandle = 0 Then
      exit;
    // NOTE: Fhandle is typically obtained as a result of LoadLibrary API
    //       call loading DLL hosting the DirectShow filter
    DllGetClassObject := GetProcAddress(Fhandle, 'DllGetClassObject');
    DllGetClassObject(clis, IClassFactory, ClassF);
    if assigned(ClassF) then
    begin
      if ClassF.CreateInstance(nil, IID_IBaseFilter, result) = ERROR_SUCCESS
      then
        exit;
    end;
  except
    exit;
  end;
end;