|
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
(DataFlex) Peoplevox SaveDataDemonstrates how to call the Peoplevox SaveData SOAP method. This example adds a new carrier (DHL) to the system.
Use ChilkatAx-win32.pkg Procedure Test Boolean iSuccess Handle hoSbSoapXml Handle hoSbCsvData Integer iNumReplacements Variant vReq Handle hoReq Handle hoHttp Variant vResp Handle hoResp Handle hoXmlResponse String sReference String sStatus String sTemp1 Integer iTemp1 Boolean bTemp1 // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // Sends a POST that looks like this: // POST /PEOPLEVOX_CLIENT_ID/resources/integrationservicev4.asmx HTTP/1.1 // Content-Type: text/xml;charset=UTF-8 // SOAPAction: http://www.peoplevox.net/SaveData // Content-Length: (automatically computed and added by Chilkat) // Host: qac.peoplevox.net // // <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:peop="http://www.peoplevox.net/"> // <soap:Header> // <peop:UserSessionCredentials> // <peop:UserId>PEOPLEVOX_USER_ID</peop:UserId> // <peop:ClientId>PEOPLEVOX_CLIENT_ID</peop:ClientId> // <peop:SessionId>PEOPLEVOX_SESSION_ID</peop:SessionId> // </peop:UserSessionCredentials> // </soap:Header> // <soap:Body> // <peop:SaveData> // <peop:saveRequest> // <peop:TemplateName>Carriers</peop:TemplateName> // <peop:CsvData>CSV_DATA</peop:CsvData> // <peop:Action>0</peop:Action> // </peop:saveRequest> // </peop:SaveData> // </soap:Body> // </soap:Envelope> // // Notice that a UserId is needed here. This is different than the username required for Peoplevox authentication. // The UserId for the admin account is 1. // Get Create (RefClass(cComChilkatStringBuilder)) To hoSbSoapXml If (Not(IsComObjectCreated(hoSbSoapXml))) Begin Send CreateComObject of hoSbSoapXml End Get ComAppend Of hoSbSoapXml '<?xml version="1.0" encoding="utf-8"?>' + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml '<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:peop="http://www.peoplevox.net/">' + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " <soap:Header>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " <peop:UserSessionCredentials>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " <peop:UserId>PEOPLEVOX_USER_ID</peop:UserId>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " <peop:ClientId>PEOPLEVOX_CLIENT_ID</peop:ClientId>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " <peop:SessionId>PEOPLEVOX_SESSION_ID</peop:SessionId>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " </peop:UserSessionCredentials>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " </soap:Header>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " <soap:Body>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " <peop:SaveData>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " <peop:saveRequest>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " <peop:TemplateName>Carriers</peop:TemplateName>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " <peop:CsvData>CSV_DATA</peop:CsvData>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " <peop:Action>0</peop:Action>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " </peop:saveRequest>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " </peop:SaveData>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml " </soap:Body>" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbSoapXml "</soap:Envelope>" To iSuccess Get Create (RefClass(cComChilkatStringBuilder)) To hoSbCsvData If (Not(IsComObjectCreated(hoSbCsvData))) Begin Send CreateComObject of hoSbCsvData End Get ComAppend Of hoSbCsvData "Name,Reference" + (character(13)) + (character(10)) To iSuccess Get ComAppend Of hoSbCsvData "DHL,D0001" To iSuccess Get ComGetAsString Of hoSbCsvData To sTemp1 Get ComReplace Of hoSbSoapXml "CSV_DATA" sTemp1 To iNumReplacements Get Create (RefClass(cComChilkatHttpRequest)) To hoReq If (Not(IsComObjectCreated(hoReq))) Begin Send CreateComObject of hoReq End Set ComHttpVerb Of hoReq To "POST" Set ComSendCharset Of hoReq To True Set ComCharset Of hoReq To "utf-8" Send ComAddHeader To hoReq "Content-Type" "text/xml" Send ComAddHeader To hoReq "SOAPAction" "http://www.peoplevox.net/SaveData" Set ComPath Of hoReq To "/PEOPLEVOX_CLIENT_ID/resources/integrationservicev4.asmx" Get ComGetAsString Of hoSbSoapXml To sTemp1 Get ComLoadBodyFromString Of hoReq sTemp1 "utf-8" To iSuccess Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End Set ComFollowRedirects Of hoHttp To True Get pvComObject of hoReq to vReq Get ComSynchronousRequest Of hoHttp "qac.peoplevox.net" 443 True vReq To vResp If (IsComObject(vResp)) Begin Get Create (RefClass(cComChilkatHttpResponse)) To hoResp Set pvComObject Of hoResp To vResp End Get ComLastMethodSuccess Of hoHttp To bTemp1 If (bTemp1 <> True) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End // We should expect a 200 response if successful. Get ComStatusCode Of hoResp To iTemp1 If (iTemp1 <> 200) Begin Get ComStatusCode Of hoResp To iTemp1 Showln "Response StatusCode = " iTemp1 Get ComStatusLine Of hoResp To sTemp1 Showln "Response StatusLine: " sTemp1 Showln "Response Header:" Get ComHeader Of hoResp To sTemp1 Showln sTemp1 Get ComBodyStr Of hoResp To sTemp1 Showln sTemp1 Procedure_Return End Get Create (RefClass(cComChilkatXml)) To hoXmlResponse If (Not(IsComObjectCreated(hoXmlResponse))) Begin Send CreateComObject of hoXmlResponse End Get ComBodyStr Of hoResp To sTemp1 Get ComLoadXml Of hoXmlResponse sTemp1 To iSuccess Get ComGetXml Of hoXmlResponse To sTemp1 Showln sTemp1 Send Destroy of hoResp // A successful response is shown below. // To parse a successful response: Get ComChilkatPath Of hoXmlResponse "soap:Body|SaveDataResponse|SaveDataResult|Statuses|IntegrationStatusResponse|Reference|*" To sReference Showln "Reference = " sReference Get ComChilkatPath Of hoXmlResponse "soap:Body|SaveDataResponse|SaveDataResult|Statuses|IntegrationStatusResponse|Status|*" To sStatus Showln "Status = " sStatus // <?xml version="1.0" encoding="utf-8" ?> // <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> // <soap:Body> // <SaveDataResponse xmlns="http://www.peoplevox.net/"> // <SaveDataResult> // <ResponseId>0</ResponseId> // <TotalCount>1</TotalCount> // <Detail /> // <Statuses> // <IntegrationStatusResponse> // <Reference>D0001</Reference> // <Status>Success</Status> // <LineNo>0</LineNo> // </IntegrationStatusResponse> // </Statuses> // <ImportingQueueId>0</ImportingQueueId> // <SalesOrdersToDespatchIds /> // </SaveDataResult> // </SaveDataResponse> // </soap:Body> // </soap:Envelope> End_Procedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.