Ver Mensaje Individual
  #4  
Antiguo 04-12-2008
pablopessoa pablopessoa is offline
Miembro
 
Registrado: may 2008
Ubicación: Argentina
Posts: 162
Reputación: 16
pablopessoa Va por buen camino
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.
Responder Con Cita