I'm trying to connect to a currency conversion web service. I've registered the service, used the example code stub as a a basis, and intellisense for the syntax - all I get is an error message: "Error 1300, Function Name is missing an )".
Code:
LOCAL loCurrencyConvertor AS "XML Web Service"
* LOCAL loCurrencyConvertor AS "MSSOAP.SoapClient30"
* Do not remove or alter following line. It is used to support IntelliSense for your XML Web service.
*__VFPWSDef__: loCurrencyConvertor =
http://www.webservicex.net/CurrencyConvertor.asmx?wsdl , CurrencyConvertor , CurrencyConvertorSoap
LOCAL loException, lcErrorMsg, loWSHandler
TRY
loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx")
loCurrencyConvertor = loWSHandler.SetupClient("
http://www.webservicex.net/CurrencyConvertor.asmx?wsdl", "CurrencyConvertor", "CurrencyConvertorSoap")
* Call your XML Web service here. ex: leResult = loCurrencyConvertor.SomeMethod()
FromCurrency = [GBP]
ToCurrency = [USD]
lnResult = loCurrencyConvertor.ConversionRate(FromCurrency as Currency, ToCurrency as Currency) as double
CATCH TO loException
lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message
DO CASE
CASE VARTYPE(loCurrencyConvertor)#"O"
* Handle SOAP error connecting to web service
CASE !EMPTY(loCurrencyConvertor.FaultCode)
* Handle SOAP error calling method
lcErrorMsg=lcErrorMsg+CHR(13)+loCurrencyConvertor.Detail
OTHERWISE
* Handle other error
ENDCASE
* Use for debugging purposes
MESSAGEBOX(lcErrorMsg)
FINALLY
ENDTRY