Problemas de conexão com FTP - Hostgator (Resolvido)

[Edu]

Prezados,

Bom dia!

Eu tenho uma rotina de conexão com servidor FTP que funcionava bem com a Locaweb, porém mudamos para Hostgator e parou de funcionar.

Ao tentar conectar retorna o erro: 530 - Login authentication failed.

Obs.: No Filezilla e pelo cmd funciona normal.

Alguém sabe me dizer a causa disso.

 

********************************************************************************
FUNCTION ConnectFTP()
    * Estabelece a conexao com o servidor FTP
    LOCAL aFiles, lExistDir
    
    IF !IsInternet()
        Msginfo("Você não está conectado à internet!", "Atenção")
        RETURN NIL
    ENDIF
          
    PARAM_CON() // obtem as variaveis de conexao

   cUrl      := "ftp://" + cUser + ":" + cPassword + "@" + cServer 
    

   oUrl              := tUrl():New( cUrl + cDirectory ) 
   oFTP              := tIPClientFtp():New( oUrl, .T. ) 
   oFTP:nConnTimeout := 20000 
   oFTP:bUsePasv     := .T. 

   // Comprobamos si el usuario contiene una @ para forzar el userid 
   IF At( "@", cUser ) > 0 
      oFTP:oUrl:cServer   := cServer 
      oFTP:oUrl:cUserID   := cUser 
      oFTP:oUrl:cPassword := cPassword 
    ENDIF 

   IF oFTP:Open( cUrl )
       
        * Obtem a lista de arquivos e pastas na raiz do FTP
       aFiles := oFtp:listFiles()
       
       * verifica se o diretorio principal existe
       lExistDir:= .f.
        FOR i:= 1 TO LEN(aFiles)
           IF aFiles[i,1] == "VALIDADE"
               lExistDir:= .t.
           ELSE
               lExistDir:= .f.
            ENDIF    
       NEXT
       
       * Se nao existir, cria o diretorio 
        IF !lExistDir
           oFtp:mkd( "VALIDADE" )  // cria a pasta dentro do ftp
       ENDIF
       
       oFtp:Cwd("VALIDADE")  // acessa o diretorio 

       Msginfo("Conexão com servidor FTP estabelecida com sucesso!", "Ok")
       
        lConnected:= .t.
       
       Grava_historico("Conexão com o Servidor FTP iniciada")
       
   ELSE
      cStr := "Não foi possível conectar com o servidor FTP" + " " +   oURL:cServer
      IF oFTP:SocketCon == NIL
         cStr += Chr( 13 ) + Chr( 10 ) + "Conexão não inicializada"
      ELSEIF InetErrorCode( oFTP:SocketCon ) == 0
         cStr += Chr( 13 ) + Chr( 10 ) + "Resposta do servidor:" + " "+ oFTP:cReply
      ELSE
         cStr += Chr( 13 ) + Chr( 10 ) + "Erro na conexão:" + " " +InetErrorDesc( oFTP:SocketControl )
      ENDIF

      msgstop(cStr,"Erro")
    ENDIF
   
RETURN NIL

 

[kapiaba]

http://stackoverflow.com/questions/10695290/ftp-error-530-login-authentication-failed

https://groups.google.com/forum/#!topic/harbour-users/vf-U0pJk2TY

 

 

[Edu]

Kapiaba,

Não consegui! Interessante que se eu colocar o nome do usuário = usuario@dominio.com.br, não consegue estabelecer conexão. Como se a url estivesse mal formada. Dá erro logo de cara. Mas se eu colocar só o nome do usuário, ele estabelece a conexão e retorna o erro de autenticação.

Não sei mais o que fazer...

[mkyx]

faltou a linha:

 

  oFTP:nDefaultPort := 21

------------------------------------------------------------------------

// na sequencia:

   cUrl      := "ftp://" + cUser + ":" + cPassword + "@" + cServer
   oUrl              := tUrl():New( cUrl )
   oFTP              := tIPClientFtp():New( oUrl, file("desenv.sys") )
   oFTP:nDefaultPort := 21
   oFTP:nConnTimeout := 12000
   oFTP:bUsePasv     := .T.

   if At("@",cUrl)>0
      oFTP:oUrl:cServer   := cServer
      oFTP:oUrl:cUserID   := cUser
      oFTP:oUrl:cPassword := cPassword
   endif

 

 

[Edu]

Caro mkyx,

Não resolveu.

[ADutheil]

oUrl              := tUrl():New( cUrl + cDirectory ) 

De onde vem este cDirectory?

Eu tentaria algo assim:

 

   oUrl              := tUrl():New( "ftp://" + cServer ) 
   oFTP              := tIPClientFtp():New( oUrl, .T. ) 

   xBrowse( oFtp ) // para ver se o objeto foi criado certinho 

   oFTP:nConnTimeout := 20000 
   oFTP:bUsePasv     := .T. 
   oFTP:oUrl:cServer   := cServer 
   oFTP:oUrl:cUserID   := cUser 
   oFTP:oUrl:cPassword := cPassword 

Algum motivo para nao usar o curl easy?

 

[Edu]

Caro 

ADutheil,

A variavel cDirectory está vazia neste momento. Já tentei deste modo mas não funcionou. Acho que esta classe não suporta o protocolo TLS.

Desconheço a  curl easy, mas consegui com outra classe chamada qFtpClient.

Para quem estiver interessado. Segue anexo.

 

 

 

qFTPClient.txt