Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How can i retrieve full encoded message from SOAP envelope?
Message
General information
Forum:
Visual FoxPro
Category:
Web Services
Title:
How can i retrieve full encoded message from SOAP envelope?
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows Server 2003
Network:
Novell 6.x
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01357951
Message ID:
01357951
Views:
173
Hi
I am trying to debug some mean error message received when consuming a third party web service. I know the xml my app. generated is correct, since when testing on their manual page i get a good response. When trying to call it from my application, i get the error:
Error: 1429 - OLE IDispatch exception code 0 from Connector: Connector:Http error while parsing server's response.
HRESULT=0x800A1526 - Client:An unanticipated error occurred during the processing of this request. HRESULT=0x800A1526 -
Client:Sending the Soap message failed or no recognizable response was received HRESULT=0x800A1526 - Client:Unspecified client 
error. HRESULT=0x800A1526..
Connector:Http error while parsing server's response. HRESULT=0x800A1526 - Client:An unanticipated error occurred during the 
processing of this request. HRESULT=0x800A1526 - Client:Sending the Soap message failed or no recognizable response was 
received HRESULT=0x800A1526 - Client:Unspecified client error. HRESULT=0x800A1526
My code looks like this:
LOCAL loIOTAPort AS "XML Web Service"
LOCAL loException, lcErrorMsg, loWSHandler
TRY
	loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx")
	loIOTAPort = loWSHandler.SetupClient("http://mo.vanguardcar.com/services/OTA?wsdl", "IOTA", "IOTAPort")

	lxml = FILETOSTR("c:\documents and settings\administrator.ofrandm\my documents\visual foxpro projects\resrq.xml")
	lResponse = loIOTAPort.do_OTA_VehResRQ( "AL", "2007A", lxml ) &&& <-- this triggers the error
	
           CATCH TO loException
	lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message
	DO CASE
	CASE VARTYPE(loIOTAPort)#"O"
		* Handle SOAP error connecting to web service
	CASE !EMPTY(loIOTAPort.FaultCode)
		* Handle SOAP error calling method
		lcErrorMsg=lcErrorMsg+CHR(13)+loIOTAPort.Detail
	OTHERWISE
		* Handle other error
	ENDCASE
	* Use for debugging purposes
	MESSAGEBOX(lcErrorMsg)
FINALLY
ENDTRY
I sent the error message to the developer of the web service, and he asked for the full encoded message within the soap envelope in order to debug.
My guess is i should set some client property prior to calling the function, but i really don't have a clue.

Thanks
Jaime
Why do programs stop working correctly as soon as you leave the Fox?
Next
Reply
Map
View

Click here to load this message in the networking platform