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