Function PyCom_MakeOlePythonCall

com/win32com/src/oleargs.cpp:1582–1632

}

BOOL PyCom_MakeOlePythonCall(PyObject *handler, DISPPARAMS FAR* params, VARIANT FAR* pVarResult,
	EXCEPINFO FAR* pexcepinfo, UINT FAR* puArgErr, PyObject *addnlArgs)
{
	PythonOleArgHelper *pHelpers = NULL;
	PythonOleArgHelper *pNamedHelpers = NULL;
	PyObject *argList = NULL;
	PyObject *namedArgList = NULL;
	if (params) {
		if (!MakePythonArgumentTuples(&argList, &pHelpers, &namedArgList, &pNamedHelpers, params )) {
			PyErr_Clear();
			return FALSE;
		}
	}
	if (addnlArgs) {
		PyObject *varArgs = argList;
		argList = Py_BuildValue("OO", varArgs, addnlArgs);
		Py_DECREF(varArgs);
	}
	PyObject *result = PyEval_CallObject(handler, argList);
	Py_XDECREF(argList);
	Py_XDECREF(namedArgList);
	// handlers reference cleaned up by virtual manager.
	BOOL bOK = (result!=NULL);
	if (result) {
		// If result is a tuple, then the Python code
		// wishes to set some "byval" arguments.
		// make the return type
		PyObject *simpleRet;
		if (PyTuple_Check(result) && PyTuple_Size(result)) {
			simpleRet = PyTuple_GetItem(result, 0);
			int retNumber = 1;
			int retTotal = PyTuple_Size(result);

			// Params are reverse order - loop from the back.
			for (unsigned int param=params->cArgs;param!=0 && retNumber < retTotal;param--) {
				if (pHelpers[param-1].m_bIsOut) {
					PyObject *val = PyTuple_GetItem(result, retNumber);
					pHelpers[param-1].MakeObjToVariant(val, params->rgvarg+param-1, NULL);
					retNumber++;
				}
			}
		} else {
			simpleRet = result;
		}
		PyCom_VariantFromPyObject(simpleRet, pVarResult);
		Py_DECREF(result);
	}
	delete [] pHelpers;
	delete [] pNamedHelpers;
	return bOK;
}