Error "Destination File Already exists" descargando por FTP

[[seoane]]

¿Para que usas ExtrctFilePath?

[pablopessoa]

La verdad, encontre ese codigo en un tutorial y asi lo pastee, nunca conecte mi aplicacion a un server FTP asi que mucha idea no tengo de como hacerlo.
Vos me podras guiar un poco?
Gracias!!!

[pablopessoa]

Hola gente, queria comentarles qeu estuve investigando sobre el problema que planteaba mas arriba.
Por lo que encontre parece ser que hay un Bug en la implementacion del metodo Get del Indy (no se bien si version 9 o 10), por lo que llamar a la funcion como :

1-FTP.Get('BPWOK.MDB','c:\BPWOK.MDB',false);
2-FTP.Get('BPWOK.MDB','c:\BPWOK.MDB');
3-FTP.Get('BPWOK.MDB','c:\BPWOK.MDB',false,false);

produce el error de que el archivo ya existe sin importar que no exista.
Les dejo el codigo que encontre de la implementacion del get , al seguirlo es facil darse cuenta donde esta el error.

Antes de poner el codigo les cuento que lo solucione poniendo :
FTP.Get('BPWOK.MDB','c:\BPWOK.MDB',true);

aca va el codigo :

Código Delphi [-]
procedure TIdFTP.Get(const ASourceFile, ADestFile: string;
const ACanOverwrite: boolean = False; AResume: Boolean = false);
var
  LDestStream: TIdStream;
begin
    AResume := AResume and CanResume;
    if ACanOverwrite and (not AResume) then
      begin
        Sys.DeleteFile(ADestFile);
        LDestStream := TFileCreateStream.Create(ADestFile);
      end
    else
    begin
      if (not ACanOverwrite) and AResume then
        begin
          LDestStream := TAppendFileStream.Create(ADestFile);
        end
      else
        begin
          raise EIdFTPFileAlreadyExists.Create(RSDestinationFileAlreadyExists);
        end;
    end;

  try
    Get(ASourceFile, LDestStream, AResume);
  finally
    Sys.FreeAndNil(LDestStream);
  end;
end;

si se fijan, los parametros que indican si dejamos reemplazar el archivo y si permitimos la reanudacion de la descarga, se inicia como constante en false las dos, por lo que siguiendo los if caemos obligatoriamente en el disparo de la excepcion.