User Function Teste()
Local oWsdl
Local xRet
// Cria o objeto da classe tWsdlManager
oWsdl := tWsdlManager():New()
// Faz o parse de um arquivo
xRet := oWsdl:ParseFile( "\Weather.wsdl" )
if xRet == .F.
conout( "Erro: " + oWsdl:cError )
else
conout( "Parse feito com sucesso" )
endif
Return
|