使用RCurl CurlPerform訪問Web服務：獲取HTTP 500錯誤

Question

我正在嘗試使用使用RCurl包的web服務。

此WebService「https://ngcsi.contigohosting.com/Entrader_Dev/wcfservices/TradingService.svc」有很多get方法只能由

認證進行訪問，因此，我通過在頭中的用戶名和密碼。

h=basicTextGatherer() 
headerFields = 
    c(c(Accept="text/xml", Accept="multipart/*", 
     'Content-Type' = "text/xml; charset=utf-8"), 
     SOAPAction = "https://ngcsi.contigohosting.com/Entrader_Dev/wcfservices/TradingService.svc?wsdl") 

body = '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" 

xmlns:con="http://entrader.contigoenergy.com/Contigo.Entrader.Service">\ 
    <soapenv:Header>\ 
<wsse:Security soapenv:mustUnderstand="1"\ 
xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">\ 
<wsse:UsernameToken wsu:Id="UsernameToken-37"\ 
xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">\ 
<wsse:Username>Username</wsse:Username>\ 
<wsse:Password 
Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">Password</wsse:Password>\ 
</wsse:UsernameToken>\ 
</wsse:Security>\ 
</soapenv:Header>\ 
<soapenv:Body>\ 
</soapenv:Body>\ 
</soapenv:Envelope>\n' 

curlPerform(url = "https://ngcsi.contigohosting.com/Entrader_Dev/wcfservices/TradingService.svc", 
      httpheader = headerFields, 
      postfields = body, 
      writefunction = h$update, 
      verbose=TRUE 
) 

body=h$value() 

我得到一個HTTP/1.1 500內部服務器錯誤在執行上面和下面的正文內容

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/" xmlns:u="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd"><s:Header><o:Security s:mustUnderstand="1" xmlns:o="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"><u:Timestamp u:Id="_0"><u:Created>2017-07-25T15:14:00.856Z</u:Created><u:Expires>2017-07-25T15:19:00.856Z</u:Expires></u:Timestamp></o:Security></s:Header><s:Body><s:Fault><faultcode xmlns:a="http://schemas.microsoft.com/ws/2005/05/addressing/none">a:ActionNotSupported</faultcode><faultstring xml:lang="en-GB">The message with Action 'https://ngcsi.contigohosting.com/Entrader_Dev/wcfservices/TradingService.svc?wsdl' cannot be processed at the receiver, due to a ContractFilter mismatch at the EndpointDispatcher. This may be because of either a contract mismatch (mismatched Actions between sender and receiver) or a binding/security mismatch between the sender and the receiver. Check that sender and receiver have the same contract and the same binding (including security requirements, e.g. Message, Transport, None).</faultstring></s:Fault></s:Body></s:Envelope> 

任何幫助深表感謝。謝謝。

Answer 1

SOAPAction應該有一個方法，在這種情況下，根據上面使用的wsdl可以是以下任何一種。

http://entrader.contigoenergy.com/Contigo.Entrader.Service/TradingService/GetTrade 

http://entrader.contigoenergy.com/Contigo.Entrader.Service/TradingService/GetByFilterTrade

因此，新的代碼看起來應該像下面

h=basicTextGatherer() 
headerFields = 
    c(c(Accept="text/xml", Accept="multipart/*", 
     'Content-Type' = "text/xml; charset=utf-8"), 
     SOAPAction = "http://entrader.contigoenergy.com/Contigo.Entrader.Service/TradingService/GetTrade") 

body = '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" 

xmlns:con="http://entrader.contigoenergy.com/Contigo.Entrader.Service">\ 
    <soapenv:Header>\ 
<wsse:Security soapenv:mustUnderstand="1"\ 
xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">\ 
<wsse:UsernameToken wsu:Id="UsernameToken-37"\ 
xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">\ 
<wsse:Username>Username</wsse:Username>\ 
<wsse:Password 
Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">Password</wsse:Password>\ 
</wsse:UsernameToken>\ 
</wsse:Security>\ 
</soapenv:Header>\ 
<soapenv:Body>\ 
</soapenv:Body>\ 
</soapenv:Envelope>\n' 

curlPerform(url = "https://ngcsi.contigohosting.com/Entrader_Dev/wcfservices/TradingService.svc", 
      httpheader = headerFields, 
      postfields = body, 
      writefunction = h$update, 
      verbose=TRUE 
) 

body=h$value() 

上面的代碼工作，我能夠得到從WebService適當的反應，雖然我沒有提到什麼在所述示例的身體中。