Erro de envio FTP

L

LAZARO

Member

Licensed User

Longtime User

• May 4, 2019

• #1

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

 

L

LAZARO

Member

Licensed User

Longtime User

• May 6, 2019

• #2

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.

 

Cableguy

Expert

Licensed User

Longtime User

• May 6, 2019

• #3

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?

 

L

LAZARO

Member

Licensed User

Longtime User

• May 6, 2019

• #4

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.

 

L

LAZARO

Member

Licensed User

Longtime User

• May 7, 2019

• #5

B4X:

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

 

C

Condata Informatica

Member

Licensed User

• May 7, 2019

• #6

tente incluir este trecho apos inicializar o FTP

FTP.PassiveMode=True
FTP.UseSSL=False

 

C

Condata Informatica

Member

Licensed User

• May 7, 2019

• #7

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%

 

L

LAZARO

Member

Licensed User

Longtime User

• May 7, 2019

• #8

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.

 

L

LAZARO

Member

Licensed User

Longtime User

• Jun 6, 2019

• #9

Pra quem interessar eu já resolvi este problema: Era apenas um simples ponto "." antes da barra da pasta "./pasta"

B4X:

FTP.UploadFile(File.DirInternal, "PEDIDO.TXT", True , "./PASTA")

 

krlos2004

Member

Licensed User

Longtime User

• Oct 25, 2019

• #10

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.