DataFlex

Peoplevox WMS Authentication

See more HTTP Examples

Provides an example of a call to the Peoplevox WMS Authenticate using SOAP 1.1. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoSbSoapXml
    Handle hoCrypt
    String sPasswordBase64
    Integer iNumReplacements
    Variant vReq
    Handle hoReq
    Handle hoHttp
    Variant vResp
    Handle hoResp
    Handle hoXmlResponse
    String sDetail
    String sTemp1
    Integer iTemp1

    Move False To iSuccess

    // 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/Authenticate
    // 	Content-Length: (automatically computed and added by Chilkat)
    // 	Host: qac.peoplevox.net
    // 
    // 	<?xml version="1.0" encoding="utf-8"?>
    // 	<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:peop="http://www.peoplevox.net/">
    // 	   <soapenv:Header/>
    // 	   <soapenv:Body>
    // 	      <peop:Authenticate>
    // 	         <peop:clientId>PEOPLEVOX_CLIENT_ID</peop:clientId>
    // 	         <peop:username>PEOPLEVOX_USERNAME</peop:username>
    // 	         <peop:password>PEOPLEVOX_BASE64_PASSWORD</peop:password>
    // 	      </peop:Authenticate>
    // 	   </soapenv:Body>
    // 	</soapenv:Envelope>
    // 

    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"?>' To iSuccess
    Get ComAppend Of hoSbSoapXml '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:peop="http://www.peoplevox.net/">' To iSuccess
    Get ComAppend Of hoSbSoapXml "   <soapenv:Header/>" To iSuccess
    Get ComAppend Of hoSbSoapXml "   <soapenv:Body>" To iSuccess
    Get ComAppend Of hoSbSoapXml "      <peop:Authenticate>" To iSuccess
    Get ComAppend Of hoSbSoapXml "         <peop:clientId>PEOPLEVOX_CLIENT_ID</peop:clientId>" To iSuccess
    Get ComAppend Of hoSbSoapXml "         <peop:username>PEOPLEVOX_USERNAME</peop:username>" To iSuccess
    Get ComAppend Of hoSbSoapXml "         <peop:password>PEOPLEVOX_BASE64_PASSWORD</peop:password>" To iSuccess
    Get ComAppend Of hoSbSoapXml "      </peop:Authenticate>" To iSuccess
    Get ComAppend Of hoSbSoapXml "   </soapenv:Body>" To iSuccess
    Get ComAppend Of hoSbSoapXml "</soapenv:Envelope>" To iSuccess

    // Base64 encode the password and update the SOAP XML.
    Get Create (RefClass(cComChilkatCrypt2)) To hoCrypt
    If (Not(IsComObjectCreated(hoCrypt))) Begin
        Send CreateComObject of hoCrypt
    End
    Get ComEncodeString Of hoCrypt "PEOPLEVOX_PASSWORD" "utf-8" "base64" To sPasswordBase64
    Get ComReplace Of hoSbSoapXml "PEOPLEVOX_BASE64_PASSWORD" sPasswordBase64 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/Authenticate"
    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 Create (RefClass(cComChilkatHttpResponse)) To hoResp
    If (Not(IsComObjectCreated(hoResp))) Begin
        Send CreateComObject of hoResp
    End
    Get pvComObject of hoReq to vReq
    Get pvComObject of hoResp to vResp
    Get ComHttpSReq Of hoHttp "qac.peoplevox.net" 443 True vReq vResp To iSuccess
    If (iSuccess = False) 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
        Procedure_Return
    End

    // A successful response returns this XML:

    // <?xml version="1.0" encoding="utf-8" ?>
    // <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    //     <soap:Body>
    //         <AuthenticateResponse xmlns="http://www.peoplevox.net/">
    //             <AuthenticateResult>
    //                 <ResponseId>0</ResponseId>
    //                 <TotalCount>1</TotalCount>
    //                 <Detail>PEOPLEVOX_CLIENT_ID,7fe13431-c67f-4d52-bcfd-b60fbfa3b0ca</Detail>
    //                 <Statuses />
    //                 <ImportingQueueId>0</ImportingQueueId>
    //                 <SalesOrdersToDespatchIds />
    //             </AuthenticateResult>
    //         </AuthenticateResponse>
    //     </soap:Body>
    // </soap:Envelope>
    // 

    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

    // Show how to get the Detail, which must be the ClientId,SessionId
    Get ComChilkatPath Of hoXmlResponse "soap:Body|AuthenticateResponse|AuthenticateResult|Detail|*" To sDetail
    Showln "Detail = " sDetail


End_Procedure