Example 488. The method to call the web service using the SOAP-RPC Protocol

#define AMAZON_ID "" // Amazon ID must be set

SFMTYPEDEFCLASS(SOAPTest)
class SOAPTest : public SFCApplication {
    SFMSEALCOPY(SOAPTest)
private:
    SFXSOAPRPC _rpc;    // variable for processing the SOAP-RPC protocol

    Void OnSOAP(Void);
    static Void OnResultSHP_SOAP(SFCError error, const SFXSOAPRPC::Params& result, const SFXSOAPRPC::FAULT& fault, SFXSOAPParserConstRef soap, VoidPtr reference);
    Void OnResult_SOAP(SFCError error, const SFXSOAPRPC::Params& result, const SFXSOAPRPC::FAULT& fault, SFXSOAPParserConstRef soap);
};

Void SOAPTest::OnSOAP()
{
    // set method name
    _rpc.SetMethodName("ItemSearch");
    
    // set SOAP encoding
    _rpc.SetEncodingStyle("http://schemas.xmlsoap.org/soap/encoding/");
    // the following code is the same as the above
	// _rpc.SetEncodingStyle("STANDARD");

    // set target URI
    _rpc.SetTargetObjectURI("https://webservices.amazon.com/");

    // set parameters of web service
    _rpc.AddParameter("AWSAccessKeyId", 
                      SFXBuffer(SFXAnsiString(AMAZON_ID)));
    _rpc.AddParameter("Keywords", 
                      SFXBuffer(SFXAnsiString("caviar")));
    _rpc.AddParameter("MerchantId", 
                      SFXBuffer(SFXAnsiString("Amazon")));
    _rpc.AddParameter("SearchIndex", 
                      SFXBuffer(SFXAnsiString("GourmetFood")));

    // call web service
    _rpc.Invoke("http://soap.amazon.co.jp/onca/soap?Service=AWSECommerceService",
                "http://soap.amazon.com",
                OnResultSHP_SOAP,
                this);
}

// callback function to be notified of the result of the web service
// error: error value, result: return value of web service, fault: SOAP Fault element, soap : SOAP message, reference: data passed to callback function
Void SOAPTest::OnResultSHP_SOAP(SFCError error, const SFXSOAPRPC::Params& result, const SFXSOAPRPC::FAULT& fault, SFXSOAPParserConstRef soap, VoidPtr reference)
{
    static_cast<SOAPTestPtr>(reference)->OnResult_SOAP(error, result, fault, soap);
}

// Function to process the SOAP message received from web server
Void SOAPTest::OnResult_SOAP(SFCError error, const SFXSOAPRPC::Params& result, const SFXSOAPRPC::FAULT& fault, SFXSOAPParserConstRef soap)
{
    if (error == SFERR_NO_ERROR) {

        // get result of SOAP message(SFXSOAPRPC::Params array) for each parameter

        // get enumerator
        SFXSOAPRPC::Params::Enumerator paramEtor = result.GetFirstEnumerator();

        while (paramEtor.HasNext()) {

            // get each parameter
            SFXSOAPRPC::LPPARAMETER temp = paramEtor.GetNext();

            // display name of parameter
            TRACE("parameter-name: %s", temp->_name.GetCString());
            // display type of parameter
            TRACE("parameter-type: %d", temp->_type);

            if (!temp->_value.IsEmpty()) {
                // display value of parameter
                TRACE("parameter-value: %s", ACharConstPtr(temp->_value.GetBuffer()));
            }
        }
   }
   // display error message(SOAP Fault)
   else if (error == SFERR_SOAP_FAULT_MESSAGE) {

        if(!fault._faultactor.IsEmpty())
            // if faultactor element is not empty, display its content
            TRACE("faultactor: %s", fault._faultactor.GetCString());    

        if(!fault._faultcode.IsEmpty())
            // if faultcode element is not empty, display its content
            TRACE("faultcode: %s", fault._faultcode.GetCString());     

        if(!fault._faultstring.IsEmpty())
            // if faultstring element is not empty, display its content
            TRACE("faultstring: %s", fault._faultstring.GetCString());  

        if (fault._faultdetail) 
             // if detail element is not empty, display its content
            TRACE("faultstring: %s", fault._faultdetail->GetText().GetCString());
    }
    return;
}