|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Royal Mail OBA Web Service -- Get ContractsSee more Royal Mail OBA ExamplesRoyal Mail OBA Web Service -- Get the contracts for an account. For more information, see https://parcel.royalmail.com/eproimport.wsdl
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Create the following XML: ' <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:epro="urn:schemas-royalmail-com/webservice/epro"> ' <soapenv:Header> ' <epro:Authentication> ' <epro:Username>my_username</epro:Username> ' <epro:Password>my_password</epro:Password> ' <epro:AccessCode>my_accessCode</epro:AccessCode> ' <epro:Version>1.0</epro:Version> ' <epro:SecurityToken>mysecuritytoken</epro:SecurityToken> ' </epro:Authentication> ' </soapenv:Header> ' <soapenv:Body> ' <epro:GetContracts> ' <epro:Account>account_number</epro:Account> ' </epro:GetContracts> ' </soapenv:Body> ' </soapenv:Envelope> ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xml = Server.CreateObject("Chilkat.Xml") xml.EmitXmlDecl = 0 xml.Tag = "soapenv:Envelope" success = xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") success = xml.AddAttribute("xmlns:epro","urn:schemas-royalmail-com/webservice/epro") ' Replace my_username, my_password, and my_accessCode with your actual values. Do not replace "mysecuritytoken". xml.UpdateChildContent "soapenv:Header|epro:Authentication|epro:Username","my_username" xml.UpdateChildContent "soapenv:Header|epro:Authentication|epro:Password","my_password" xml.UpdateChildContent "soapenv:Header|epro:Authentication|epro:AccessCode","my_accessCode" xml.UpdateChildContent "soapenv:Header|epro:Authentication|epro:Version","1.0" ' Literally use the string "mysecuritytoken" here. xml.UpdateChildContent "soapenv:Header|epro:Authentication|epro:SecurityToken","mysecuritytoken" xml.UpdateChildContent "soapenv:Body|epro:GetContracts|epro:Account","account_number" ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = Server.CreateObject("Chilkat.Http") http.SetRequestHeader "SOAPAction","urn:schemas-royalmail-com/webservice/epro/GetContracts" http.SetRequestHeader "Content-Type","text/xml; charset=utf-8" ' Use the sandbox endpoint: http://interfaces.oba-v.royalmail.com/legacyws/EProImport.asmx ' The live endpoint would be: http://www.epro.royalmail.com/WebServices/import/eproimport.asmx endpointUrl = "http://interfaces.oba-v.royalmail.com/legacyws/EProImport.asmx" ' resp is a Chilkat.HttpResponse Set resp = http.PostXml(endpointUrl,xml.GetXml(),"utf-8") If (http.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( "response status code = " & resp.StatusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>" ' The response looks like this: ' <?xml version="1.0" encoding="utf-8"?> ' <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> ' <SOAP-ENV:Header/> ' <SOAP-ENV:Body> ' <ns1:GetContractsResponse xmlns:ns1="urn:schemas-royalmail-com/webservice/epro"> ' <ns1:GetContractsResult Version="1"> ' <ns1:Contracts> ' <ns1:ContractDetails ServiceName="ADV MAIL + RESPONSE UNSORTED 2C" ServiceReg="AC2" ServiceLevel="01" Contract="DEMOTEST1"/> ' <ns1:ContractDetails ServiceName="PLANNED ENVELOPE POLL CARD MMK-2C " ServiceReg="AG0" ServiceLevel="01" Contract=""/> ' ... ' </ns1:Contracts> ' </ns1:GetContractsResult> ' </ns1:GetContractsResponse> ' </SOAP-ENV:Body> ' </SOAP-ENV:Envelope> ' success = xml.LoadXml(resp.BodyStr) i = 0 numContracts = xml.NumChildrenHavingTag("SOAP-ENV:Body|ns1:GetContractsResponse|ns1:GetContractsResult|ns1:Contracts|ns1:ContractDetails") Do While i < numContracts xml.I = i serviceName = xml.ChilkatPath("SOAP-ENV:Body|ns1:GetContractsResponse|ns1:GetContractsResult|ns1:Contracts|ns1:ContractDetails[i]|(ServiceName)") serviceReg = xml.ChilkatPath("SOAP-ENV:Body|ns1:GetContractsResponse|ns1:GetContractsResult|ns1:Contracts|ns1:ContractDetails[i]|(ServiceReg)") serviceLevel = xml.ChilkatPath("SOAP-ENV:Body|ns1:GetContractsResponse|ns1:GetContractsResult|ns1:Contracts|ns1:ContractDetails[i]|(ServiceLevel)") contract = xml.ChilkatPath("SOAP-ENV:Body|ns1:GetContractsResponse|ns1:GetContractsResult|ns1:Contracts|ns1:ContractDetails[i]|(Contract)") Response.Write "<pre>" & Server.HTMLEncode( serviceName) & "</pre>" i = i + 1 Loop %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.