ftp com TIPCLIENT do XHB

[Mário Isa]

Eu uso o Ftp TipClient do xhb

hospedado no hoteldaweb conecta bem

Mas no LOCAWEB disseram que eles não tem esse componente instalado por lá.

Alguem já passou por isso ?

Eu queria mudar pq o hotel é meio instaável
e o LOCAWEB bem mais seguro se mosttrou

Porem nao conecta ftp com TIPCLIENT por lá..

[fladimir]

Qto a Localweb talvez o Leonardo possa dizer melhor, q se não estiver enganado ele hospeda por lá ou conhece, agora se quiser uma alternativa q funciona é a Kinghost q eu uso e funciona bem com Mysql, Postgres, Oracle e Firebird.

[]´s

[sygecom]

Olá Mario,
Para LocalWeb tem que usar servidor FTP PASSIVO:

oUrl := tUrl():New( "ftp://" + cUser + ":" + cPassword + "@" + cServer )
oFTP := tIPClientFtp():New( oUrl, .F. )
oFTP:bUsePasv := .T. // aqui o pulo do gato

Fala Cassiano,
Eu usava a té pouco tempo atras o provedor da ProvSul( é da Empresa do Colega Augusto aqui do Fórum ) que o FTP era fácil e muito rápido, e agora fui para o Kinghost por causa do TomCat para rodar uns sistemas em Java e outras...

[Mário Isa]

e se eu disser q eu já usava o tal FTP passivo ?

Vc assusta ?
:-O

[fladimir]

Legal Leo, e o q ta achando?

Com relação ao Passivo e Ativo do FTP eu já sabia configurar lá onde vc passou o pulo do gato, mas não sei bem a diferença entre os modos... Será q é isto então q o colega Mario tem q observar?

Com relação ao esta definição do Ativo e Passivo via TipClien para acessar tem diferença de velocidade etc etc?

[]´s

[Mário Isa]

Código: Selecionar todos

  cUser     := seuusuario
  cServer   := "ftp."+ cUser+".com.br"     &&  "ftp.seial.com.br" //endereco do ftp ou endereço ip
  cPassword := seu password

  if meumodo = 'tipclient'
   cUrl      := "ftp://" + cUser + ":" + cPassword + "@" + cServer
   oUrl              := tUrl():New( cUrl )
   oFTP              := tIPClientftp():New( oUrl, .F. )

   // function for displaying progress bar
   oFtp:exGauge := ( @FtpProgress() )

   oFTP:nConnTimeout := 20000
   oFTP:bUsePasv     := .T.     && PAU

   // Testa usuario e senha
   IF At( "@", cUser ) > 0
    oFTP:oUrl:cServer   := cServer
    oFTP:oUrl:cUserID   := cUser
    oFTP:oUrl:cPassword := cPassword
   ENDIF

   IF oFTP:Open( cUrl )
    is_conectado := .t.
   else
    is_conectado := .f.
   end
  end
 end


 //msginfo('depois de ver se conecta ou nÆo '+if(is_conectado,'conectado','nao conect'))



 if meumodo='tipclient'
 if is_conectado
  if quefazer = '1'
   consegue := oFtp:UploadFile( MMDrv, xMMDrv )
   //oFtp:Close()



................ e segue

[Mário Isa]

Acabei de fazer o teste com

Código: Selecionar todos

   xyoFTP:bUsePasv     := .F.

E deu certo acredita ?

Só que o Windows firewall pediu prá desbloquear o programa que tava ussando tal recurso.

:%

[sygecom]

Acabei de fazer o teste com

Código: Selecionar todos

   xyoFTP:bUsePasv     := .F.

E deu certo acredita ?

Só que o Windows firewall pediu prá desbloquear o programa que tava ussando tal recurso.

Eu sabia que tinha algo haver com o PASSIVO por que tive um problema assim na localweb, foi quando criei a opção de PASSIVO no FTP do meu sistema....o importante que resolveu.

Legal Leo, e o q ta achando?

Cara a KingHost tem me parecendo boa...tem suas limitações mas estamos sobrevivendo, focamos algumas prioridades e vamos tocando...

Com relação ao esta definição do Ativo e Passivo via TipClien para acessar tem diferença de velocidade etc etc?

Acredito que não tem não, pelo menos de vários que já integrei com o meu sistema eu nunca notei diferenças...

[cjp]

Pessoal,

Faz algum tempo que uso esta função, pega aqui, para envio de arquivos pro FTP:

Código: Selecionar todos

function enviaftp()
#include "inkey.ch"
#include "fileio.ch"
#include "common.ch"
#include "Directry.ch"
#define eFTPSERVER1  'ftp.inaciocarvalho.com.br'        // ENDEREÇO SERVIDOR FTP  01
#define eFTPPORTA   21                            // PORTA DO FTP PARA BAIXAR ATUALIZAÇÕES DO SISTEMA
#define eFTPUSER    'promotor'                     // USUARIO DO FTP PARA BAIXAR ATUALIZAÇÕES DO SISTEMA
#define eFTPPASS    'xxxx'                       // SENHA DO FTP PARA BAIXAR ATUALIZAÇÕES DO SISTEMA
aDir0 := directory(arqv)
IF UPLOAD_ARQ( alltrim(pasta), alltrim(arqv) ) = .F.
   @ maxrow(),1 say "Arquivo não enviado                                                              "
   tone(261.7,23)
   inkey(10)
   return .f.
else
   return .t.
ENDIF
RETURN NIL

STATIC FUNCTION UPLOAD_ARQ( FTPDIR, farq )
       Local cUrl, oUrl, oFTP, cFTPSERVER:=''
       cFTPSERVER:=eFTPSERVER1
       cUrl := "ftp://" + eFTPUSER + ":" + eFTPPASS + "@" + cFTPSERVER
       oUrl              := tUrl():New( cUrl )
       oFTP              := tIPClientFtp():New( oUrl, .F. )
       oFTP:nConnTimeout := 20000
       oFTP:bUsePasv     := .T.
       oFTP:nDefaultPort := eFTPPORTA   //PORTA DO FTP
       oFTP:oUrl:cUserID := eFTPUSER
       oFTP:oUrl:cServer   := cFTPSERVER
       oFTP:oUrl:cPassword := eFTPPASS
       IF oFTP:Open( cUrl )
          IF !oFTP:Cwd(ftpdir)  // se não achar o diretorio ele cria
             cria="N"
             if us="I"
                 @ maxrow(),1 say "Pasta "+ftpdir+" inexistente no FTP; criar a pasta?"get cria pict "@!"
                 tone(261.7,33)
                 read
            endif	
	    if cria="S"
               oFTP:MKD(ftpdir)     // cria o diretorio
            else
                return .f.			 
            endif		
       ENDIF
       if oFTP:Cwd(ftpdir)=.f.		  // muda o diretorio
          if vzerr=1 .or. int(vzerr/15)=vzerr/15
             mandmail1("","Retornou .f. no cwd; COMUNS 431")
          endif
          vzerr++			 
	  return .f.
     endif
     if oFTP:reset()=.f.
        mandmail1("","Retornou .f. no reset; COMUNS 438")
        return .f.
    endif
    if oFtp:UploadFile( farq )=.f.
       if usooff#"S"
          @ maxrow(),1 say "Não é possível enviar o arquivo"
       endif		
       return .f.
  endif
  oFTP:Close()  // fecha a conexão do FTP
RETURN .T.

Desde anteontem, contudo, a função está dando um erro, retornando .f. na linha:

Código: Selecionar todos

       if oFTP:Cwd(ftpdir)=.f.		  // muda o diretorio

E o pior é que não é sempre retorna .f. Às vezes funciona, mas na maioria das vezes não.

Já testei abrir a pasta manualmente, usando o ftp do dos, e funciona perfeitamente. Pelo explorer do Windows também abre.

Alguém saberia me dizer se tem algum problema na função?

[cjp]

Pessoal, caso não haja como resolver esta questão, será que alguém poderia me dar uma alternativa para fazer upload de arquivo no FTP?

[sygecom]

Veja se a dica do colega no post abaixo não ajuda nesse seu caso:
viewtopic.php?f=4&t=14084&p=82188#p82188

[cjp]

Se eu entendi direito, seria pra colocar um inkey(2) antes do comando que está dando erro, correto?

Se for isso, não resolveu não. Continua dando o mesmo erro.

[marcos.gurupi]

Amigo o pode estah acontecendo (isso tb aconteceu comigo) que no seu servidor FTP o diretorio estah MAIUSCULO e quando vc tenta mudar o diretorio estah passando em minusculo. Verifique isso dai. Vlw.

[sygecom]

Rapaz, esse caso é casca mesmo, não faço nem ideia do que seja, boa sorte...

[JoséQuintas]

Uso Harbour, e não defino porta para ftp, não sei se pode fazer diferença.