SOAP ... I hated it as a child, and I'm starting to hate it again.

[madtowng]

Hi Everyone,

I have a vendor that hasn't yet upgraded from their SOAP apis.
Using the code shown below, I get a 500 error message, but when I use POSTMAN with the headers and body shown in the 2 images below the code,
I get a 200 response and the data I'm expecting.
Can anyone point me in the right direction for doing this in xbasic.
I'm aware of the deprecation of soap, but I'm using build 8301

Any help is greatly appreciated.

Gregg

dim soapRequest as c
soapRequest = <<%text%
<?xml version="1.0" encoding="utf-8"?>
<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
  <soap12:Body>
    <ShipmentInquiry xmlns="http://tempuri.org/">
      <Housebill>403076</Housebill>
    </ShipmentInquiry>
  </soap12:Body>
</soap12:Envelope>
%text%

dim url as c
url = "https://ssworldtrak.com/WTKServicesSNAP/shipments.asmx"

dim headers as c
headers = <<%txt%
Content-Type: application/soap+xml; charset=utf-8
Content-Length: <contentlength>
%txt%
dim response as P

' Replace <contentlength> with the actual length of the soapRequest
headers = strtran(headers, "<contentlength>", str(len(soapRequest)))

debug(1)
response = http_post(url, soapRequest, headers)
​

image.png
image.png

[Ted Giles]

Can you use REST?

Video and freeware.

https://www.quora.com/What-are-the-a...p_ans=88222316

[madtowng]

they haven’t updated the api yet

[Steve Workings]

This, to me, seems a key part of the response:

response.parsed_headers.reason_phrase = Internal Server Error

But I'm not sure anyone can do anything about it. Not sure what to suggest but thought I'd pass this along.

Has this worked previously in/from Alpha or are just now creating this?

[madtowng]

Hey Steve,
I don't see you around here much anymore. I hope you're doing well.

Just now creating it.
Out of desperation, I searched my video finder app for soap, and was surprised to see Selwyn had done 2 videos on how to consume soap API's way back in 2016.
You can bet the interface changed a bit, but the bottom line is I got to work.

[Steve Workings]

All the other experts here generally have good answers by the time I get to it.

You said: but the bottom line is I got to work.

Did you mean: but the bottom line is I got it to work. ?

I've created a bunch of SOAP features over the years - never used whatever advanced stuff Alpha provided. But finding whatever has bedeviled you here can be tedious.

[madtowng]

I learn by example. Never had a reason to use SOAP apis until now.
For the most part, I prefer to manually code apis as I then have an idea of where to look if something goes wrong.
I even had the api guru I work with get me past 1 endpoint, just to get stuck on another.
I'll try again to do it manually when my poor brain has had a chance to recover.

[madtowng]

I'm almost there.
The api works, but not if I'm in desktop mode.
I'm relatively certain this has something to with ::WebReferences.
Is there a way to access the ::WebReferences space from desktop functions ?

dim wr as ::WebReferences::wt::Shipments
dim result as ::WebReferences::wt::ShipmentMilestonesSinceDateResponse = null_value()​