httr POST API请求但缺少xml参数

时间:2015-12-04 13:40:53

标签: xml r rcurl httr

我正在尝试使用httr连接到IBM Silverpop的XML API,但我遇到了一个缺少的XML参数'问题。我尝试使用Silverpop提供的测试工具来查看我发送的请求与我通过httr发送的请求是否有所不同,但是找不到任何可以帮助我的信息。

以下是我使用测试工具后发送的XML正文:

<Envelope><Body>
<Login>
<USERNAME>My Email</USERNAME>
<PASSWORD>My password</PASSWORD>
</Login>
</Body></Envelope>

使用Chrome检查请求标题(使用CTRL + SHIFT + I):

Accept:text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
Accept-Encoding:gzip, deflate
Accept-Language:en-US,en;q=0.8
Cache-Control:max-age=0
Connection:keep-alive
Content-Length:225
Content-Type:application/x-www-form-urlencoded
Host:api3.silverpop.com
Origin:null
Upgrade-Insecure-Requests:1
User-Agent:Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/46.0.2490.86 Safari/537.36

再次,使用Chrome检查响应标题

Connection:Keep-Alive
Content-Type:text/xml;charset=utf-8
Date:Fri, 04 Dec 2015 12:15:34 GMT
Keep-Alive:timeout=15, max=100
Server:Apache-Coyote/1.1
Transfer-Encoding:chunked

使用httr,我按如下方式构建我的请求:

library(httr)

ibmUrl <- "api3.silverpop.com/XMLAPI"

body1 <- "<Envelope><Body>
<Login>
<USERNAME>My Email</USERNAME>
<PASSWORD>My password</PASSWORD>
</Login>
</Body></Envelope>"

test1 <- POST(url = ibmUrl, body = body1, verbose(), content_type("application/x-www-form-urlencoded"))

使用verbose()显示以下内容已发送和接收:

-> POST /XMLAPI HTTP/1.1
-> Host: api3.silverpop.com
-> User-Agent: libcurl/7.43.0 r-curl/0.9.3 httr/1.0.0
-> Accept-Encoding: gzip, deflate
-> Accept: application/json, text/xml, application/xml, */*
-> Content-Type: application/x-www-form-urlencoded
-> Content-Length: 132
-> 
>> <Envelope><Body>
>> <Login>
>> <USERNAME>My Email</USERNAME>
>> <PASSWORD>My password</PASSWORD>
>> </Login>
>> </Body></Envelope>

<- HTTP/1.1 200 OK
<- Date: Fri, 04 Dec 2015 13:29:55 GMT
<- Server: Apache-Coyote/1.1
<- Content-Type: text/xml
<- Content-Length: 255

但是当我使用content()检查来自API的响应时,我得到以下内容:

<?xml version="1.0"?>
<Envelope>
  <Body>
    <RESULT>
      <SUCCESS>false</SUCCESS>
    </RESULT>
    <Fault>
      <Request/>
      <FaultCode/>
      <FaultString>Missing 'xml'parameter</FaultString>
      <detail>
        <error>
          <errorid>52</errorid>
          <module/>
          <class>SP.API</class>
          <method/>
        </error>
      </detail>
    </Fault>
  </Body>
</Envelope>

怎么回事?

提前致谢。

1 个答案:

答案 0 :(得分:2)

我想我找到了答案 - 虽然不太清楚为什么这样做有效但我在问题中显示的原始尝试没有...

这是我的原始代码:

test1 <- POST(url = ibmUrl, body = body1, 
verbose(), content_type("application/x-www-form-urlencoded"))

我必须改变的是content_type为'text / xml'。

test1 <- POST(url = ibmUrl,
        body = body1, verbose(), content_type("text/xml"))

它的确有效......但是如果有人可以插手并澄清为什么这样可以解决这个问题会感激不尽......