求助:vb代码转delphi

Question

Dim pWorkspaceFactory As IWorkspaceFactorySet pWorkspaceFactory = New ShapefileWorkspaceFactory请问以上代码怎样转为deiphi,谢谢!

Answer 1

MSDN上似乎找不到IWorkspaceFactory这个接口吧？不讨论接口是否存在，这里假设接口存在var
  spDisp: IDispatch;
  pWorkspaceFactory : IWorkspaceFactory
begin
  //Init spDisp here...
  // <to do>
  spDisp.QueryInterface(IWorkspaceFactory, pWorkspaceFactory);
end;上面代码只是一个提要，实际编译肯定通不过，因为在<to do>这里需要为spDisp指定实例对象