关于派遣接口 ( 积分: 300 )

知道了一个接口，还有派遣接口，及接口事件，如何使用呢？
代码如下：
type
_XXX_Services = interface;
_XXX_ServicesDisp = dispinterface;
__XXX_Services = dispinterface;

_XXX_Services = interface(IDispatch)
['{XXXXXXXXXXXXXXXXXXXXXXXXXXXXX}']
...
procedure A; safecall;
end;

_XXX_ServicesDisp = dispinterface
['{XXXXXXXXXXXXXXXXXXXXXXXXXXXXX}']
...
procedure A; dispid 1;
end;

__XXX_Services = dispinterface
['{XXXXXXXXXXXXXXXXXXXXXXXXXXXXX}']
...
procedure B; dispid 2;
end;
........

我用CreateOleObject('_XXX_Services');能够使用procedure A
但如何调用__XXX_Services中的procedure B呢？

分不成问题，只要能教会我

来学习，帮你顶！~