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