Página 2 de 2

Download de arquivo usando proxy

Enviado: 03 Jan 2016 18:11
por asimoes
Na atualização de hoje o código getmingw.hb foi alterado o Viktor removeu a função dl_file

Download de arquivo usando proxy

Enviado: 03 Jan 2016 21:59
por sygecom
E como fez para passar pelo Proxy?

Download de arquivo usando proxy

Enviado: 04 Jan 2016 09:40
por 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.

Download de arquivo usando proxy

Enviado: 04 Jan 2016 09:47
por 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

Download de arquivo usando proxy

Enviado: 04 Jan 2016 12:35
por 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.

Download de arquivo usando proxy

Enviado: 04 Jan 2016 12:46
por 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

Download de arquivo usando proxy

Enviado: 04 Jan 2016 13:27
por 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.

Download de arquivo usando proxy

Enviado: 04 Jan 2016 14:00
por asimoes
Leonardo,

Funcionou?

Download de arquivo usando proxy

Enviado: 04 Jan 2016 14:12
por sygecom
Na mosca, muito obrigado.