VARIANT 에서 객체 추출하기

IDispatch* GetDispatchPtr(VARIANT &var)
{
    VARIANT *pvar = &var;
    IDispatch* pdisp = NULL;

    if (var.vt == (VT_BYREF | VT_VARIANT)) {              // 1
        pvar = var.pvarVal;
    }

    if (pvar->vt == (VT_BYREF | VT_DISPATCH)) {           // 2
        pdisp = *pvar->ppdispVal;
    }
    else if (pvar->vt == VT_DISPATCH) {                   // 3
        pdisp = pvar->pdispVal;
    }

    return pdisp;
}

ex)
ADODB::_RecordsetPtr sp(GetDispatchPtr(var));

VB에서 Host 객체를 Early Binding 으로 호출 (컴포넌트를 참조한후 실행할 때..)
=> 3번만 호출

VB에서 Host 객체를 Late Binding 으로 호출 (CreateObejct 사용..)
=> 2번만 호출

VBScript 에서 Host 객체를 Late Binding 으로 호출 (VBScript 에서는 Late Binding만 지원)
=> 1번, 3번 호출