>LOCAL loBFGlobalService AS "XML Web Service" >* LOCAL loBFGlobalService AS "MSSOAP.SoapClient30" >* Do not remove or alter following line. It is used to support IntelliSense for your XML Web service. >*__VFPWSDef__: loBFGlobalService = https://api.betfair.com/global/v3/BFGlobalService.wsdl , BFGlobalService , BFGlobalService >LOCAL loException, lcErrorMsg, loWSHandler >TRY > loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx") > loBFGlobalService = loWSHandler.SetupClient("https://api.betfair.com/global/v3/BFGlobalService.wsdl", "BFGlobalService", "BFGlobalService") > * Call your XML Web service here. ex: leResult = loBFGlobalService.SomeMethod() > *login(request AS LoginReq) AS LoginResp > >CATCH TO loException > lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message > DO CASE > CASE VARTYPE(loBFGlobalService)#"O" > * Handle SOAP error connecting to web service > CASE !EMPTY(loBFGlobalService.FaultCode) > * Handle SOAP error calling method > lcErrorMsg=lcErrorMsg+CHR(13)+loBFGlobalService.Detail > OTHERWISE > * Handle other error > ENDCASE > * Use for debugging purposes > MESSAGEBOX(lcErrorMsg) >FINALLY >ENDTRY > >SET TEXTMERGE ON >TEXT TO lcLogin NOSHOW PRETEXT 7 ><?xml version="1.0" encoding="utf-16"?> ><soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> > <soap:Body> > <login xmlns="http://www.betfair.com/publicapi/v3/BFGlobalService/"> > <request> > <ipAddress xmlns="" /> > <locationId xmlns="">0</locationId> > <password xmlns="">bfpassword</password> > <productId xmlns="">82</productId> > <username xmlns="">bfusername</username> > <vendorSoftwareId xmlns="">0</vendorSoftwareId> > </request> > </login> > </soap:Body> ></soap:Envelope> >ENDTEXT >SET TEXTMERGE OFF > >TRY > *loBFGlobalService .ConnectorProperty("Timeout") = 240000 > lcXML = loBFGlobalService.login(lcLogin) > xmltocursor(lcXML) > BROWSE >CATCH TO loException > lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message > DO CASE > CASE VARTYPE(loBFGlobalService)#"O" > * Handle SOAP error connecting to web service > CASE !EMPTY(loBFGlobalService.FaultCode) > * Handle SOAP error calling method > lcErrorMsg=lcErrorMsg+CHR(13)+loBFGlobalService.Detail > OTHERWISE > * Handle other error > ENDCASE > * Use for debugging purposes > MESSAGEBOX(lcErrorMsg) >FINALLY >ENDTRY > >>
><?xml version="1.0" encoding="utf-8"?> ><soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> > <soap:Body> > <login xmlns="http://www.betfair.com/publicapi/v3/BFGlobalService/"> > <request> > <ipAddress xmlns=""></ipAddress> > <locationId xmlns="">0</locationId> > <password xmlns="">bfpassword</password> > <productId xmlns="">82</productId> > <username xmlns="">bfusername</username> > <vendorSoftwareId xmlns="">0</vendorSoftwareId> > </request> > </login> > </soap:Body> ></soap:Envelope> >>