Erro de envio FTP

Discussion in 'Portuguese Forum' started by LAZARO, May 4, 2019.

  1. LAZARO

    LAZARO Member Licensed User

    Alguém sabe dizer porque não consigo enviar arquivo via FTP ?
    Já fiz todos os testes: em outro sistema consigo enviar pois o arquivo existe, consigo fazer login, a pasta host existe. Só não consigo completar porque sempre retorna Sucess = False

    Segue abaixo como está o código

    FTP.UploadFile(File.DirInternal, "PEDIDO.TXT", True , "/PASTA")
    Wait For FTP_UploadCompleted (ServerPath As String, Success As Boolean)
    If Success Then
    Msgbox("Pedido enviado com sucesso !!!","Enviado")
    ProgressDialogHide
    Else
    Msgbox("Pedido não enviado","Erro")
    ProgressDialogHide
    End If
     
  2. LAZARO

    LAZARO Member Licensed User

    Eu já pesquisei e testei todas as opções possíveis sugeridas mas sem sucesso.
    O que está ocorrendo é que não consigo gravar no servidor e retorna a mensagem: 550 acess denied
    Está claro que eu não tenho permissão para isso, mas ninguém consegue me dizer como faço pra ter permissão na internet.

    upload_2019-5-6_14-13-19.png
     
  3. Cableguy

    Cableguy Expert Licensed User

    O servidor FTP não precisa de um user e uma senha? Elas estão correctas? Utilizando um programa como o FileZilla consegues fazer upload?
     
    José J. Aguilar likes this.
  4. LAZARO

    LAZARO Member Licensed User

    Sim. Eu tenho outro sistema para windows que está logando e salvando corretamente no servidor na pasta que eu desejo.
    O nome de usuário e senha bem como o servidor de ftp estão corretos, eu utilizo o mesmo que funciona no windows.
    Ja entrei em contato com o administrador do servidor e me respoderam que não existe nenhuma restrição.
    Disseram ainda que a restrição está no meu dispositivo.
     
  5. LAZARO

    LAZARO Member Licensed User

    Code:
    'Sub Process_Globals -> Dim FTP As FTP

       
    Dim TextWriter1 As TextWriter
       TextWriter1.Initialize(
    File.OpenOutput(File.DirInternal , "FILE.TXT"False))
       
    Dim RXT01 As String
       RXT01=
    ""
       TextWriter1.WriteLine(RXT01)
       TextWriter1.Close
       
    FTP.PassiveMode=True
       
    FTP.Initialize("FTP""ftp.xxxxxx.com.br"21 , "xxxxxx.com.br""#######")
       
    Dim sf As Object = FTP.UploadFile(File.DirInternal, "FILE.TXT"False"/")
       
    Wait For (sf) ftp_UploadCompleted (ServerPath As String, Success As Boolean)
       
    Log(LastException.Message)
     
  6. Condata Informatica

    Condata Informatica Member Licensed User

    tente incluir este trecho apos inicializar o FTP

    FTP.PassiveMode=True
    FTP.UseSSL=False
     
  7. Condata Informatica

    Condata Informatica Member Licensed User

    Porem, a opção acima de ajudou por um tempo até os vendedores não terem sinal de dados para transmissao, sendo assim
    alguns dos pedidos não chegavão, optei por fazer o envio pra ftp com o PHP, e desde então está 100%
     
  8. LAZARO

    LAZARO Member Licensed User

    Eu já tentei todas as opções sugeridas aqui no fórum e outros sites mas nenhuma ajudou.
    Estou aguardando a redehost (servidor) migrar o meu plano para SSL e ver no que vai dar.
    Eu tenho um sistema em vfp enviando perfeitamente.
     
  9. LAZARO

    LAZARO Member Licensed User

    Pra quem interessar eu já resolvi este problema: Era apenas um simples ponto "." antes da barra da pasta "./pasta"
    Code:
    FTP.UploadFile(File.DirInternal, "PEDIDO.TXT"True , "./PASTA")
     
  10. krlos2004

    krlos2004 Member Licensed User

    Por experiencia, não é uma boa pratica, vc enviar um arquivo chamado pedido.txt, pois voce não 100% de garantia que o arquivo chegou completo,
    por ftp, eu particulamente, envio um arquivo e tento renomear, se concluir 100% e porque o arquivo esta intacto.
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice