Background

Prior to PowerBuilder 2017 R2, the SoapClient did not support calling WCF Services.

In PowerBuilder 2017 R2 and the latter versions, the HTTPClient object is available, through which you can call WCF Services.

In PowerBuilder 2019, the RESTClient object is strengthened, now you can also call the WCF Services.

How to use HTTPClient object to consume a WCF Service

    a. To get the methods and parameters to consume the WCF Service.

Normally when you open a WCF Service website, you will get the following page:

However, you would still need the documentation provided by the WCF Service and also need to verify if the current WCF Service supports XML format parameters in order to consume this WCF using URL or through a client. If the current service provider has provided the online help, you can use the WCF Service address + "/help" to obtain the corresponding API descriptions and the parameters as follows:

Note: If helpEnabled is not set or is set to false in the Web.config of the current WCF Service provider, then the help page won’t display.

Let’s take the GetDataUsingDataContract method as an example. Click the corresponding post method to open a new link shown in the screenshot below:

There is the example request XML body for us to consume this API.

Before we write PowerScript to call this method, we can also verify if we can successfully access it using a third-party tool (such as Postman), and see if the current parameters are valid.

The example request XML body content we copy is as follows:

<CompositeType xmlns="http://schemas.datacontract.org/2004/07/WelcomeWcfService">

  <BoolValue>true</BoolValue>

  <StringValue>String content</StringValue>

</CompositeType>

We can test this API in Postman first as shown in the screenshot below:

In the example, we use Postman to verify this API.

Note: You should replace the API content with your actual API content after you copy the XML.

For example: In the GetDataUsingDataContract method of this example, the StringValue parameter should be changed from “String content” to “New Test”.

    b. The PowerScript of using the HTTPClient object to call the API.

After you have verified the API using Postman, use the same protocol and content to implement it with the HTTPClient object from PowerBuilder.

Example code:

httpClient            lhc_client

integer                  li_ret, i , li_StatusCode

String                    ls_xml_request

string                     ls_url, ls_body, ls_ret, ls_data

PBDOM_Builder                                               lpbdom_builder

pbdom_document                                          lpbdom_doc

string                                                                                     ls_BoolValue, ls_StringValue

ls_url ="http://localhost:61869/WelcomeService.svc/GetDataUsingDataContract"

ls_xml_request ='<CompositeType xmlns="http://schemas.datacontract.org/2004/07/WelcomeWcfService">' + &

 ' <BoolValue>true</BoolValue>' + &

 ' <StringValue>New Test </StringValue>' + &

'</CompositeType>'

lhc_client = Create httpClient

lhc_client.SetRequestHeader("Content-Type", "application/xml")

lhc_client.SetRequestHeader("Content-Length",string(len(ls_xml_request) ))

ls_data = ""

li_ret = lhc_client.sendrequest("POST", ls_url,ls_xml_request )

li_StatusCode = lhc_client.GetResponseStatusCode()

ls_ret = lhc_client.GetResponseStatusText( )

li_ret = lhc_client.getresponsebody(  ls_data)

destroy lhc_client

 

lpbdom_builder = Create PBDOM_Builder

lpbdom_doc = lpbdom_builder.BuildFromString(ls_data)

ls_BoolValue = lpbdom_doc.GetRootElement().GetChildElement( "BoolValue","", "http://schemas.datacontract.org/2004/07/WelcomeWcfService").GetText()

ls_StringValue = lpbdom_doc.GetRootElement().GetChildElement( "StringValue","", "http://schemas.datacontract.org/2004/07/WelcomeWcfService").GetText()

destroy lpbdom_builder

How to use the RESTClient object to consume a WCF Service.

    a. To get the method and parameters to consume the WCF Service.

Normally when you open a WCF Service website, you will get the following page:

However, you would still need the documentation provided by the WCF Service and also need to verify if the current WCF Service supports JSON format parameters in order to consume this WCF using URL or through a client. If the current service provider has provided the online help, you can use the WCF Service address + "/help" to obtain the corresponding API descriptions, the parameters as follows:

Note: If helpEnabled is not set or is set to false in the Web.config of the current WCF Service provider, then the help page won’t display.

Let’s take the GetDataUsingDataContract method as an example. Click the corresponding post method to open a new link shown in the screenshot below:

There is the example request body for us to consume this API.

Note: When using the RESTClient object to access the GetDataUsingDataContract method, we have modified the returned value in WCF Service to support JSON instead of the previous default XML content. (The example in the previous HTTPClient object method uses XML format returned value.)

Before we write PowerScript to call this method, we can also verify if we can successfully access it using a third-party tool (such as Postman), and see if the current parameters are valid

The example request JSON body content we copy is as follows:

{

      "BoolValue":true,

      "StringValue":"String content"

}

We can test this API in Postman first as shown below:

Then we can see that the current code works correctly.

    b. The PB code of using the RESTClient object to call the API.

After you have verified the API with Postman, you can use the same protocol and content to implement it with the RESTClient object from PowerBuilder.

Please note that the current code has been verified in PowerBuilder 2019 Build 2170.

Example code:

Integer                 li_return, li_StatusCode

String                    ls_url, ls_ret, ls_data, ls_json

String                    ls_Error, ls_value

RestClient            lrc_RestClient

JsonParser          ljp_JsonParser

Boolean                                lb_flag

 

ls_json = '{"BoolValue":true,       "StringValue":"String content "}'

ls_url = "http://localhost:61869/WelcomeService.svc/GetDataUsingDataContract"

 

lrc_RestClient = Create RestClient

// Construct a POST request (supports all headers)

lrc_RestClient.SetRequestHeader("Content-Type", "application/json;charset=UTF-8")

li_return = lrc_RestClient.SendPostRequest(ls_url, ls_json, ls_data)

// Check the return value

if li_return = 1 then

                li_StatusCode = lrc_RestClient.GetResponseStatusCode()

                ls_ret = lrc_RestClient.GetResponseStatusText()

 

                ljp_JsonParser = Create JsonParser

                ls_Error = ljp_JsonParser.LoadString(ls_data)

                if Len(ls_Error) = 0 then

                                ls_value = ljp_JsonParser.GetItemString(ljp_JsonParser.GetRootItem(), "StringValue")

                                lb_flag = ljp_JsonParser.GetItemBoolean(ljp_JsonParser.GetRootItem(), "BoolValue")

                end if

                Destroy ljp_JsonParser

else

                MessageBox("Error", "Failed to retrieve data.")

end if

 

Destroy lrc_RestClient

 

3
1