Utilizar Rest em Harbour

[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 ?

[Itamar M. Lins Jr.]

Ola!
Tem a palestra, e o powerpoint...
https://medium.com/harbour-magazine/res ... 5e59335cf7

Saudações,
Itamar M. Lins Jr.

[cnavarro]

Acceder a un REST API es sencillo desde Harbour

https://bitbucket.org/fivetech/harbour_ ... o_REST.pdf

[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?

[asimoes]

Tenta usar o SoapUI

https://www.soapui.org/

Ele trabalha com SOAP / REST

[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

[hs_paulo]

Achei o erro. Estava no codigo de 64bits.

Funcionou.

Fica o exemplo pra quem precisa acessar o REST com autenticação basica.

[Itamar M. Lins Jr.]

Ola!
Cadê o exemplo, e o FIX do erro autent. 64bits ?

Saudações,
Itamar M. Lins Jr.

[janio]

Achei o erro. Estava no codigo de 64bits.

Boiei

[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.

[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

[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. )

[JoséQuintas]

Na única comunicação que fiz, consultas eram com POST, e alterações eram com PUT.
Sem esse GET

[asimoes]

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" )

[asimoes]

Talvez uma luz pra fazer:

https://github.com/bertolini10/xhabour- ... t_test.prg