L
LPO
Hi,
What the solution to convert this code, please ?
Thank's a lot for response
LPO
SAFEARRAYBOUND sabIn[1];
SAFEARRAY *psaInParms= NULL;
sabIn[0].cElements= 4;
sabIn[0].lLbound= 0;
psaInParms= ::SafeArrayCreate(VT_VARIANT, 1, sabIn);
SAFEARRAYBOUND sabOut[1];
SAFEARRAY *psaOutParms= NULL;
sabOut[0].cElements= 4;
sabOut[0].lLbound= 0;
psaOutParms= ::SafeArrayCreate(VT_VARIANT, 1, sabOut);
VARIANT vInParms;
::VariantInit(&vInParms);
VARIANT vOutParms;
::VariantInit(&vOutParms);
V_VT(&vInParms)= VT_ARRAY | VT_BYREF | VT_VARIANT;
V_VT(&vOutParms)= VT_ARRAY | VT_BYREF | VT_VARIANT;
V_ARRAYREF(&vInParms)= &psaInParms;
V_ARRAYREF(&vOutParms)= &psaOutParms;
:utBSTRElement(psaInParms, 0, CComBSTR(L"")); // D: Returning Status
:utBSTRElement(psaInParms, 1, ConvertStringToBSTR(szXmlInput)); // I:
What the solution to convert this code, please ?
Thank's a lot for response
LPO
SAFEARRAYBOUND sabIn[1];
SAFEARRAY *psaInParms= NULL;
sabIn[0].cElements= 4;
sabIn[0].lLbound= 0;
psaInParms= ::SafeArrayCreate(VT_VARIANT, 1, sabIn);
SAFEARRAYBOUND sabOut[1];
SAFEARRAY *psaOutParms= NULL;
sabOut[0].cElements= 4;
sabOut[0].lLbound= 0;
psaOutParms= ::SafeArrayCreate(VT_VARIANT, 1, sabOut);
VARIANT vInParms;
::VariantInit(&vInParms);
VARIANT vOutParms;
::VariantInit(&vOutParms);
V_VT(&vInParms)= VT_ARRAY | VT_BYREF | VT_VARIANT;
V_VT(&vOutParms)= VT_ARRAY | VT_BYREF | VT_VARIANT;
V_ARRAYREF(&vInParms)= &psaInParms;
V_ARRAYREF(&vOutParms)= &psaOutParms;
:utBSTRElement(psaInParms, 0, CComBSTR(L"")); // D: Returning Status
:utBSTRElement(psaInParms, 1, ConvertStringToBSTR(szXmlInput)); // I: