c++ - ATL COM-EnumWindows回调函数不适用于IDispatch::Invoke

我正在尝试为要包含在我的包装器dll中的EnumWindows API函数实现包装器功能，因此它可以与许多脚本语言一起使用。

首先，我必须使用VBScript对其进行测试。在我的有用研究的帮助下，我为EnumWindows实现了包装函数和回调函数，但它并没有按我的意愿工作。

这是我目前拥有的代码:
EnumWindows和EnumWindowsProc回调的包装函数:

BOOL CALLBACK EnumWindowsProc(__in HWND hWnd, __in LPARAM lParam) {

    LPENUMWINDOWSPARAMS pewParams;
    VARIANT vhWnd, vResult; HRESULT HR = S_OK;

    VariantInit(&vhWnd);
    VariantInit(&vResult);

    vhWnd.vt = VT_I4;
    vhWnd.lVal = (LONG)(LONG_PTR)hWnd;

    pewParams = reinterpret_cast<LPENUMWINDOWSPARAMS>(lParam);
    // ^ PASSING MY PARAMETERS THROUGH LPARAM

    CComVariant varArgs[2] = { &vResult, &vhWnd };
    DISPPARAMS Parameters = { &varArgs[0], NULL, 2, 0 };

    pewParams->DISPATCH->Invoke(0, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &Parameters, &vResult, NULL, NULL);
    // ^ I SUSPECT SOMETHING IS WRONG WITH THIS INVOKE METHOD. BUT IT RETURNS S_OK.

    if (vResult.vt != VT_BOOL) { HR = DISP_E_TYPEMISMATCH; }

    pewParams->CallbackResult.vt = VT_ERROR;
    pewParams->CallbackResult.scode = HR;

    if (HR == S_OK)
        return (vResult.boolVal == VARIANT_TRUE ? TRUE : FALSE);
    else
        return FALSE;
}

STDMETHODIMP CWinAPI::WinAPI_EnumWindows(VARIANT EnumFunc, int lParam, int *Result) {

    ENUMWINDOWSPARAMS ewParams; HRESULT HR = S_OK;

    switch (EnumFunc.vt)
    {
        case VT_DISPATCH:
            ewParams.DISPATCH = EnumFunc.pdispVal;
            break;

        case VT_VARIANT | VT_BYREF:
            if (EnumFunc.pvarVal->vt == VT_DISPATCH) { ewParams.DISPATCH = EnumFunc.pvarVal->pdispVal; }
            break;

        default: return DISP_E_TYPEMISMATCH;
    }

    ewParams.lParam = reinterpret_cast<LPVARIANT>(&lParam);

    *Result = (int)EnumWindows(EnumWindowsProc, reinterpret_cast<LPARAM>(&ewParams));

    HR = ewParams.CallbackResult.scode;

    return HR;
}

ENUMWINDOWSPARAMS结构:

typedef struct tagENUMWINDOWSPARAMS {
    LPDISPATCH DISPATCH;
    LPVARIANT lParam;
    VARIANT CallbackResult;
} ENUMWINDOWSPARAMS, *PENUMWINDOWSPARAMS, *LPENUMWINDOWSPARAMS;

这是我当前正在使用的测试VBScript:

Dim WINAPI: Set WINAPI = WScript.CreateObject("WinAPIWrapperLib.WINAPI")

Function EnumWindowsProc(HWND, lParam)
    WScript.Echo "Handle to the window: 0x" + CStr(UCase(Hex(HWND)))
    EnumWindowsProc = True
End Function

Dim Result: Result = WINAPI.WinAPI_EnumWindows(GetRef("EnumWindowsProc"), 0)
WScript.Echo "EnumWindows returned " + CStr(Result)

一件事有效，EnumWindows返回True。
但是，代替我的期望，我没有得到回声。
当我调用GetLastError时，它返回ERROR_SUCCESS。

在此先感谢您的帮助。

最佳答案

我解决了这个问题，没有做任何特别的事情，只是一个很小的变化:

像这样将varArgs的类型从CComVariant更改为VARIANT:

VARIANT varArgs[2] = { vResult, vhWnd };

更改了DISPPARAMS如下:

DISPPARAMS Parameters = {};
Parameters.cArgs = 2;
Parameters.rgvarg = varArgs;

Invoke方法仍然相同:

pewParams->DISPATCH->Invoke(0, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &Parameters, &vResult, NULL, NULL);

任何好的建议，我们将不胜感激。

关于c++ - ATL COM-EnumWindows回调函数不适用于IDispatch::Invoke，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/45385131/