User Function Teste()
Local oWsdl
Local xRet
Local aOps := {}
// Cria o objeto da classe TWsdlManager
oWsdl := TWsdlManager():New()
// Faz o parse de uma URL
xRet := oWsdl:ParseURL( "http://wsf.cdyne.com/WeatherWS/Weather.asmx?WSDL" )
if xRet == .F.
conout( "Erro: " + oWsdl:cError )
Return
endif
// Lista as operações disponíveis
aOps := oWsdl:ListOperations()
varinfo( "", aOps )
Return
|