Histórico da Página

user function t7287()
  Local oWsdl := TWsdlManager():New()
  Local xRet
  
  xRet := oWsdl:ParseURL( "http://wsf.cdyne.com/WeatherWS/Weather.asmx?WSDL" )
  if xRet == .F.
    conout( "Erro ParseFile" )
    return
  endif
  
  //lista os ports válidos disponíveis
  xRet := oWsdl:GetPorts()
  varinfo( "Ports", xRet )
  
  //Vai exibir:
  //Ports -> ARRAY (    2) [...]
  //   Ports[1] -> ARRAY (    4) [...]
  //        Ports[1][1] -> C (   11) [WeatherSoap]
  //        Ports[1][2] -> C (   15) [tns:WeatherSoap]
  //        Ports[1][3] -> C (   36) [http://schemas.xmlsoap.org/soap/http]
  //        Ports[1][4] -> C (   43) [http://wsf.cdyne.com/WeatherWS/Weather.asmx]
  //   Ports[2] -> ARRAY (    4) [...]
  //        Ports[2][1] -> C (   13) [WeatherSoap12]
  //        Ports[2][2] -> C (   17) [tns:WeatherSoap12]
  //        Ports[2][3] -> C (   36) [http://schemas.xmlsoap.org/soap/http]
  //        Ports[2][4] -> C (   43) [http://wsf.cdyne.com/WeatherWS/Weather.asmx]
return