求代码，牛牛进~~~

[fj182]

1、访问IDispatch接口的Invoke方法，实现类似于CallByName的功能。要求支持引用参数，且效率高。
2、通过访问IDispatch接口获得任意对象的类型库信息。

以上要求不能使用TypeInfoLib,我用的是 Edanmo's OLE interfaces(http://www.mvps.org/emorcillo/download/vb6/tl_ole.zip),因为本人对COM底层不了解，故求大家帮忙。

[fj182]

分不够在加啊，我从来都不吝啬的，别让帖子沉了。

[zzyong00]

只能帮顶了

[vbman2003]

我是猪猪
帮顶学习
^_^

[yachong]

搬个板凳学习

[fj182]

不会吧？偶的人品没有问题呀，咋只有人学没有人教呢？

[VirtualDesktop]

http://www.mvps.org/emorcillo/download/vb6/invoke.zip

[VirtualDesktop]

http://www.mvps.org/emorcillo/en/code/vb6/index.shtml

[fj182]

多谢楼上兄弟支持，不过这个代码我也看过，不支持ByRef。

[fj182]

晕，自己顶

[嗷嗷叫的老马]

............帮顶

等版主们来看看吧

[vbman2003]

不懂哎，只能帮顶

[fj182]

唉！冷冷清清，凄凄惨惨戚戚。

[fj182]

其中第一个问题就是这段代码转成VB的。
STDMETHOD(GetIDsOfNames)(REFIID riid, LPOLESTR* rgszNames, UINT cNames,
LCID lcid, DISPID* rgdispid)
{
//TODO
// add "call" function to object methods
// use DISPID_EVALUATE for this method

// if the first string id "call" then DISPID_EVALUATE
// pass rgszNames+1 to object

HRESULT hr(S_OK);

if (_bstr_t(rgszNames[0]) == _bstr_t("Call")){

// rgszNames doesn't contain the function name you need
// because it is passed a parameter value
// named arguments may not be resolved when used with Call() function

// just answer DISPID_EVALUATE for Call method ...
rgdispid[0]=DISPID_EVALUATE;
for (UINT i(1);i<cNames;i++) {
rgdispid[i]=DISPID_UNKNOWN;
}

if (cNames>1)
return DISP_E_UNKNOWNNAME;
else
return S_OK;

}
else {

return m_pDisp->GetIDsOfNames(riid, rgszNames, cNames, lcid, rgdispid);

}

}

STDMETHOD(Invoke)(DISPID dispidMember, REFIID riid,
LCID lcid, WORD wFlags, DISPPARAMS* pdispparams, VARIANT* pvarResult,
EXCEPINFO* pexcepinfo, UINT* puArgErr)
{
//TODO
// also, add ISupportErrorInfo to the contained dispatch

if (wFlags & DISPATCH_METHOD && dispidMember==DISPID_EVALUATE) {
// call() function is being called ...
// NW: the function name may not be passed as a named parameter
// Call() doesn't work for puting properties ...
// ... the value should be passed as a named argument with DISPID_EVALUATE

// find out dispidMember
HRESULT hr(S_OK);
// last element in rgvarg contains the first argument (i.e. the method name)
_bstr_t sMember = _variant_t(pdispparams->rgvarg[pdispparams->cArgs-1]);
BSTR bstrMember = sMember;

hr = m_pDisp->GetIDsOfNames(riid,&bstrMember, 1, lcid, &dispidMember);

//lower cArgs by 1
pdispparams->cArgs--;
return m_pDisp->Invoke(dispidMember, riid, lcid, wFlags, pdispparams, pvarResult, pexcepinfo, puArgErr);

} else {

// otherwise, behave as usual ...
return m_pDisp->Invoke(dispidMember, riid, lcid, wFlags, pdispparams,
pvarResult, pexcepinfo, puArgErr);
}
}

[fj182]

这段代码来自ms's DispInvoker

[嗷嗷叫的老马]

我要蹭分~~~~~~~~~~~~~~~~

[fj182]

唉！都不知道该如何揭帖了。

[kmlxk0]

高科技啊高科技......

[WM_JAWIN]

呵,楼上都是牛人哪!好多星星在上面闪呀~~

[VirtualDesktop]

不会呀...........................

[fj182]

哎，又没戏了