Página 1 de 1
Download nao funciona mais...
Enviado: 01 Jul 2011 15:54
por 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
Download nao funciona mais...
Enviado: 01 Jul 2011 16:02
por carlos_dornelas
Só complementando:
Se eu utilizar o Internet Explorer ou qualquer outro navegador, o arquivo é baixado normalmente.
Antonio Carlos
Download nao funciona mais...
Enviado: 04 Jul 2011 09:49
por 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)
Download nao funciona mais...
Enviado: 04 Jul 2011 10:07
por asimoes
Download nao funciona mais...
Enviado: 05 Jul 2011 13:29
por 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
Download nao funciona mais...
Enviado: 05 Jul 2011 14:22
por asimoes
Essa DLL é do windows.
Vou gerar um exemplo pra você.
Aguarde.
Download nao funciona mais...
Enviado: 05 Jul 2011 14:36
por 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
Download nao funciona mais...
Enviado: 05 Jul 2011 16:49
por 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
Download nao funciona mais...
Enviado: 05 Jul 2011 17:31
por 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
Download nao funciona mais...
Enviado: 05 Jul 2011 21:49
por 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
Download nao funciona mais...
Enviado: 06 Jul 2011 18:54
por asimoes
carlos_dornelas escreveu: 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.
Download nao funciona mais...
Enviado: 06 Jul 2011 20:27
por carlos_dornelas
Na verdade já escolhi a hbqt, mas preciso decidir entre Minigui 4 ou Marinas...