RosettaCodeData/Task/SOAP/Visual-Objects/soap.vobj

11 lines
360 B
Text
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
LOCAL oSoapClient AS OBJECT //OLEAUTOOBJECT
2013-04-11 01:07:29 -07:00
LOCAL cUrl AS STRING
LOCAL uResult AS USUAL
oSoapClient := OLEAutoObject{"MSSOAP.SoapClient30"}
cUrl := "http://example.com/soap/wsdl"
IF oSoapClient:fInit
oSoapClient:mssoapinit(cUrl,"", "", "" )
uResult := oSoapClient:soapFunc("hello")
uResult := oSoapClient:anotherSoapFunc(34234)
ENDIF