descargar desde ftp
 

Hola:

Estoy haciendo un proyecto donde necesito descargar un fichero desde un sitio ftp y me recomendaron el IdFTP de la paleta Indy del Deplhi 7 que es el que estoy utilizando pero nunca he trabajado con ese componente. Vi que tiene entre otras propiedades el Host, username y password pero como logro pasarle el nombre del fichero que quiero y descargarlo en una direccion determinada.

Saludos
Luis

Hola lgarcia.

Revisa este enlace: Descargando archivos por FTP con INDY

Saludos :)

lgarcia,

:rolleyes:

Revisa esta información:
Espero sea útil :)

Nelson.

descargar desde ftp
 

gracias ecfisa por la pronta respuestaestoy haciendo pruebas con el codigo y te comentare luego

Saludos
Luis

descargar desde ftp
 

cuando compilo me esta dando el error en la instruccion: FTP.Get( ExtractFileName(sArchivo), sArchivo, False, False);

Project Actual.exe raised exception class EidProtocolReplayError with Message 'PORT/EPRT (active mode/extended active mode) is not supported use PASV/EPSV instead of this.

Saludos
Luis

descargar desde ftp
 

La sentencia FTP.ChangeDir(''); se refiere al directorio donde esta el archivo en el FTP?

Saludos
Luis

Hola lgarcia.
¿ Podrías copiar y pegar aquí el código que estás empleando ?

Si, el método ChangeDir cambia el directorio en el servidor FTP.

Saludos :)

En el club, si utilizas la búsqueda, puedes encontrar varios ejemplos de cómo realizar esto.
Sin ir más lejos, aquí tienes uno de Nelson donde se pueden ver las operaciones más básicas a realizar en un FTP con el componente idFTP.

Aunque si buscas un poco encontrará más...

descargar desde ftp
 

El codigo que estoy usando es este:

Código Delphi [-]
procedure TFormMain.FTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  Barra.Position := AWorkCount div 1024;
end;

procedure DescargarArchivo(sArchivo: String);
var
  FTP: TIdFTP;
  cad: string;
begin
  FTP := TIdFTP.Create(nil);
  FTP.OnWork := FormMain.FTPWork;
  FTP.Username := 'admin';
  FTP.Password := '123';
  FTP.Host := 'www.apocalipsi.com';

  try
    FTP.Connect;
  except
    raise Exception.Create( 'No se ha podido conectar con el servidor ' + FTP.Host);
  end;

  FTP.ChangeDir('/Update/');

  FormMain.Barra.Max := FTP.Size(ExtractFileName(sArchivo)) div 1024;

  if FileExists(sArchivo) then DeleteFile(sArchivo);

  cad:= sArchivo;

  FTP.Get(ExtractFileName(sArchivo), sArchivo, False, False);

  FTP.Disconnect;
  FTP.Free;
end;

procedure TFormMain.FormActivate(Sender: TObject);
begin
  DescargarArchivo('Programa.exe');
  Close;
  WinExec(PChar('Programa.exe'),SW_SHOWNORMAL);
end;

end.

Saludos
Luis

Hola lgarcia.

Acabo de probar el código que adjuntaste y si bién no me permite conectar con el servidor, no lanza la excepción que mencionas en el mensaje #5. ¿ Sigue mostrándote ese mensaje o ya está solucionado ?

Saludos :)

descargar desde ftp
 

socio, sigue tirandome el mensaje.

Saludos
Luis

Prueba a realizar la transferencia en modo pasivo.

Código Delphi [-]
  ...
  FTP.Passive := True;
  ...

Hola de nuevo.

No se que decirte por que no he recibido nunca ese error que aparenta ser de protocolo.

Como dato adicional, con tus valores y quitando el try/except obtengo el error: Socket error #10060 Connection timed out, que normalmente es debido a que el cliente no recibe respuesta del servidor.

Olvidé mencionarte que también puedes poner el componente en tiempo de diseño y los valores de sus propiedades desde el Object Inspector, ahorrándote el código de inicialización.

Y por último me queda sugerirte que intentes de este modo:

Código Delphi [-]
uses Urlmon;

procedure DownloadFile(const url, target: string);
begin
  URLDownloadToFile(nil, PChar(url), PChar(target), 0, nil);
end;

Ejemplo de uso:

Código Delphi [-]
...
begin
   DownloadFile('ftp://ftp.freenet.de/pub/filepilot/ss_sa', 'c:\tmp\ss_sa');
...

Saludos :)

Edito: No había visto el mensaje de Neftali pero seguramente ajustando esa propiedad desaparezca la excepción.

descargar desde ftp
 

Con la recomendacion de Neftali de FTP.Passive := True; se resolvio el problema. Parece que era un problema de protocolo.

Muchas gracias por su colaboracion y el tiempo empleado.

Saludos
Luis