Consumir WebService em ambiente Windows 7

[jairfab]

Gostaria de saber dos colegas se alguém encontrou alguma solução para consumir API no Windows 7 32 Bits

No Windows 10 64 Bits funciona 100%

Código: Selecionar todos

#Include "FiveWin.ch"

function Main()
Local oHttp,  cResp1 := "" , hJson := hash()

cUrl := "https://bling.com.br/Api/v2/produtos/json/?apikey=81672077cde47c5ed795349ae17a98c1c1b10c9826041ecf9b9d28d9a1961c7204dc3b13"

Try
   oHttp := CreateObject("winhttp.winhttprequest.5.1")  
catch oError
   Try
      oHttp := CreateObject( 'MSXML2.ServerXMLHTTP.6.0' )  
      oHttp:SetTimeouts(40000,40000,40000,40000)
   Catch oError
    ? "Erro na comunicação"
	return .F.
   end
end

Try
   oHttp:SetTimeouts(40000,40000,40000,40000)
   oHttp:Open("GET",cUrl ,.f.)  // erro en el site
   oHttp:Send()
   cResp1 := oHttp:ResponseText()
Catch
  MsgAlert("002 - Erro na comunicação","Aviso")
  return .t.
End Try

hb_jsondecode(  cResp1 ,@hJson) //Parse JSON to hash
cHdados:= hJson["retorno"]["produtos"][1]["produto"] 
? padr("Ide  ",20," ")+cHdados["id"] ,  padr("Codigo",20," ")+cHdados["codigo"] ,  padr("Descricao",20," ")+cHdados["descricao"] , padr("Unidade",20," ")+cHdados["unidade"] , Padr("Preco",20," ")+cHdados["preco"] , Padr("Peso Liquido",20," ")+cHdados["pesoLiq"]

Return nil 

[JoséQuintas]

A maioria tem memória curta.

Windows 7 não trabalha com conexão segura, a não ser que instale manualmente a atualização.
Windows 7 não consegue nem abrir a página de atualização pra conexão segura, porque.....
A Microsoft cometeu esse grave erro, onde pra baixar a atualização, o Windows 7 precisa JÁ ESTAR ATUALIZADO kkkkk

Em todo caso:

https://support.microsoft.com/pt-br/top ... 268bb10392

[clodoaldomonteiro]

Tentei de todas as maneiras, atualizar o Windows 7 para consumir usando HTTPS, atualizei e configurei de tudo, mas deu certo, tive que passar para o windows 10.
É tão tal, que os navegadores mesmo fazem seus processos HTTPS deixando de lado o do Windows.