PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → 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.
Débuté par adrianoboller, 21 oct. 2015 14:35 - 6 réponses
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 21 octobre 2015 - 14:35
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
______________________________________________
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 03 novembre 2015 - 15:54
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
______________________________________________
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 26 juillet 2016 - 18:12
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/
Posté le 30 septembre 2016 - 02:40
Olá, este recurso está diponível para o Winde Mobile também?
Membre enregistré
44 messages
Popularité : +7 (7 votes)
Posté le 30 septembre 2016 - 19:41
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
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 03 octobre 2016 - 20:11
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/
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 20 janvier 2020 - 14:12
// 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/
Message modifié, 20 janvier 2020 - 14:26