LOCAL loUKLocation AS "XML Web Service"
* LOCAL loUKLocation AS "MSSOAP.SoapClient30"
* Do not remove or alter following line. It is used to support IntelliSense
for your XML Web service.
*__VFPWSDef__: loUKLocation =
http://www.webservicex.net/uklocation.asmx?wsdl , UKLocation ,
UKLocationSoap
LOCAL loException, lcErrorMsg, loWSHandler
TRY
loWSHandler =
NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx")
loUKLocation =
loWSHandler.SetupClient("http://www.webservicex.net/uklocation.asmx?wsdl";,
"UKLocation", "UKLocationSoap")
* Call your XML Web service here. ex: leResult =
loUKLocation.SomeMethod()
retval = loUKLocation.GetUKLocationByTown("Southwick")
? retval
CATCH TO loException
lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" -
"+loException.Message
DO CASE
CASE VARTYPE(loUKLocation)#"O"
* Handle SOAP error connecting to web service
CASE !EMPTY(loUKLocation.FaultCode)
* Handle SOAP error calling method
lcErrorMsg=lcErrorMsg+CHR(13)+loUKLocation.Detail
OTHERWISE
* Handle other error
ENDCASE
* Use for debugging purposes
MESSAGEBOX(lcErrorMsg)
FINALLY
ENDTRY
-----Original Message-----
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/8179E1939A7444C8A763622DC5D4B1E6@GSLACER
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
