Página 2 de 2
Barra de Progresso com TipClientHttp()
Enviado: 15 Jan 2013 09:07
por HASA
Bom dia, Toledo!
Perfeitamente, muito obrigado pela dica,
Forte abraço,
:{
Hasa
Barra de Progresso com TipClientHttp()
Enviado: 16 Jan 2013 20:33
por HASA
Toledo, tem alguma maneira de descobrir se o arquivo que estou tentando baixar está realmente no site?
Por exemplo: No site tem o arquivo Atu_A, mas eu mando o comando solicitando fazer o download do Atu_B
Tem como verificar que o arquivo não está presente?
Aguardo
Barra de Progresso com TipClientHttp()
Enviado: 16 Jan 2013 23:16
por Toledo
Hasa, eu não conheço todas as funções do TipClientHttp, mas acho que não tem como verificar se o arquivo existe.
Se você tiver acesso a uma conta de FTP deste site onde estão os arquivos que você quer copiar, ai sim dá para saber quais os arquivos/pastas que existem no site, utilizando neste caso a classe TipClientFtp.
Abraços,
Barra de Progresso com TipClientHttp()
Enviado: 17 Jan 2013 09:17
por HASA
Beleza, sem problemas, já foi de grande ajuda, eu tentei localizar documentação da Tip.Lib mas... nem de Habour nem de xHarbour não achei nada, mas... valeu mesmo. Caso algum colega que leia esse post tiver algum material agradecemos,
T+
:xau
Barra de Progresso com TipClientHttp()
Enviado: 26 Mar 2013 14:58
por sygecom
Hasa,
Não tenho material, mas faço assim:
Código: Selecionar todos
....
....
....
TRY
oConn := TipClientHttp():New(TURL():New(cURL))
oConn:nConnTimeout := 10000
oConn:exGauge := { | done, size| ShowGauge(done, size, nTAMANHO, ftpfile, oBar, oSAY ) } // aqui baixa o arquivo
IF oConn:Open(cURL)
oConn:ReadToFile(fdestino,,nFileSize)
oConn:Close()
ENDIF
lRet:=.T.
CATCH
lRet:=.F.
END
IF lRet
IF FILE(fdestino) //se baixou e criou o arquivo
cCONFERE:=MEMOREAD(fdestino)
IF AT('<html>',cCONFERE)>0 .AND. AT('</html>',cCONFERE)>0
IF AT('Erro 403',cCONFERE)>0 .OR.; // acesso negado
AT('Erro 404',cCONFERE)>0 .OR.; // pagina não encontrada
AT('Erro 500',cCONFERE)>0 .OR.; // Erro Interno de Servidor
AT('Página Não Encontrada',cCONFERE)>0 // pagina não encontrada
FERASE(fdestino) // EXCLUI POR BAIXOU COM ALGUM PROBLEMA
lRet:=.F.
ENDIF
ENDIF
ELSE
lRet:=.F.
ENDIF
ENDIF
....
....
....
Nota: Ou seja, eu não sei se existe, mas quando baixo, eu abro ele para ver se deu algum problema de não baixar ou não existir... é Gambi
Barra de Progresso com TipClientHttp()
Enviado: 26 Mar 2013 17:08
por HASA
)
Obrigado, Leo, ainda não é o que preciso mas... vamos aguardar, é que eu jogo uma atualização no site cada ora tem um tamanho 1.00 1.20 1.25Mb etc... para que a barra não ultrapasse enquanto baixa teria que saber o tamanho exato do arquivo para que a barra acaba-se no final mesmo do arquivo, hoje vou por aprocimação não fica legal mas... engana.
:xau
Hasa