11 lines
360 B
Plaintext
11 lines
360 B
Plaintext
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
|