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