Background:

The purpose of this article is to show you how to use the PBDOM object to build the specified XML content for the parameter of an HTTP request sent with the HTTPClient object and how to obtain the specified content in the returned XML string.

Implementation Steps:

1. Load the PBDOM Object in the PB Application

You can add pbdom170.pbd directly into your application (Default Path: C:\Program Files (x86)\Appeon\Shared\PowerBuilder) or import the PBDOM170.pbx file into a PBL in your application.

2. Use the PBDOM Object to Build the Specified XML String

Open the SOAP Web service on IE as shown below. Copy the associated SOAP sample request. Refer to the red content below. (If you don’t see this content, please contact your service provider to get such a sample request.)

 

The content of the XML string to be built:

 <?xml version="1.0" encoding="utf-8"?>

 <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">

   <soap:Body>

     <of_add xmlns="http://tempurl.org">

       <ai_test>short</ai_test>

     </of_add>

   </soap:Body>

 </soap:Envelope>

If you want to simply use a string to build the XML content and send it through HTTPClient, the code is as follows:

 HttpClient                                             lhc_client

 Integer                                                  li_ret , i , li_StatusCode

 String                                                    ls_url , ls_data, ls_body , ls_ret

 

 ls_url ="http://localhost/invoice/n_webservice.asmx"                                   

 ls_body = '<?xml version="1.0" encoding="utf-8"?>'+&

 '<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" '+&

 'xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">'+&

 '  <soap:Body>'+&

 '    <of_add xmlns="http://tempurl.org">'+&

 '      <ai_test>2</ai_test>'+&

 '    </of_add>'+&

 '  </soap:Body>'+&

 '</soap:Envelope>'

 

 lhc_client = CREATE httpClient

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

 lhc_client.sendrequest('POST',ls_url,ls_body)

 li_StatusCode = lhc_client.GetResponseStatusCode()

 ls_ret = lhc_client.GetResponseStatusText( )

 li_ret = lhc_client.getresponsebody(ls_data)

 DESTROY lhc_client

If you use the PBDOM object to build the XML content, here's what it looks like:

 HttpClient                                          lhc_client

 PBDOM_Builder                               lpbdom_Builder

 PBDOM_Document                          lpbdom_doc

 PBDOM_ProcessingInstruction        lpbdom_process

 PBDOM_ELEMENT                          lpbdom_root, lpbdom_body, lpbdom_method, lpbdom_arg

 Integer                                                li_ret , i , li_StatusCode

 String                                                   ls_url, ls_data, ls_value, ls_body, ls_ret, ls_rootname

 

 ls_url ="http://localhost/invoice/n_webservice.asmx"                   

 ls_rootname ="Envelope"                                                                          

 TRY

                lpbdom_doc = CREATE PBDOM_Document

                lpbdom_doc.newdocument(ls_rootname)

                lpbdom_process = CREATE PBDOM_ProcessingInstruction

                lpbdom_process.setname("xml")

                lpbdom_process.setvalue("version", "1.0")

                lpbdom_process.setvalue("encoding", "utf-8")                                                                                                                     

                lpbdom_doc.addcontent(lpbdom_process)

                DESTROY lpbdom_process

               

                lpbdom_root = lpbdom_doc.getrootelement()

                lpbdom_root.AddNameSpaceDeclaration('xsd',"http://www.w3.org/2001/XMLSchema")

                lpbdom_root.SetNameSpace('xsd',"http://www.w3.org/2001/XMLSchema",False)           

                lpbdom_root.AddNameSpaceDeclaration('xsi',"http://www.w3.org/2001/XMLSchema-instance")

                lpbdom_root.SetNameSpace('xsi',"http://www.w3.org/2001/XMLSchema-instance",False)

                lpbdom_root.AddNameSpaceDeclaration('soap',"http://schemas.xmlsoap.org/soap/envelope/")

                lpbdom_root.SetNameSpace('soap',"http://schemas.xmlsoap.org/soap/envelope/",False)

                //body 

                lpbdom_body = CREATE PBDOM_Element

                lpbdom_body.setname( "Body")

                lpbdom_body.setnamespace( "soap", "http://schemas.xmlsoap.org/soap/envelope/", False)

                //of_add

                lpbdom_method = CREATE PBDOM_Element

                lpbdom_method.setname( "of_add")

                lpbdom_method.addnamespacedeclaration( "", "http://tempurl.org")

                //ai_test

                lpbdom_arg = CREATE PBDOM_Element

                lpbdom_arg.setname( "ai_test")

                lpbdom_arg.settext( "2")

                //addcontent

                lpbdom_method.addcontent( lpbdom_arg)

                lpbdom_body.addcontent( lpbdom_method)

                lpbdom_root.addcontent( lpbdom_body)

                ls_body  = lpbdom_doc.savedocumentintostring( )                           //get new xml

 CATCH ( PBDOM_Exception pbde )  

                MessageBox( "PBDOM Exception", pbde.getMessage() )

 CATCH ( PBXRuntimeError re )  

                MessageBox( "PBNI Exception", re.getMessage() )

 END TRY

 IF isvalid(lpbdom_arg)                   THEN     DESTROY lpbdom_arg

 IF isvalid(lpbdom_method)            THEN     DESTROY lpbdom_method

 IF isvalid(lpbdom_body)                THEN     DESTROY lpbdom_body

 IF isvalid(lpbdom_doc)                  THEN     DESTROY lpbdom_doc

               

 lhc_client = CREATE httpClient

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

 lhc_client.sendrequest('POST',ls_url,ls_body)

 li_StatusCode = lhc_client.GetResponseStatusCode()

 ls_ret = lhc_client.GetResponseStatusText( )

 li_ret = lhc_client.getresponsebody(  ls_data)

 DESTROY lhc_client

3. Use the PBDOM Object to Get the Specified Content in the XML String.

 The content of the XML string to be obtained:

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <of_addResponse xmlns="http://tempurl.org">
      <of_addResult>short</of_addResult>
    </of_addResponse>
  </soap:Body>
</soap:Envelope>

Execute the following PB code can get the value of the of_addResult element in the returned XML string from the Soap Web Service.

 lpbdom_Builder = CREATE PBDOM_BUILDER

 TRY

                // generate XML Document

                lpbdom_Doc = lpbdom_Builder.BuildFromString( ls_data )           

                ls_value = lpbdom_Doc.GetRootElement().&

                GetChildElement("Body", "soap","http://schemas.xmlsoap.org/soap/envelope/").&

                GetChildElement("of_addResponse","","http://tempurl.org").&

                GetChildElement("of_addResult","","http://tempurl.org").gettext()         

 CATCH (PBDOM_Exception lpbdom_Except)

                // Error Handling goes here,

                MessageBox( "PBDOM_Exception", lpbdom_Except.GetExceptionCode())

 END TRY

 DESTROY lpbdom_Builder

               

 

 

5
5