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.