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