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
Comments (0)