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.
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