Barra de Progresso com TipClientHttp()

por **HASA** » 15 Jan 2013 08:07

Bom dia, Toledo!
:D
Perfeitamente, muito obrigado pela dica,
Forte abraço,
:{
Hasa

por **HASA** » 16 Jan 2013 19:33

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

por **Toledo** » 16 Jan 2013 22:16

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,

por **HASA** » 17 Jan 2013 08:17

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

por **sygecom** » 26 Mar 2013 14:58

Hasa,
Não tenho material, mas faço assim:

....
....
....
   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

por **HASA** » 26 Mar 2013 17:08

:))
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