|
FORUMS PROFESSIONNELS WINDEV, WEBDEV 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 660 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 660 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 660 messages Popularité : +175 (223 votes) |
|
Posté le 26 juillet 2016 - 18:12 |
Para ter o Token do Pagseguro:
-- 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:
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 660 messages Popularité : +175 (223 votes) |
|
Posté le 03 octobre 2016 - 20:11 |
Com certeza!!!!!
-- 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 660 messages Popularité : +175 (223 votes) |
|
Posté le 20 janvier 2020 - 14:12 |
Procedure Memed_ApiRest_Homologacao(sUrl, sJson, TipoGetPost)
rest_request is restRequest rest_response is restResponse
sAPIKEY is string = "iJGiB4kjDGOLeDFPWMG3no9VnN7Abpqe3w1jEFm6olkhkZD6oSfSmYCm" sSECRETKEY is string = "Xe8M5GvBGCr4FStKfxXKisRo3SfYKI7KrTMkJpCAstzu2yXVN4av5nmL"
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)
Toast(rest_response..StatusCode) Toast(rest_response..Content)
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
sAPIKEY is string = "iJGiB4kjDGOLeDFPWMG3no9VnN7Abpqe3w1jEFm6olkhkZD6oSfSmYCm" sSECRETKEY is string = "Xe8M5GvBGCr4FStKfxXKisRo3SfYKI7KrTMkJpCAstzu2yXVN4av5nmL"
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)
Toast(rest_response..StatusCode) Toast(rest_response..Content)
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 |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|