Aula 1043 - WebService - 006 - Consumir WebService - Ler Xml Colocar Tabela-

---

---

---

Video no Youtube Se Gostou clique aqui para dar joinha

---

---

Help1

---

Criar Projeto WebService - Lista Site - - WebService - 001/...
Deploy - Gerando WebService/Levando Servidor/Instalar/Mostrar - WebService - 002/...
Instalando SoapUI - Testar WebService - Aula 1040 - WebService - 003/...
Ajustando Xml Lista Site WebService - WebService - 004/...
Consumir WebService - WebService - 005
Xml - Consumir Ler Xml e colocar Tabela - WebService - 006
Dolar - Consumir WebService - Cotação Dolar - 007

---

Aula 1043 - WebService - 004 - Consumir WebService - Ler Xml Colocar Tabela-

1. Mostrar como Importar um WebService no WebDev22
2. Consumir o Servico Do Site
3. Colocar xml na TAbela

Fazer a Aula

PROCEDURE busca_site_webService()


SAI_retorno_xml = matos_webservice.Lista_Sites() //Aqui Vai retornar o Xml da Relação de Site

TableDeleteAll(TABLE_Site_WebService)//Limpar Conteudo Tabela
XMLDocument("XML",SAI_retorno_xml) //Abrindo Documento Xml
//SAI_retorno_xml=XMLRead("XML","/xml/retorno/empresa")
s_nome_tag is string=""   
s_titulo is string=""
s_link is string=""
s_nome_atributo is string=""
s_id is string="" //Criando Variaveis que vou utilizar
XMLFind("XML",Null,XMLElément+XMLChildItem,XMLStartWith)
WHILE XMLFound("XML")   
    SWITCH XMLElementType("XML")       
        CASE XMLTag :
            s_nome_tag = XMLElementName("XML")
            IF s_nome_tag="titulo" THEN
                s_titulo=XMLData("XML")               
            END               
            IF s_nome_tag="titulo_link" THEN
                s_link=XMLData("XML")               
            END           
        CASE XMLAttribute :
            s_nome_atributo = XMLElementName("XML")
            IF s_nome_atributo="id" THEN
                s_id=XMLData("XML")
            END
        OTHER CASE               
    END
    IF s_link<>"" THEN
        TableAddLine(TABLE_Site_WebService,s_id,s_titulo,s_link)        //Caso chegar no link, vamos criar a linha da tabela
        s_titulo=""
        s_link=""
        s_id=""
    END
    XMLNext("XML")
END
XMLClose("XML")

//Percorrer o Xml

//<xml>
//<retorno>
//<empresa>Amarildo de Matos</empresa>
//<site_uteis id="00001">
//<titulo>Matos Informatica</titulo>
//<titulo_link>www.matosinformatica.com.br</titulo_link>
//</site_uteis>
//<site_uteis id="00002">
//<titulo>Google</titulo>
//<titulo_link>https://www.google.com.br/?gws_rd=ssl</titulo_link>
//</site_uteis>
//</retorno>
//</xml>

---

---

---

---

---