//////////////////////////////////////////////////////////////////////////////////////////////////
// function: CMClientDlg::Execute()
//
// parameters: No Parameters
//
// description: Pass the parameters and invoke the operation, get the result and update the
// parameters and the result value
// returns: void
//
//////////////////////////////////////////////////////////////////////////////////////////////////
void CMClientDlg::Execute()
{
USES_CONVERSION;
DisableButtons();
HTREEITEM hItem;
HTREEITEM hPort;
HTREEITEM hService;
DISPPARAMS parms;
VARIANT result;
VARIANT vTempVariable;
CComPtr<ISOAPClient> pClient = NULL;
HRESULT hr = S_OK;
BSTR bstrPort = 0;
BSTR bstrService = 0;
BSTR bstrWSDLFileName = 0;
BSTR bstrWSMLFileName = 0;
LVITEM Item;
LVITEM Item1;
int nNumParameters;
int nCounter;
int nCount;
DISPID dispidFn;
WCHAR *pstrFunctionName;
char name[1024] ;
EXCEPINFO excepinfo;
VARTYPE vt = VT_EMPTY;
hItem = m_TreeCtrl.GetSelectedItem();
dispidFn = 0;
excepinfo.wCode = 1001;
excepinfo.wReserved = 0;
excepinfo.bstrSource = 0;
excepinfo.bstrDescription = 0;
excepinfo.bstrHelpFile = 0;
excepinfo.dwHelpContext = 0;
excepinfo.pvReserved = 0;
excepinfo.pfnDeferredFillIn = 0;
excepinfo.scode = 0;
VARIANT variantbstrtemp;
VARIANT *pArg = 0;
VARIANT *pRef = 0;
smIsInputEnum IsInput;
nNumParameters = nCountParameter();
if (nNumParameters != -1)
{
pArg = new VARIANT[nNumParameters];
pRef = new VARIANT[nNumParameters];
}
else
MSG("Could not get parameters from parameter list!");
if ((!pArg) || (!pRef))
MSG("There is no enough memory!");
if (m_TreeCtrl.ItemHasChildren(hItem))
MSG("Please select an operation!");
hr = CoCreateInstance(__uuidof(SoapClient), NULL, CLSCTX_INPROC_SERVER, __uuidof(ISOAPClient),
(void **)&;amp;pClient);
CHECK_HRESULT(hr, "Can not create the object of the CLSID_SoapClient");
if (!pClient)
MSG("Can not create the object of the CLSID_SoapClient!");
// we need to have wsdl file and port and service name for mssoapinit
hPort = m_TreeCtrl.GetParentItem(hItem);
if (!hPort)
MSG("Can not get Port!");
bstrPort = m_TreeCtrl.GetItemText(hPort).AllocSysString();
if (bstrPort == NULL)
MSG("Can not get Port Name!");
hService = m_TreeCtrl.GetParentItem(hPort);
if (!hService)
MSG("Can not get Service !");
bstrService = m_TreeCtrl.GetItemText(hService).AllocSysString();
if (bstrService == NULL)
MSG("Can not get Service Name!");
bstrWSDLFileName = m_strURL.AllocSysString();
if (bstrWSDLFileName == NULL)
MSG("Can not get WSDL file Name!");
hr = pClient->mssoapinit(bstrWSDLFileName,bstrService,bstrPort,bstrWSMLFileName);
CHECK_HRESULT(hr, "Soap initiation failed");
// get the selected functions name
pstrFunctionName = m_TreeCtrl.GetItemText(hItem).AllocSysString();
if (pstrFunctionName == NULL)
MSG("Could not get function Name!");
parms.cArgs = nNumParameters ;
parms.cNamedArgs = 0;
parms.rgdispidNamedArgs = 0;
//there is a pass by ref, and I will use pRef as parameter list
parms.rgvarg = pRef;
::VariantInit(&;amp;result);
::VariantInit(&;amp;vTempVariable);
nCount = 0;
// the loop should be 'number of parameters' times
for (nCounter=0; nCounter < m_Parameters.GetItemCount() ; nCounter )
{
// I need to get the value of parameter and its type
assignItem(&;amp;Item, LVIF_PARAM,nCounter,0,0,0);
assignItem(&;amp;Item1, LVIF_TEXT,nCounter,2,name,sizeof(name));
if (m_Parameters.GetItem(&;amp;Item) == 0)
MSG("Could not get item!");
if (m_Parameters.GetItem(&;amp;Item1) == 0)
MSG("Could not get item!");
// we will not fill the arguments with result
reinterpret_cast<ISoapMapper *>(Item.lParam)->get_isInput(&;amp;IsInput);
if (IsInput != smOutput)
{
::VariantInit(&;amp;pArg[nCount]);
// I have to fill this array in reverse order bacause the server expects it in reverse order
::VariantInit(&;amp;pRef[nNumParameters - nCount -1]);
// I keep the parameter as BSTR
vTempVariable.vt = VT_BSTR;
vTempVariable.bstrVal = ::SysAllocString(A2W(Item1.pszText));
// the conversion for type and value of parameter is done
// the value with correct type and value is taken into pArg
long ltype;
hr = (reinterpret_cast<ISoapMapper*>(Item.lParam))->get_variantType(<ype);
CHECK_HRESULT(hr, "Could not get Variant Type");
hr = ::VariantChangeType(&;amp;pArg[nCount],&;amp;vTempVariable,VARIANT_NOUSEROVERRIDE, (unsigned short) ltype);
CHECK_HRESULT(hr, "Can not convert Variant Type! Either no Function selected or Parameter is Wrong or Empty");
::VariantClear(&;amp;vTempVariable);
// assign the correct parameter to pRef and indicate it is BYREF
pRef[nNumParameters - nCount -1 ].vt = pArg[nCount].vt | VT_BYREF;
AssignpRef(&;amp;pRef[nNumParameters - nCount -1],&;amp;pArg[nCount]);
nCount ;
}
}
// get the ID of operation
hr = pClient->GetIDsOfNames(IID_NULL, &;amp;pstrFunctionName, 1, LOCALE_SYSTEM_DEFAULT, &;amp;dispidFn);
CHECK_HRESULT(hr, "Taking IDs Failed!");
// calling the operation
::VariantClear(&;amp;result);
hr = pClient->Invoke(dispidFn, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_METHOD, &;amp;parms,
&;amp;result, &;amp;excepinfo, 0);
CHECK_HRESULT(hr, "Function call Failed!");
::VariantInit(&;amp;variantbstrtemp);
// update the results
for(nCounter = 0; nCounter < m_Parameters.GetItemCount() ; nCounter )
{
if (nCounter < nNumParameters)
{
hr = ::VariantChangeType(&;amp;variantbstrtemp,&;amp;pArg[nCounter],VARIANT_NOUSEROVERRIDE,VT_BSTR);
}
else
{
hr = ::VariantChangeType(&;amp;variantbstrtemp,&;amp;result,VARIANT_NOUSEROVERRIDE,VT_BSTR);
}
CHECK_HRESULT(hr, "Variant could not be converted");
CString Text(variantbstrtemp.bstrVal);
assignItem(&;amp;Item, LVIF_TEXT,nCounter,2, (LPTSTR)(LPCTSTR)Text,::SysStringLen(variantbstrtemp.bstrVal));
if (m_Parameters.SetItem(&;amp;Item) == 0)
MSG("Could not set Item to list");
}
UpdateData(false);
cleanup:
for(nCounter = 0; nCounter < nNumParameters ; nCounter )
{
::VariantClear(&;amp;pArg[nCounter]);
::VariantClear(&;amp;pRef[nCounter]);
}
::VariantClear(&;amp;result);
::VariantClear(&;amp;variantbstrtemp);
::VariantClear(&;amp;vTempVariable);
::SysFreeString(bstrPort);
::SysFreeString(bstrService);
::SysFreeString(bstrWSDLFileName);
if (pArg)
delete [] pArg;
if (pRef)
delete [] pRef;
EnableButtons();
return;
}
