PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 25 → Aula 1043 - WebService - 006 - Consumir WebService - Ler Xml Colocar Tabela-
Aula 1043 - WebService - 006 - Consumir WebService - Ler Xml Colocar Tabela-
Started by amarildo, Jan., 21 2017 11:09 AM - 1 reply
Registered member
535 messages
Popularité : +14 (14 votes)
Posted on January, 21 2017 - 11:09 AM
// 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

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,XMLElement+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>


http://windevdesenvolvimento.blogspot.com.br/2017/01/aula-1043-webservice-006-consumir.html

Registered member
3,651 messages
Popularité : +175 (223 votes)
Posted on February, 09 2017 - 11:00 AM
:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/