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