11 lines
360 B
Text
11 lines
360 B
Text
|
LOCAL oSoapClient AS OBJECT //OLEAUTOOBJECT
|
||
|
|
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
|