Erro consumo API

[marciorossetti]

Código abaixo só funciona no Windows 10, demais Windows cai na mensagem de erro.

Já testei diversas opções 3.0, 4.0, 5.0, etc...

Harbour 3.2.0dev (r2104281802) + Minigui Extended

Código: Selecionar todos

   TRY
      oServer :=win_oleCreateObject( "MSXML2.SERVERXMLHTTP.6.0" )
      oServer:setTimeouts(1000*60, 1000*60, 0, 0)
      oServer:Open( "GET", "https://x8ki-letl-twmt.n7.xano.io/api:kOhgnp3F/sistemas" , .F. )
      oServer:setRequestHeader( "Content-Type", "application/json" )
      oServer:Send()
      hb_jsondecode( oServer:responseText, @aSISTEMAS_RO7 )
   CATCH oExcecao
      endwait(oAGUARDE)
      ALERTA("Ocorreu erro ao executar consulta nos servidores da RO7 SISTEMAS, contate o Suporte!",'Verificação ID do Sistemas',3) 
      RETURN(.F.)  
   END

[alxsts]

Olá!

Qual erro está acontecendo?

Comente as tuas mensagens de erro no CATCH e coloque uma linha para que a mensgem original seja exibida:

Código: Selecionar todos

Alert( oExcessao:Description )

ou

Código: Selecionar todos

Break (oExcessao)

[sygecom]

Márcio,
Detalha melhor mestre.
Fora do sistema consegue consumir sua API?