Aula 1042 - WebService - 005 - Consumir WebService -

---

---

---

Video no Youtube Se Gostou clique aqui para dar joinha

---

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

---

Aula 1042 - WebService - 004 - Consumir WebService -

1. Mostrar como Importar um WebService no WebDev22
2. Consumir o Servico Le Site
3. Colocar xml no edt Texto

PROCEDURE busca_site_webService()

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


<Xml>
<Retorno>
<Site_uteis id=00001>
<titulo>Matos Informatica</titulo>
<titulo_link>www.matosinformatica.com.br</titulo_link>
</Site_uteis>
<Site_uteis id=00002>
<titulo>Amarildo</titulo>
<titulo_link>www.amnarildo.com.br</titulo_link>
</Site_uteis>
</Retorno>
</Xml>

---

Help WebService

---

Help

---

Aula 1042 - WebService - 004 - Consumir WebService -

1. Mostrar como Importar um WebService no WebDev22
2. Consumir o Servico Le Site
3. Colocar xml no edt Texto

PROCEDURE busca_site_webService()

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


//<Xml>
//<Retorno>
//<Site_uteis id=00001>
//<titulo>Matos Informatica</titulo>
//<titulo_link>www.matosinformatica.com.br</titulo_link>
//</Site_uteis>
//<Site_uteis id=00002>
//<titulo>Amarildo</titulo>
//<titulo_link>www.amnarildo.com.br</titulo_link>
//</Site_uteis>
//</Retorno>
//</Xml>

---

---

---

---

Aula 1041 - WebService - 004 - Ajustando Xml Lista Site WebService

---

---

---

Video no Youtube Se Gostou clique aqui para dar joinha

---

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

---

1) Vamos ajustar Xml Lista Site
2 - Vou Deixar Tudo Minusculo
3 - Alterar Sites_Uteis id

==============================================================

PROCEDURE Lista_Sites()
//1 - Vou Deixar Tudo Minusculo
//2 - Alterar Sites_Uteis id1
s_resultado_xml is string="" // Criando Resultado Xml String
s_resultado_xml+="<xml>"  //Criando Tag Inicial Xml
s_resultado_xml+="<retorno>" // Criando Tag Inicial Retorno
FOR EACH sites_uteis // Percorrendo Tabela Sites Uteis       
    //Criei uma String Texto //Coloquei o que desejo dentro []
    s_texto is string=[
    <site_uteis id="@id@">
    ]   
    s_texto=NoSpace(Replace(s_texto,"@id@",NumToString(sites_uteis.id_sites_uteis,"05d")))   
    //Depois disso vai ficar <site_uteis id="00001">   
    //Abrindo Tag Site Uteis   
   
    s_resultado_xml+=s_texto
   
    s_resultado_xml+="<titulo>"+NoSpace(sites_uteis.titulo)+"</titulo>"
    //Abrindo e fechando tag com nome titulo
    s_resultado_xml+="<titulo_link>"+NoSpace(sites_uteis.titulo_link)+"</titulo_link>"
    //Abrindo e fechando tag com link    
    s_resultado_xml+="</site_uteis>"  //Fechando Tag Site Uteis   
END
s_resultado_xml+="</retorno>" // Criando Tag Final Retorno
s_resultado_xml+="</xml>" // Criando Tag Final Xml
RESULT(s_resultado_xml)

//<Xml>
//<Retorno>
//<empresa>Empresa Matos Informatica</empresa>
//<Site_uteis id="00001">
//<titulo>Matos Informatica</titulo>
//<titulo_link>www.matosinformatica.com.br</titulo_link>
//</Site_uteis>
//<Site_uteis id="00002">
//<titulo>Amarildo</titulo>
//<titulo_link>www.amnarildo.com.br</titulo_link>
//</Site_uteis>
//</Retorno>
//</Xml>

===================================================================

PROCEDURE testa_conexao()
s_resultado_xml is string="" // Criando Resultado Xml String
s_resultado_xml+="<xml>"  //Criando Tag Inicial Xml
s_resultado_xml+="<retorno>" // Criando Tag Inicial Retorno
//abre conexao

Matos_hyperfil_server..Provider = hAccessHFClientServer
Matos_hyperfil_server..Password = "senha"
Matos_hyperfil_server..User = "admin"
Matos_hyperfil_server..Server = "localhost"
Matos_hyperfil_server..Database = "nome_banco"
Matos_hyperfil_server..CryptMethod = hCryptNo
_observacao_conexao is string=""
IF HOpenConnection(Matos_hyperfil_server) = False THEN
    _observacao_conexao="problema na conexao ("+HErrorInfo(hErrMessage)+")"   
    s_resultado_xml+="<conexao>"+NoSpace(_observacao_conexao)+"</conexao>"
ELSE
    _observacao_conexao ="Conexao Ok"   
   
END
s_resultado_xml+="<conexao>"+NoSpace(_observacao_conexao)+"</conexao>"

HCloseConnection(Matos_hyperfil_server)

//abre conexao

s_resultado_xml+="</retorno>" // Criando Tag Final Retorno
s_resultado_xml+="</xml>" // Criando Tag Final Xml



RESULT(s_resultado_xml)

---

---

---

---

---

---

---