distributedlife.com blog code samples

1.c

void ConfigureMethod (const char* const Method)
{
    lr_save_string (Method, "Method") ;

    lr_save_string(lr_eval_string ("{Method}Response"), "Response");
    lr_save_string(lr_eval_string ("{Method}Result"), "Result");
}

10.c

web_service_call
(
    "StepName=GetDataUsingDataContract_102",
    "SOAPMethod=Service1|WSHttpBinding_IService1|GetDataUsingDataContract",
    "ResponseParam=response",
    "Service=Service1",
    "ExpectedResponse=SoapResult",
    BEGIN_ARGUMENTS,
    "xml:composite="
        "<composite>"
            "<BoolValue>true</BoolValue>"
            "<StringValue>abcde</StringValue>"
        "</composite>",
    END_ARGUMENTS,
    BEGIN_RESULT,
    END_RESULT,
    LAST
);

11.c

web_service_call
(
    "StepName=Service}::{Method}",
    "SOAPMethod={Service}|{Binding}|{Method}",
    "ResponseParam=response",
    "Service={Service}",
    "ExpectedResponse=SoapResult",
    BEGIN_ARGUMENTS,
    "xml:composite="
        "<composite>"
            "<BoolValue>true</BoolValue>"
            "<StringValue>The quick brown fox jumps over the lazy dog</StringValue>"
        "</composite>",
    END_ARGUMENTS,
    BEGIN_RESULT,
    END_RESULT,
    LAST
);

12.c

void SetDefaultParameters (void)
{
    lr_set ("true", "BoolValue") ;
    lr_set ("The quick brown fox jumps over the lazy dog", "StringValue") ;
}

vuser_init()
{
    return 0;
}

13.c

SetDefaultParameters () ;

web_service_call
(
    "StepName=Service}::{Method}",
    "SOAPMethod={Service}|{Binding}|{Method}",
    "ResponseParam=response",
    "Service={Service}",
    "ExpectedResponse=SoapResult",
    BEGIN_ARGUMENTS,
    "xml:composite="
        "<composite>"
            "<BoolValue>{BoolValue}</BoolValue>"
            "<StringValue>{StringValue}</StringValue>"
        "</composite>",
    END_ARGUMENTS,
    BEGIN_RESULT,
    END_RESULT,
    LAST
);

14.c

SetDefaultParameters () ;
lr_set ("false", "BoolValue") ;

web_service_call
(
    "StepName=Service}::{Method}",
    "SOAPMethod={Service}|{Binding}|{Method}",
    "ResponseParam=response",
    "Service={Service}",
    "ExpectedResponse=SoapResult",
    BEGIN_ARGUMENTS,
    "xml:composite="
        "<composite>"
            "<BoolValue>{BoolValue}</BoolValue>"
            "<StringValue>{StringValue}</StringValue>"
        "</composite>",
    END_ARGUMENTS,
    BEGIN_RESULT,
    END_RESULT,
    LAST
);

2.c

ConfigureMethod ("GetDataUsingDataContract") ;

3.c

lr_save_string(lr_eval_string ("{Method}Response"), "Response");
lr_save_string(lr_eval_string ("{Method}Result"), "Result");

4.c

lr_xml_extract
(
    "XML={response}",     
    "FastQuery=Envelope/Body/GetDataUsingDataContractResponse/GetDataUsingDataContractResult/BoolValue", 
    "XMLFragmentParam=BoolValue", 
    LAST
);
lr_xml_extract
(
    "XML={response}", 
    "FastQuery=Envelope/Body/GetDataUsingDataContractResponse/GetDataUsingDataContractResult/StringValue", 
    "XMLFragmentParam=StringValue", 
    LAST
);

5.c

lr_xml_extract
(
    "XML={response}", 
    "FastQuery=Envelope/Body/{Response}/{Result}/BoolValue", 
    "XMLFragmentParam=BoolValue", 
    LAST
);
lr_xml_extract
(
    "XML={response}", 
    "FastQuery=Envelope/Body/{Response}/{Result}/StringValue", 
    "XMLFragmentParam=StringValue", 
    LAST
);

6.c

void ConfigureMyTestingService (void)
{
    lr_set("Service1", "Service");
    lr_set("WSHttpBinding_IService1", "Binding") ;

    lr_set("Distributedlife.MyService.Service.xml", "TempFile") ;
    lr_set(GetHostIpAddress (), "HostIpAddress") ;
}

7.c

lr_set("Service1", "Service");
lr_set("WSHttpBinding_IService1", "Binding") ;

8.c

web_service_call
(
    "StepName=GetDataUsingDataContract_102",
    "SOAPMethod=Service1|WSHttpBinding_IService1|GetDataUsingDataContract",
    "ResponseParam=response",
    "Service=Service1",
    "ExpectedResponse=SoapResult",
    BEGIN_ARGUMENTS,
    END_ARGUMENTS,
    BEGIN_RESULT,
    END_RESULT,
    LAST
);

9.c

"SOAPMethod=Service1|WSHttpBinding_IService1|GetDataUsingDataContract",