Search the Community

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