Página 1 de 2
Utilizar Rest em Harbour
Enviado: 18 Fev 2019 13:08
por hs_paulo
Pessoal !
Tenho que fazer uma rotina pra pegar pedidos e enviar as postagens efetuadas em um markeplace, e ele utiliza a API que usa arquitetura Rest.
Alguem tem experiencia ou uma luz por onde comerçar ?
Utilizar Rest em Harbour
Enviado: 18 Fev 2019 15:59
por Itamar M. Lins Jr.
Ola!
Tem a palestra, e o powerpoint...
https://medium.com/harbour-magazine/res ... 5e59335cf7
Saudações,
Itamar M. Lins Jr.
Utilizar Rest em Harbour
Enviado: 18 Fev 2019 22:07
por cnavarro
Acceder a un REST API es sencillo desde Harbour
https://bitbucket.org/fivetech/harbour_ ... o_REST.pdf
Utilizar Rest em Harbour
Enviado: 24 Fev 2019 13:57
por hs_paulo
Pessoal,
Como logo em um site?
Tenho que logar em um site utilizando autotenticacao basica. Tentei seguir as apostilas que mandaram, mas não consegui. Como fazer?
Utilizar Rest em Harbour
Enviado: 24 Fev 2019 16:39
por asimoes
Tenta usar o SoapUI
https://www.soapui.org/
Ele trabalha com SOAP / REST
Utilizar Rest em Harbour
Enviado: 24 Fev 2019 18:54
por hs_paulo
Pessoal, é o seguinte:
Tenho que acessar um servidor Rest e a autenticação na API é feita utilizando o padrão Basic Auth com o Token codificado em 64bits.
Quando acesso pelo SOAPui, acessa normal, mas quando tento pelo Harbour não estou conseguindo.
Veja se voces podem me ajudar, onde estou errando? Sempre retorna "nao autorizado"
Código: Selecionar todos
Procedure Main ()
Public wCode64 :="dmVuZGFzQGhhcmRzb2Z0bmV0LmNvbS5ickA0ODEzLTMyUzQtNEJVVC0zTzdH"
Public wURL := [https://api.marketplace.cissamagazine.com.br/items/020097/price]
Public wServerWS := Win_OleCreateObject("MSXML2.ServerXMLHTTP")
With Object wServerWS
:Open( "GET", wURL, .F. )
:SetRequestHeader( "Content-Type", 'text/xml; charset="utf-8"' )
:SetRequestHeader( "Authorization", "Basic " + wCode64 )
:Send( " " )
? wServerWS:responseText
inkey (0)
End With
Return nil
Utilizar Rest em Harbour
Enviado: 26 Fev 2019 10:35
por hs_paulo
Achei o erro. Estava no codigo de 64bits.
Funcionou.
Fica o exemplo pra quem precisa acessar o REST com autenticação basica.
Utilizar Rest em Harbour
Enviado: 01 Mar 2019 08:44
por Itamar M. Lins Jr.
Ola!
Cadê o exemplo, e o FIX do erro autent. 64bits ?
Saudações,
Itamar M. Lins Jr.
Utilizar Rest em Harbour
Enviado: 01 Mar 2019 10:34
por janio
Achei o erro. Estava no codigo de 64bits.
Boiei
Utilizar Rest em Harbour
Enviado: 01 Mar 2019 11:25
por Itamar M. Lins Jr.
Ola!
Public wCode64 :="dmVuZGFzQGhhcmRzb2Z0bmV0LmNvbS5ickA0ODEzLTMyUzQtNEJVVC0zTzdH"
Tô achando que essa variável está com erro de sintaxe.
Agora eu não sei onde pego isso.
Saudações,
Itamar M. Lins Jr.
Utilizar Rest em Harbour
Enviado: 04 Jul 2019 10:14
por binho_fasa
Algumas informações como logins entre outros precisam ser convertidos a base 64 por questões de segurança. No site
https://www.base64encode.org/ pode ser convertido, por exemplo: password=123456 para cGFzc3dvcmQ9MTIzNDU2.
[]´s
Utilizar Rest em Harbour
Enviado: 22 Jun 2020 13:11
por hs_paulo
Estou com um novo problema !
Utilizando o Postman ele retorna corretamente, quando faço pelo programa retorna vazio.
Procedure Main ()
Public wServerWS := Win_OleCreateObject( "MSXML2.ServerXMLHTTP" )
Do While .t.
Begin Sequence
With Object wServerWS
:Open( "GET", "
https://marketplace.madeiramadeira.com. ... 0&offset=0", .f. )
:SetRequestHeader( "Content-Type", "application/json; charset=utf8" )
:SetRequestHeader( "TOKENMM", "MMKTP25032019152137" )
:Send( "{}" )
:WaitForResponse( 1000 )
? wServerWS:readyState
? wServerWS:Status
? wServerWS:StatusText
? wServerWS:ResponseXML
inkey (0)
End With
End Sequence
Exit
EndDo
Return ( .t. )
Utilizar Rest em Harbour
Enviado: 22 Jun 2020 14:16
por JoséQuintas
Na única comunicação que fiz, consultas eram com POST, e alterações eram com PUT.
Sem esse GET
Utilizar Rest em Harbour
Enviado: 22 Jun 2020 14:50
por asimoes
binho_fasa escreveu:Algumas informações como logins entre outros precisam ser convertidos a base 64 por questões de segurança.
Tem função do harbour que faz isso:
oEncoder := TipEncoderBase64():New()
cEncode := oEncoder:Encode( "TESTE" )
Utilizar Rest em Harbour
Enviado: 22 Jun 2020 16:51
por asimoes