New OpenURL function

The new OpenURL
system function has the same functionality as the HyperLinkToURL
function of the Inet object.

Integer OpenUrl( string url )

1	Integer OpenUrl( string url )

It is possible to completely stop using the obsolete Inet
object, because:

The OpenURL function can replace
the Inet.HyperLinkToURL function to open the default Web browser
(outside the application) and navigate to the specified
URL.

The HTTPClient.SendRequest (“GET”, …) can replace the
Inet.GetURL function.

For example,

Integer li_rc
String ls_string
HttpClient lnv_HttpClient
lnv_HttpClient = Create HttpClient

// Sends request using GET method
li_rc = lnv_HttpClient.SendRequest("GET", "https://demo.appeon.com/PB/webapi_client/employee/102")
// Obtains the response data
if li_rc = 1 and lnv_HttpClient.GetResponseStatusCode() = 200 then
              lnv_HttpClient.GetResponseBody(ls_string)
end if

Integer li_rc

String ls_string

HttpClient lnv_HttpClient

lnv_HttpClient = Create HttpClient

// Sends request using GET method

li_rc = lnv_HttpClient.SendRequest("GET", "https://demo.appeon.com/PB/webapi_client/employee/102")

// Obtains the response data

if li_rc = 1 and lnv_HttpClient.GetResponseStatusCode() = 200 then

lnv_HttpClient.GetResponseBody(ls_string)

end if

The HTTPClient.SendRequest (“POST”, …) can replace the
Inet.PostURL function.

For example,

Integer li_rc
String ls_ReturnJson
HttpClient lnv_HttpClient
lnv_HttpClient = Create HttpClient

String ls_json = '{"empId":100, "fname":" John", "lname": "Guevara"}'

// Constructs a POST request (supports all headers)
lnv_HttpClient.SetRequestHeader("Content-Type", "application/json;charset=UTF-8")
// Content-Length header set by SendRequest

// Sends request using POST method (to add the string data to the body and set to the Content-Length header)
li_rc = lnv_HttpClient.SendRequest("POST", "https://demo.appeon.com/PB/webapi_client/employee", ls_json)

// Obtains the response data
if li_rc = 1 and lnv_HttpClient.GetResponseStatusCode() = 200 then
              lnv_HttpClient.GetResponseBody(ls_ReturnJson)
end if

Integer li_rc

String ls_ReturnJson

HttpClient lnv_HttpClient

lnv_HttpClient = Create HttpClient

String ls_json = '{"empId":100, "fname":" John", "lname": "Guevara"}'

// Constructs a POST request (supports all headers)

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

// Content-Length header set by SendRequest

// Sends request using POST method (to add the string data to the body and set to the Content-Length header)

li_rc = lnv_HttpClient.SendRequest("POST", "https://demo.appeon.com/PB/webapi_client/employee", ls_json)

// Obtains the response data

if li_rc = 1 and lnv_HttpClient.GetResponseStatusCode() = 200 then

lnv_HttpClient.GetResponseBody(ls_ReturnJson)

end if

Document get from Powerbuilder help

Thank you for watching.

Powerbuilder Documentation 2022

August 21, 2023

Was this article helpful?

Connection Information

New OpenURL function – PB Docs 2022

New OpenURL function

My Website Links