https://youtu.be/b15Cor3EGuU
Bom Dia Boa Tarde Boa Noite
Mande um email pedido para receber todas notificaçoes dos videos
email : amarildo.matos@gmail.com
==============================================================
Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros:
Skype Privado
Sugerir ou pedir Videos
Valroes de consultorias com precos acesiveis
Pedir para eu refazer uma exemplo versao inferior
Quero Refazer meu sistema no windev, onde comecar?
Como fazer uma proteção on-line do seu sistema ?
Meu projeto será grande, como devo fazer?
==============================================================
video 3469 - rest - podcast -
https://repository.windev.com/resource.awp?file_id=281474976711244;exemplo-rest-windev-23-video-3469
Assuntos :
00:00:00 Inicio Atividades as 16:00
00:22:00 Criando Arquivo Tabela cliente
00:43:05 Tirar cabecalho do json
01:40:00 Vendo rest windev 26
01:49:00 Autenticacao - Maravilha
01:53:00 Post - Alterar,excluir
==============
PROCEDURE get_cliente()
sToken is string = WebserviceReadHTTPHeader("Authorization")
sRetorno is string=""
IF sToken="123" THEN
nNCLIENTES is int=WebserviceParameter("id")
sNome is string=WebserviceParameter("nome")
IF nNCLIENTES=0 THEN
QRY_cliente_ler.parametro_cliente_id=Null
ELSE
QRY_cliente_ler.parametro_cliente_id=nNCLIENTES
END
HExecuteQuery(QRY_cliente_ler,hQueryDefault)
HExportJSON(QRY_cliente_ler,"cliente.json",hExpCreation)
sRetorno=fLoadText("cliente.json")
texto1 is string=[
{ "QRY_cliente_ler":[
]
sRetorno=Replace(sRetorno,texto1,"")
fSaveText("r1.txt",sRetorno)
sRetorno=Replace(sRetorno,"] }","")
fSaveText("r2.txt",sRetorno)
ELSE
sRetorno="erro autenticacao"
END
//paulo viana
//paulo viana disse:Meujson_s = "["+ExtractStringBetween(meujson_full,1,"[","]")+"]"
RESULT sRetorno
==========
PROCEDURE POST_CLIENTE()
sToken is string = WebserviceReadHTTPHeader("Authorization")
IF sToken<>"123" THEN
RESULT "nao autorizado"
END
sJSON is string=WebserviceParameter(paramBuffer)
stCampos is Structure
clienteID is int
nome is string
email is string
valor is currency
data is Date
sttipo is string // tipo, incluir,alterar ou excluir
END
stSCampos is stCampos
Deserialize(stSCampos, sJSON, psdJSON)
IF stSCampos.sttipo="inclusao" THEN
HReset(cliente)
END
fSaveText("clientedados.json",sJSON)
HImportJSON(cliente,"clientedados.json")
//HSAVE(cliente)
---------
// consulta
oRequest is httpRequest
oResponse is httpResponse
oRequest.URL = "http://localhost/cliente23?id=0"
oRequest.Method = httpGet
oRequest..Header["Authorization"] = "123"//EDT_Senha
//oResponse = HTTPSend(oRequest)
oResponse=RESTSend(oRequest)
EDT_resultado=oResponse..Content
----
// incluscao, alteracao
oRequest is httpRequest
oResponse is httpResponse
oRequest.URL = "http://localhost/cliente23"
oRequest.Method = httpPost
oRequest.Content=EDT_JSON_MONTADO
oRequest.ContentType=typeMimeJSON
oRequest..Header["Authorization"] = "123"//EDT_Senha
oResponse=RESTSend(oRequest)
EDT_resultado=oResponse..Content
--------------------- Indice WebService
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 2132 - HANGOUT AO VIVO 20 HORAS 30/05 - WEBSERVICE SOAP COM MOBILE
DICAS 2163 WINDEV WEBDEV MOBILE WEBSERVICE 28 SOAP
DICAS 2226 WINDEV WEBDEV MOBILE 24 NOVIDADES 26 WEBSERVICE 29 HTTPREQUEST - BUSCA CNPJ
DICA 2687 - WINDEV WEBDEV MOBILE - WEBSERVICE 32 - EXPLICANDO WEBSERVICE SOAP E CONSUMIDO MOBILE E DESKTOP
Nenhum comentário:
Postar um comentário