lr soap请求webservice—web_custom_request

 

Action()
    {
       web_reg_save_param("Response","LB=", "RB=", LAST);
       web_add_header("SOAPAction","http://WebXml.com.cn/getWeather");
       web_custom_request("Sample_Request",
                          "Method=POST",
                          "Mode=HTML",
                          "RecContentType=text/xml",
                          "EncType=text/xml;charset=UTF-8",
                          "URL=http://webservice.webxml.com.cn/WebServices/WeatherWS.asmx",
                          "Body="
                          "<soapenv:Envelope xmlns:soapenv=\"http://schemas.xmlsoap.org/soap/envelope/\" xmlns:web=\"http://WebXml.com.cn/\">\n"
                          "   <soapenv:Header/>\n"
                          "   <soapenv:Body>\n"
                          "      <web:getWeather>\n"
                          "         <!--Optional:-->\n"
                          "         <web:theCityCode>792</web:theCityCode>\n"
                          "         <!--Optional:-->\n"
                          "         <web:theUserID></web:theUserID>\n"
                          "      </web:getWeather>\n"
                          "   </soapenv:Body>\n"
                          "</soapenv:Envelope>",
                          LAST);

       lr_convert_string_encoding(lr_eval_string("{Response}"),LR_ENC_UTF8,LR_ENC_SYSTEM_LOCALE,"ResponseUTF8");
       lr_output_message("Response is : %s",lr_eval_string("{ResponseUTF8}"));
       return 0;
    }