|
GRUPOS DE DISCUSSÃO PROFISSIONAL WINDEV, WEBDEV 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.655 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.655 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.655 mensagems Popularité : +175 (223 votes) |
|
Publicado em julho, 26 2016 - 6:12 PM |
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/ |
| |
| |
| | | |
|
| | |
| |
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:
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.655 mensagems Popularité : +175 (223 votes) |
|
Publicado em outubro, 03 2016 - 8:11 PM |
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/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.655 mensagems Popularité : +175 (223 votes) |
|
Publicado em janeiro, 20 2020 - 2:12 PM |
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/Mensagem modificada, janeiro, 20 2020 - 2:26 PM |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|