Download de arquivo usando proxy

[asimoes]

Na atualização de hoje o código getmingw.hb foi alterado o Viktor removeu a função dl_file

[sygecom]

E como fez para passar pelo Proxy?

[asimoes]

Leonardo,

Ainda bem que eu guardei parte do código anterior.

Pelo o que eu vi, ele está usando o CURL.EXE para baixar o mingw, tentei baixar o mingw inclusive a nova versão 5.3 mas o link estava quebrado.

[asimoes]

O link do mingw 5.3 continua quebrado.

! Downloading 32-bit hosted dual-target mingw...
! Error: Downloading MinGW.L returned error: 404 Not Found

[sygecom]

Então o problema não era de Proxy.

Estou tentando faz horas passar por proxy usando HBNFE e não uso CURL, mas valeu pelo exemplo com .JS que postou, muito bom saber que podemos usar isso no Harbour, abraços.

[asimoes]

Para usar proxy eu faço assim, no meu caso um rede corporativa que sem setar o proxy (setproxy) na passa.

Código: Selecionar todos

  IF ( oHTTP := win_oleCreateObject( "WinHttp.WinHttpRequest.5.1" ) ) != NIL
      oHTTP:Open( "GET", cURL, .F. )
     oHTTP:SetProxy(2, "proxy:8080") 
      nSec:=Seconds()
      ? "Aguarde..."
      oHTTP:Send()
      IF oHTTP:Status() == 200
         ? "Downloaded", hb_ntos( hb_BLen( oHTTP:responseBody ) ), "byte(s)"
         cTeste:=oHTTP:responsebody
         IF ValType( cTeste ) == "C"
            hb_MemoWrit( cArq2, cTeste )
         ELSE
            nHandle := fCreate( cArq )
            FOR EACH nAscii IN cTeste // FOR nCont = 1 TO Len( oHttp:ResponseBody )
               fWrite( nHandle,  Chr(nAscii)  )
            NEXT
            FClose( nHandle )
         ENDIF
         ? "Conclu¡do em:", SecToTime(Seconds()-nSec)
      ENDIF
   ELSE
      ? "Error: WinHttp 5.1 not available. [" + win_oleErrorText() + "]"
   ENDIF

[sygecom]

Muito bom, não tinha percebido, e acabei achando como usar com usuário e senha do Proxy:

xmlhttp:setProxy("2", "192.168.0.1:3128")
xmlhttp:open("GET", sURL , false);
xmlhttp:setProxyCredentials("192.168.0.1\\usuario", "senha");


Valeu chefe.

[asimoes]

Leonardo,

Funcionou?

[sygecom]

Na mosca, muito obrigado.