PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WINDEV 25 → Manual de uso do Webservice Rest
Manual de uso do Webservice Rest
Iniciado por BOLLER, mar., 06 2020 6:19 PM - 3 respostas
#1
Membro registado
3.655 mensagems
Popularité : +175 (223 votes)
Publicado em março, 06 2020 - 6:19 PM












,























































































































































--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Mensagem modificada, março, 06 2020 - 6:24 PM
#2
Membro registado
3.655 mensagems
Popularité : +175 (223 votes)
Publicado em março, 07 2020 - 2:20 AM
PREZADOS

Outra forma de como recuperar o usuário e senha informados na chamada a um webservice rest no Windev

exemplo de chamada DO lado client:
======================================
oRequest is httpRequest
oResponse is httpResponse
oRequest..URL = "http://localhost/vendedores/100"
oRequest..Method = httpGet
oRequest..User = "evandro"
oRequest..Password = "123"
oResponse = HTTPSend(oRequest)


exemplo de código lado server:
======================================
sCampo is string = WebserviceReadHTTPHeader("Authorization")
//o conteúdo de sCampo será: "Basic ZXZhbmRybzoxMjM="
//o usuario e senha vem codificado em base64

sCampo = Decode(ExtractString(sCampo, 2, "Basic "),encodeBASE64)
//fiz um decode do conteúdo depois da palavra Basic
//agora o sCampo vale: "evandro:123"

//agora basta extrair o usuário e senha e fazer as validações necessárias
sUser is string = ExtractString(sCampo, 1, ":")
sPassword is string = ExtractString(sCampo, 2, ":")


Agradecimento especial ao @Fábio Senji que tentou ajudar!

Att,

Evandro Andersen
HDTec Software

OBRIGADO POR LIBERAR ESSA INFORMAÇÃO

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Mensagem modificada, março, 07 2020 - 2:22 AM
#3
Membro registado
3.655 mensagems
Popularité : +175 (223 votes)
Publicado em junho, 03 2020 - 11:29 PM
Se for REST com Token

cMaRequete..Méthode = httpGet

cMaRequete..URL = SO_PARAMETRO.PAR_URLWS + "/api/Sectors/GetFactorySectors/" + gclMyparam.gsFilial

cMaRequete..Entête["Authorization"]= "Bearer " + SO_PARAMETRO.PAR_TOKENWS

cMaRequete..ContentType = "application/json"

cMaReponse est un restRéponse = RESTEnvoie(cMaRequete)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
#4
Membro registado
3.655 mensagems
Popularité : +175 (223 votes)
Publicado em março, 23 2023 - 10:10 PM
É possível usar ofLoadBuffer para alimentar a
propriedade..Content
de uma variável rest Request.
Exemplo de código, DO lado cliente, de uma aplicação Windev
//////////////////////////////////////////////////////////////////////

cMinharequisicao is httpRequest
cMinharequisicao..Method=httpPost
cMinharequisicao..URL="http://meuservidor/upload"
cMinharequisicao..Content=fLoadBuffer(fDataDir+fSep+"arquivo_upload.txt")
RESTSend(cMinharequisicao)


Exemplo de código DO lado servidor
aplicativo WEBDEV(tipo WebService REST)
///////////////////////////////////////////////

Procedure upload()
bufUploadedFile is Buffer=WebserviceParameter(paramBuffer)
IF fSaveBuffer("arquivo_upload.txt",bufUploadedFile) THEN
RESULT bufUploadedFile
END

///////////O arquivo será salvo No diretório de dados DO WebService.


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