Indy TIdFTP [erro ao executar Get()] INVALID PORT COMMAND

Delphi

26/07/2013

O executável gerado a partir do código, demonstrado no final do texto, quando é rodado na minha maquina(A) é executa perfeitamente baixando o arquivo.rar conforme esperado.

Porem quando executado na minha maquina(B) ocorre o seguinte erro: INVALID PORT COMMAND na execução do comando idFTP1.Get(...).

Obs. o tamanho do arquivo.rar é 2Mb na pasta de origem do FTP e ao executar o comando IdFTP1.Get(...) é gerando na pasta
destino um arquivo.rar de tamanho ZERO.

Alguém qual o motivo de estar ocorrendo este erro. E como posso resolve-lo?
Agradeço sua ajuda.

segue abaixo, o código aplicação:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  lsOrig, lsDest: string;
begin
     IdFTP1.Disconnect;
     IdFTP1.Host     := edtHost.Text;           // host = ftp.name.com.br
     IdFTP1.Port     := strtoint(edtPort.Text); // port = 21
     IdFTP1.Username := edtUser.Text;           // user = name
     IdFTP1.Password := edtPass.Text;           // pass = xxxx
     IdFTP1.Passive  := chkPassive.Checked;     // true
     IdFTP1.Connect;

     lsOrig := edtOrig.Text;                    // origem = /pasta/arquivo.rar
     lsDest := edtDest.Text;                    // destino = c:\pasta\arquivo.rar
     IdFTP1.Get(lsOrig, lsDest, true, false);

     IdFTP1.Disconnect;
end;
Bruno Pinto

Bruno Pinto

Curtidas 0

Respostas

Ewerton Rodrigues

Ewerton Rodrigues

26/07/2013

A Máquina B seria o seu cliente ??

Caso seja uma máquina externa você tem que observar o que ele tem de diferente da sua outra máquina antivirus, firewall, proxy, configurações diversas.

GOSTEI 0
Bruno Pinto

Bruno Pinto

26/07/2013

Maquina (A) e Maquina (B) pertencem a clientes diferentes.
Ambas:
- Maquina externas.
- com mesmo sistema operacional, Win 7.
- com todas as atualizações do win 7.
- com mesmo antivírus, de mesma configuração, atualmente desativado executar teste.
- usando firewall do windows, sendo que desativado para executar teste.
- não possuem proxy.

obs. Testei o executável em modo de segurança com rede e o erros persistem.

GOSTEI 0
Bruno Pinto

Bruno Pinto

26/07/2013

Então: o problema foi resolvido da seguinte forma,
criei o executavel utilizando o componente TIdFTP, deixando que o
usuario selecione o valor da propriedade IdFTP1.Passive como True ou False.
na maquina (A) o programa roda utilando tanto True ou False.
porem na maquina (B) ele so roda se estiver True.
Resolvido.
GOSTEI 0
José

José

26/07/2013

Bruno obrigado pelo retorno, sendo assim estou dando o tópico por concluído.
GOSTEI 0
POSTAR