mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
96 lines
2.7 KiB
96 lines
2.7 KiB
//
|
|
// MODULE: VariantBuilder.cpp
|
|
//
|
|
// PURPOSE: implementation of the CVariantBuilder class. Allows us to construct
|
|
// a pair of arrays for the name-value pairs to be passed to RunQuery. This lets
|
|
// JScript sanely use a system that was mostly designed for VB Script.
|
|
//
|
|
// PROJECT: Troubleshooter 99
|
|
//
|
|
// COMPANY: Saltmine Creative, Inc. (206)-284-7511 [email protected]
|
|
//
|
|
// AUTHOR: Joe Mabel
|
|
//
|
|
// ORIGINAL DATE: 02.01.99
|
|
//
|
|
// NOTES:
|
|
// Implementation of CTSHOOTCtrl
|
|
//
|
|
// Version Date By Comments
|
|
//--------------------------------------------------------------------
|
|
// V3.1 02.01.99 JM
|
|
|
|
|
|
#include "stdafx.h"
|
|
#include "VariantBuilder.h"
|
|
|
|
#ifdef _DEBUG
|
|
#undef THIS_FILE
|
|
static char THIS_FILE[]=__FILE__;
|
|
#define new DEBUG_NEW
|
|
#endif
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
// Construction/Destruction
|
|
//////////////////////////////////////////////////////////////////////
|
|
|
|
CVariantBuilder::CVariantBuilder()
|
|
{
|
|
VariantInit(&m_varCommands);
|
|
VariantInit(&m_varValues);
|
|
VariantInit(&m_varCommandsWrap);
|
|
VariantInit(&m_varValuesWrap);
|
|
|
|
V_VT(&m_varCommands) = VT_ARRAY | VT_BYREF | VT_VARIANT;
|
|
V_VT(&m_varValues) = VT_ARRAY | VT_BYREF | VT_VARIANT;
|
|
V_ARRAYREF(&m_varCommands) = &m_psafearrayCmds;
|
|
V_ARRAYREF(&m_varValues) = &m_psafearrayVals;
|
|
|
|
V_VT(&m_varCommandsWrap) = VT_BYREF | VT_VARIANT;
|
|
V_VT(&m_varValuesWrap) = VT_BYREF | VT_VARIANT;
|
|
|
|
V_VARIANTREF(&m_varCommandsWrap) = &m_varCommands;
|
|
V_VARIANTREF(&m_varValuesWrap) = &m_varValues;
|
|
|
|
SAFEARRAYBOUND sabCmd;
|
|
sabCmd.cElements = k_cMaxElements;
|
|
sabCmd.lLbound = 0;
|
|
SAFEARRAYBOUND sabVal = sabCmd;
|
|
|
|
// create two vectors of VARIANTs to wrap BSTRs
|
|
m_psafearrayCmds = SafeArrayCreate( VT_VARIANT, 1, &sabCmd);
|
|
m_psafearrayVals = SafeArrayCreate( VT_VARIANT, 1, &sabVal);
|
|
|
|
m_cElements = 0;
|
|
}
|
|
|
|
CVariantBuilder::~CVariantBuilder()
|
|
{
|
|
SafeArrayDestroy(m_psafearrayCmds);
|
|
SafeArrayDestroy(m_psafearrayVals);
|
|
|
|
VariantClear(&m_varCommands);
|
|
VariantClear(&m_varValues);
|
|
VariantClear(&m_varCommandsWrap);
|
|
VariantClear(&m_varValuesWrap);
|
|
}
|
|
|
|
// effectively, add a name-value pair to the arrays.
|
|
// If the array is full (which should never happen in the real world) silently fails.
|
|
void CVariantBuilder::SetPair(BSTR bstrCmd, BSTR bstrVal)
|
|
{
|
|
if (m_cElements < k_cMaxElements)
|
|
{
|
|
VariantInit(&m_pvarCmd[m_cElements]);
|
|
VariantInit(&m_pvarVal[m_cElements]);
|
|
V_VT(&m_pvarCmd[m_cElements]) = VT_BSTR;
|
|
V_VT(&m_pvarVal[m_cElements]) = VT_BSTR;
|
|
m_pvarCmd[m_cElements].bstrVal=bstrCmd;
|
|
m_pvarVal[m_cElements].bstrVal=bstrVal;
|
|
|
|
SafeArrayPutElement(m_psafearrayCmds, &m_cElements, &m_pvarCmd[m_cElements]);
|
|
SafeArrayPutElement(m_psafearrayVals, &m_cElements, &m_pvarVal[m_cElements]);
|
|
|
|
++m_cElements;
|
|
}
|
|
}
|