Local oWsdl := tWsdlManager():New()
Local xRet
xRet := oWsdl:ParseURL( "http://wsf.cdyne.com/WeatherWS/Weather.asmx?WSDL" )
if xRet == .F.
Return
endif
xRet := oWsdl:SetOperation( "GetCityForecastByZIP" )
if xRet == .F.
Return
endif
xRet := oWsdl:SetValue( 0, "90210" )
if xRet == .F.
Return
endif
xRet := oWsdl:SendSoapMsg()
if xRet == .F.
conout( tWsdlManager:cFaultCode )
endif
|