Video no Youtube Se Gostou clique aqui para dar joinha
// Nessa aula vou comecar a aprender e ensinar webservice
1) Criando Projeto WebService
2) Criando Procedure Lista Site
3) Criar o Xml que vai listar os Sites Uteis
====================================================================
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)
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
Cnpj Receita - Consumir WebService - 008/...
Cep Buscar WebService Correio - WebService - 009/...
CONSULTA CADASTRO SEFAZ P-1 - DICAS 1871 - WINDEV_23 - WEBSERVICE 010 -
CONSULTA CADASTRO SEFAZ P-2 - 1872 - PUBLICA - WINDEV_23 - WEBSERVICE 011 -
CONSULTA CADASTRO SEFAZ P-3 - 1873 - PUBLICA - WINDEV_23 - WEBSERVICE 012 -
DICAS 1877 - WINDEV_23 - WEBSERVICE 014 - CNPJ BUSCA CADASTRO ACBR
DICAS 2019 - WINDEV - WEBSERVICE - 015 - APRENDER A FAZER REST WEBSERVICE
DICAS 2020 - WINDEV - WEBSERVICE - 016 - CRIANDO TABELAS
DICAS 2021 - WINDEV - WEBSERVICE - 017 - WDTESTREST
DICAS 2022 - WINDEV MOBILE - WEBSERVICE - 018 - LER WEBSERVICE RESTSend
DICAS 2023 - WINDEV MOBILE - WEBSERVICE - 019 - LER WEBSERVICE RESTSend SOMENTE 1 REGISTRO
DICAS 2024 - WINDEV MOBILE - WEBSERVICE - 020 - WEBSERVICE RESTSend CRIA NOVO REGISTRO - httpPost
DICAS 2025 - WINDEV MOBILE - WEBSERVICE - 021 - WEBSERVICE RESTSend ALTERA REGISTRO - httpPut
DICAS 2026 - WINDEV MOBILE - WEBSERVICE - 022 - WEBSERVICE httpRequest httpDelete
DICAS 2033 - WINDEV - WEBSERVICE 23 - HTTPRequest - HTTPGetResult - fSaveBuffer - BAIXAR ARQUIVO
AO VIVO-SOAP-DICA 2095-WINDEV MOBILE WEBDEV-WEBSERVICE COM MOBILE -
DICAS 2096-2095 - WINDEV WEBDEV MOBILE - WEBSERVICE 25 - SOAP
DICAS 2097 - WINDEV MOBILE - WEBSERVICE 26 - MOSTRAR CLIENTES - SOAP
DICAS 2049 - WINDEV MOBILE - AULA 110 - WaitWindowStart - Ampuleta Mobile
