I ended up using the SOAP-specific verbs, not just CallHTTPS, but I built
the SOAP headers manually. Here's the main part of the program, which does
an address verification (mundane parts snipped for brevity, and private data
redacted). Hope it helps.
Larry Hiscock
Western Computer Services
SoapURL =
'https://api.qualifiedAddress.com/Address/v1/VerifyService.asmx'
SoapAction = "https://api.qualifiedaddress.com/Address/V1/Execute";
SoapMethod = "Execute"
SoapNameSpace = "https://api.qualifiedaddress.com/Address/V1/";
SoapBody = '<?xml version="1.0" encoding="UTF-8"?>'
SoapBody := LF:'<soap:Envelope
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance";'
SoapBody := LF:' xmlns:xsd="http://www.w3.org/2001/XMLSchema";'
SoapBody := LF:'
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/";>'
SoapBody := LF:' <soap:Body>'
SoapBody := LF:' <':SoapMethod:' xmlns="':SoapNameSpace:'">'
SoapBody := LF:' <request>'
SoapBody := LF:' <Addresses>'
SoapBody := LF:' <AddressRequest>'
IF ADDRESSEE > '' THEN
SoapBody := LF:' <Addressee>':ADDRESSEE:'</Addressee>'
END
SoapBody := LF:' <Street>':ADDRESS:'</Street>'
IF ADDRESS2 > '' THEN
SoapBody := LF:' <Street2>':ADDRESS2:'</Street2>'
END
SoapBody := LF:' <City>':CITY:'</City>'
SoapBody := LF:' <State>':STATE:'</State>'
SoapBody := LF:' <ZipCode>':ZIPCODE:'</ZipCode>'
SoapBody := LF:' </AddressRequest>'
SoapBody := LF:' </Addresses>'
SoapBody := LF:' <Suggestions>':MaxSugg:'</Suggestions>'
SoapBody := LF:' <Key>':xmlAccessKey:'</Key>'
SoapBody := LF:' </request>'
SoapBody := LF:' </':SoapMethod:'>'
SoapBody := LF:' </soap:Body>'
SoapBody := LF:'</soap:Envelope>'
* Load the security context
Ret = loadSecurityContext(context, "contextName", "passPhrase")
* Create the Request
RETVAL = SOAPCreateSecureRequest(SoapURL, SoapAction, SoapReq,
context)
IF RETVAL <> 0 THEN { handle the error }
* Set up the Request Body
RETVAL = SOAPSetRequestContent(SoapReq, SoapBody, 1)
IF RETVAL <> 0 THEN { handle the error }
* Submit the Request
RETVAL = SOAPSubmitRequest(SoapReq, Timeout, ResponseHeaders,
ResponseData, SoapStatus)
IF RETVAL <> 0 THEN { handle the error }
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
