PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WX - Trabalhando com Httprequest com os exemplos que usam CURL - API Pagseguro - API SMS - entre outras finalidades de integração.
WX - Trabalhando com Httprequest com os exemplos que usam CURL - API Pagseguro - API SMS - entre outras finalidades de integração.
Iniciado por adrianoboller, out., 21 2015 2:35 PM - 6 respostas
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em outubro, 21 2015 - 2:35 PM
Prezados,

Nesse tópico estartei passando um exemplo desenvolvido pelo meu amigo Fernando que exemplifica como trabalhar com Httprequest com os exemplos que usam CURL que podem ser usados para diversas finalidades, sendo uma delas a integração dos seus aplicativos com a API do Pagseguro, API de envio de SMS e entre outras finalidades de integração que necessitem ter op comando CURL.

Sobre o CURL:
http://php.net/manual/pt_BR/book.curl.php
https://en.wikipedia.org/wiki/CURL
http://blog.thiagobelem.net/tutorial-basico-de-curl-instalacao-configuracao-e-uso/

API do PAGSEGURO:
https://pagseguro.uol.com.br/v2/guia-de-integracao/api-de-pagamentos.html

Exemplo WX:
informacoes is string = "email=suporte@lojamodelo.com.br" +
"&token=95112EE828D94278BD394E91C4388F20" +
"¤cy=BRL" +
"&itemId1=0001" +
"&itemDescription1=Notebook Prata" +
"&itemAmount1=24300.00" +
"&itemQuantity1=1" +
"&itemWeight1=1000" +
"&itemId2=0002" +
"&itemDescription2=Notebook Rosa" +
"&itemAmount2=25600.00" +
"&itemQuantity2=2" +
"&itemWeight2=750" +
"&reference=REF1234" +
"&senderName=Jose Comprador" +
"&senderAreaCode=11" +
"&senderPhone=56273440" +
"&senderEmail=comprador@uol.com.br" +
"&shippingType=1" +
"&shippingAddressStreet=Av. Brig. Faria Lima" +
"&shippingAddressNumber=1384" +
"&shippingAddressComplement=5o andar" +
"&shippingAddressDistrict=Jardim Paulistano" +
"&shippingAddressPostalCode=01452002" +
"&shippingAddressCity=Sao Paulo" +
"&shippingAddressState=SP" +
"&shippingAddressCountry=BRA";

ResStart is boolean = HTTPRequest("https://ws.pagseguro.uol.com.br/v2/checkout/","PC Soft","",informacoes)
IF ResStart = True THEN
RTA_Resposta..CaptionHTML = "HTML code: " + HTTPGetResult() + "<br>"
RTA_Resposta..CaptionHTML += "Header: " + HTTPGetResult(httpHeader) + "<br>"
RTA_Resposta..CaptionHTML += "Cookie: " + HTTPGetResult(httpCookie)
END


Qualquer dúvida entrem em contato.

--
Adriano Jose Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
______________________________________________
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em novembro, 03 2015 - 3:54 PM
Prezados,

Segue exemplo da integração com o serviço da DirectCall

informacoes is string = "access_token=@token@" +
"&origem=@origem@}" +
"&destino=@destino@}" +
"&texto=@texto@" +
"&cron=@cron@" +
"&tipo=texto" +
"&format=@format_sms@";

ResStart is boolean = HTTPRequest("https://api.directcallsoft.com/sms/send","PC Soft","",informacoes)
IF ResStart = True THEN
EDT_Resultado = "HTML code: " + HTTPGetResult() + "<br>"
EDT_Resultado += "Header: " + HTTPGetResult(httpHeader) + "<br>"
EDT_Resultado += "Cookie: " + HTTPGetResult(httpCookie)
END


Link complementar
https://playground.directcallsoft.com/telecom

Baseado no codigo acima é possivel fazer as demais integrações.

Sendo o que tinha para o momento

--
Adriano Jose Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
______________________________________________
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em julho, 26 2016 - 6:12 PM
Para ter o Token do Pagseguro:









:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Publicado em setembro, 30 2016 - 2:40 AM
Olá, este recurso está diponível para o Winde Mobile também?
Membro registado
44 mensagems
Popularité : +7 (7 votes)
Publicado em setembro, 30 2016 - 7:41 PM
sim!
http://doc.windev.com/en-US/?3043007


Tiago Linhares a écrit :
> Olá, este recurso está diponível para o Winde Mobile também?

--
Analista de Sistemas Jr
www.arsistemas.com.br
Pai da Alícia e Marido da Andréa <3
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em outubro, 03 2016 - 8:11 PM
Com certeza!!!!!

:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em janeiro, 20 2020 - 2:12 PM
// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] Memed_ApiRest_Homologacao (<sUrl>, <sJson>, <TipoGetPost>)
//
// Parameters:
// sUrl: <specify the role of sUrl>
// sJson:
// TipoGetPost: <specify the role of TipoGetPost>

Procedure Memed_ApiRest_Homologacao(sUrl, sJson, TipoGetPost)

rest_request is restRequest
rest_response is restResponse

//Monta url memed
sAPIKEY is string = "iJGiB4kjDGOLeDFPWMG3no9VnN7Abpqe3w1jEFm6olkhkZD6oSfSmYCm"
sSECRETKEY is string = "Xe8M5GvBGCr4FStKfxXKisRo3SfYKI7KrTMkJpCAstzu2yXVN4av5nmL"

//sUrl is string = "http://sandbox.api.memed.com.br/v1/sinapse-prescricao/usuarios?api-key=[%sAPIKEY%]&secret-key=[%sSECRETKEY%]"
sUrl = sUrl+"?api-key=[%sAPIKEY%]&secret-key=[%sSECRETKEY%]"

fSaveText("C:\TEMP\MEMED.JSON",sJson)

rest_request..URL = sUrl

rest_request.ContentType = typeMimeJSON

IF sJson <> ""
rest_request.Content = sJson
END

IF Upper(TipoGetPost) = "POST"
rest_request.Method = httpPost
ELSE IF Upper(TipoGetPost) = "GET"
rest_request.Method = httpGet
ELSE IF Upper(TipoGetPost) = "DELETE"
rest_request.Method = httpDelete
ELSE IF Upper(TipoGetPost) = "PUT"
rest_request.Method = httpPut
ELSE IF Upper(TipoGetPost) = "COPY"
rest_request.Method = httpCopy
ELSE IF Upper(TipoGetPost) = "HEAD"
rest_request.Method = httpHead
ELSE IF Upper(TipoGetPost) = "PATCH"
rest_request.Method = httpPatch
END

rest_request.Header["Accept"] = "application/vnd.api+json"

rest_response = HTTPSend(rest_request)

//debub
Toast(rest_response..StatusCode)
Toast(rest_response..Content)

//Resultado
arrayResultado is array of string
Add(arrayResultado,rest_response..Content)
Add(arrayResultado,rest_response..ContentType)
Add(arrayResultado,rest_response..StatusCode)
Add(arrayResultado,rest_response..DescriptionStatusCode)

RESULT arrayResultado



Procedure Memed_ApiRest_Producao(sUrl, sJson, TipoGetPost)

rest_request is restRequest
rest_response is restResponse

//Monta url memed
sAPIKEY is string = "iJGiB4kjDGOLeDFPWMG3no9VnN7Abpqe3w1jEFm6olkhkZD6oSfSmYCm"
sSECRETKEY is string = "Xe8M5GvBGCr4FStKfxXKisRo3SfYKI7KrTMkJpCAstzu2yXVN4av5nmL"

//sUrl is string = "http://api.memed.com.br/v1/sinapse-prescricao/usuarios?api-key=[%sAPIKEY%]&secret-key=[%sSECRETKEY%]"
sUrl = sUrl+"?api-key=[%sAPIKEY%]&secret-key=[%sSECRETKEY%]"

fSaveText("C:\TEMP\MEMED.JSON",sJson)

rest_request..URL = sUrl

rest_request.ContentType = typeMimeJSON

IF sJson <> ""
rest_request.Content = sJson
END

IF Upper(TipoGetPost) = "POST"
rest_request.Method = httpPost
ELSE IF Upper(TipoGetPost) = "GET"
rest_request.Method = httpGet
ELSE IF Upper(TipoGetPost) = "DELETE"
rest_request.Method = httpDelete
ELSE IF Upper(TipoGetPost) = "PUT"
rest_request.Method = httpPut
ELSE IF Upper(TipoGetPost) = "COPY"
rest_request.Method = httpCopy
ELSE IF Upper(TipoGetPost) = "HEAD"
rest_request.Method = httpHead
ELSE IF Upper(TipoGetPost) = "PATCH"
rest_request.Method = httpPatch
END

rest_request.Header["Accept"] = "application/vnd.api+json"

rest_response = HTTPSend(rest_request)

//debub
Toast(rest_response..StatusCode)
Toast(rest_response..Content)

//Resultado
arrayResultado is array of string
Add(arrayResultado,rest_response..Content)
Add(arrayResultado,rest_response..ContentType)
Add(arrayResultado,rest_response..StatusCode)
Add(arrayResultado,rest_response..DescriptionStatusCode)

RESULT arrayResultado


--
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, janeiro, 20 2020 - 2:26 PM