XML Replay

When attempting to diagnose problems which occur within web service environments, it is often useful to be able to re-run the XML which triggered the problem, so as to be able to step through it in the Visual DataFlex Studio debugger. The XML passed to a web service can be logged (see XML Logging for details of how this can be done) and this historic data can then be used to "replay" the offending call and see what probably happened.

Assuming you have access to the original XML (see XML Logging), this can then be saved into a text file - usually with the extension ".xml". This XML is then ready for incorporation into a SOAP message for re-sending to your service, running under a debugger, so you can set breakpoints and trace the execution through, step by step.

In order to do this however, you are going to need a client which operates at a lower level than the standard web service client class you are able to generate for your service using the Studio's Web Service Client Class Generator. The following is an example of how you might do this using an object of the cXmlHttpTransfer class.

  Use cXmlHttpTransfer.pkg

  Object oTfr is a cXmlHttpTransfer
  End_Object  // oTfr
  
  Procedure InvokeService
     Handle  hoXML hoXmlResponse hoEnv hoBody hoDoc hoMsg
     Boolean bOK
     String  sServer sURI

     // Create the XML document and load your XML:
     Get Create U_cXmlDomDocument to hoDoc
     Set psDocumentName of hoDoc  to (Value(oInput(Self)))
     Get LoadXmlDocument of hoDoc to bOK

     If not bOK Begin
        Error 0 ("Could not load document" * psDocumentName(hoDoc))
        Procedure_Return
     End

     Get DocumentElement of hoDoc to hoMsg

     // Create the SOAP message, adding the initial processing instruction,
     // the "Envelope" document element, the "Body", then append your XML to that:
     Get Create U_cXmlDomDocument to hoXML
     Send AddChildProcessingInstruction of hoXML "xml" 'version="1.0"'
     Get CreateDocumentElementNS of hoXML "http://schemas.xmlsoap.org/soap/envelope/" "soap:Envelope" to hoEnv
     Get AddElement of hoEnv "soap:Body" "" to hoBody
     Get AppendNode of hoBody hoMsg to hoMsg

     // Set up the HTTP headers:
     Send ClearHeaders of oTfr
     Set psAcceptTypes of oTfr to "text/*"
     Set psContentTypeSent of oTfr to "text/xml; charset=UTF-8"
     Get AddHeader of oTfr "SOAPAction" ('"' + Value(oOperation(Self)) + '"') to bOk

     // Prepare the transfer object for sending:
     Get Value of oServer to sServer
     Get Value of oURI    to sURI
     Set piRemotePort of oTfr to (Value(oPort(Self)))

     // Send the message:
     Get HttpPostXmlNode of oTfr sServer sURI hoXML to hoXMLResponse

     // Deal with the response:
     If (hoXmlResponse=0) Set Value of oReturnedXML to "NO RESPONSE"
     Else                 Set Value of oReturnedXML to (psXml(hoXmlResponse))

     // Tidy up:
     Send Destroy of hoXML
     If hoXMLResponse Send Destroy of hoXMLResponse

  End_Procedure  // InvokeService

The above code obviously assumes the existence of objects (probably mostly of the class "Form") which contain the relevant information for the operation invocation:

• oInput - the path/name of the XML file to load and send
• oOperation - the operation (function) name beng invoked
• oServer - the server or IP address the service is running on (localhost in most debugging scenarios)
• oPort - the port number to use (80 by default)
• oURI - the URI of the service within the host: e.g. "MyService/TestService.wso"
• oReturnedXML - an object of class "cTextEdit" to take and display the response XML