Download nao funciona mais...

[carlos_dornelas]

Amigos,

Até há poucos dias eu utilizava a rotina abaixo para baixar pelo meu programa os resultadas do lotofácil direto do site da Caixa. Mas de uns dias para cá a função não consegue mais baixar. Acho que colocaram algum bloqueio em função dos ataques ocorridos nos últimos dias nos sites federais. Alguém tem alguma sugestão? Eu utilizo ainda o xharbour .99.70 + gtwvw.

Antonio Carlos

Código: Selecionar todos

Function Main()

string="http://www1.caixa.gov.br/loterias/_arquivos/loterias/D_lotfac.zip"

baixacx(string)

function baixacx(string)

cDownload := string

nSizeFiles := 1000000 // size inf bytes of the file

oUrl2 := tURL():New( cDownload )

lSuccess := .F.
WITH OBJECT ( tIPClient():New( oUrl2 ) )
   :nConnTimeout := 20000
   IF :Open( oUrl2 )
      :ReadToFile( 'lotofac.zip',, 1000000 )
      :Close()
      lSuccess := .T.
   ENDIF
END

[carlos_dornelas]

Só complementando:

Se eu utilizar o Internet Explorer ou qualquer outro navegador, o arquivo é baixado normalmente.

Antonio Carlos

[asimoes]

Olá,

Com harbour funcionou assim:

Código: Selecionar todos

#include "hbdyn.ch"
nHandleDLL:=hb_LibLoad("UrlMon.dll")
nStatus:=hb_dynCall( { "URLDownloadToFileA", nHandleDLL,HB_DYN_CALLCONV_STDCALL},0,"http://www1.caixa.gov.br/loterias/_arquivos/loterias/D_lotfac.zip","D_lotfac.zip",0,0)   
hb_LibFree(nHandleDLL)

[asimoes]

Para quem tiver interesse tem mais resultados para baixar:

http://www1.caixa.gov.br/loterias/_arqu ... megase.zip
http://www1.caixa.gov.br/loterias/_arqu ... _quina.zip
http://www1.caixa.gov.br/loterias/_arqu ... lotoma.zip

[]´s

[carlos_dornelas]

Asimoes,

Grato por responder!

Compilei o seu exemplo, mas não acontece nada ao executar. Utilizei o harbour 2.0. Você pode me enviar o teu exe para eu testar aqui?

O meu windows é o vista. Essa dll é do windows?

Antonio Carlos

[asimoes]

Essa DLL é do windows.

Vou gerar um exemplo pra você.

Aguarde.

[asimoes]

Para baixar o exemplo compilado.

http://www.4shared.com/file/8sVBekix/teste.html

O que é urlmon.dll
http://www.processlibrary.com/directory ... mon/19481/

Compilei com o harbour compilado:
http://sourceforge.net/projects/harbour ... e/download

Para compilar:

hbmk2 teste.hbp

teste.hbp

Código: Selecionar todos

#---------------------------
# Nome do Execut vel
# ---------------------------
-oteste
# ---------------------------
# Bibliotecas
# ---------------------------
-lxhb
# ---------------------------
# Caminhos dos Includes
# ---------------------------
-incpath=d:\hb21\include
# ---------------------------
# Caminho das Libs da HwGui
# ---------------------------
#-Ld:\hb21\lib\win\mingw
#-Ld:\harbourx\mingw\lib
# ---------------------------
# Outros Parƒmetros
# ---------------------------
-workdir=.\OBJ\
-head=full
-n
-nowarn
-inc
-b
# ---------------------------
# Prg(s) e Rc(s)
# ---------------------------
TESTE

Código: Selecionar todos

#include "hbdyn.ch"
PROCEDURE Main()
CLS
BaixarURLMON()
RETURN Nil

FUNCTION BaixarURLMON
nHandleDLL:=hb_LibLoad("UrlMon.dll")
nStatus:=hb_dynCall( { "URLDownloadToFileA", nHandleDLL,HB_DYN_CALLCONV_STDCALL},0,"http://www1.caixa.gov.br/loterias/_arquivos/loterias/D_lotfac.zip","D_lotfac.zip",0,0)
hb_LibFree(nHandleDLL)
RETURN Nil

[carlos_dornelas]

Legal, funcionou muito bem!

Mais uma pergunta. Você sabe se é possível portar essa rotina para xHarbour? É que ainda estou preso nele por causa da gtwvw...

Anronio Carlos

[asimoes]

Antonio,

Portar pro xharbour provavelmente não, essas funções são do harbour, quanto a gtwvw você tem ela disponível no harbour.
Neste caso é melhor você portar do xharbour para harbour.

[]´s

[carlos_dornelas]

Ok, realmente o harbour está cada vez melhor. Só tenho dúvidas para qual lib gráfica vou abraçar...

Grato

Antonio Carlos

[asimoes]

Só tenho dúvidas para qual lib gráfica vou abraçar...

Tem duas opções boas: hwgui e minigui as duas tem exemplos de uso.

[carlos_dornelas]

Na verdade já escolhi a hbqt, mas preciso decidir entre Minigui 4 ou Marinas...