Error "Destination File Already exists" descargando por FTP

[pablopessoa]

ese es el error cuando intento descargar un archivo de un servidor ftp con mi aplicacion, aclaro que el archivo no lo tengo en mi pc, y tb probe por las dudas hacer un delete del archivo que intento bajar antes de hacer el FTP.Get.
Abajo les pasteo el codigo por si encuentran algun error.
Yo lo que trato de hacer es : Descargar una base en access desde internet, por FTP, para actualizar la base de mi aplicacion. Lo que tengo en mente es bajarlo, asociarlo a un AdoConection, abrirlo, recorrer las tablas y fijarme que datos no tengo para actualizar mi base local, y por ultimo borrar el que baje.
Les parece bien que lo haga asi o hay alguna forma mas eficiente?


procedure TForm16.BitBtn1Click(Sender: TObject);
var
FTP: TIdFTP;
begin
FTP := TIdFTP.Create( nil );
// FTP.OnWork := FTPWork;
FTP.Username := usuario.Text;
FTP.Password := pass.Text;
FTP.Host := host.Text;
try
FTP.Connect;
except
ShowMessage( 'No se ha podido conectar con el servidor ' + FTP.Host );
end;
if FTP.Connected then
begin
// showmessage('estoy conectado');
Barra.Max := FTP.Size( '/BPWOK.MDB') div 1024;
FTP.get(ExtractFilePath('BPWOK.MDB'),'c:\BPWOK.MDB',false);
FTP.Disconnect;
FTP.Free;
end
else
showmessage('No estoy conectado');
end;


Un saludo para todos y muchas gracias de verdad por toda la buena onda que tienen y la disposicion de ayudar a novatos como yo.

[seoane]

¿Para que usas ExtrctFilePath? :confused:

[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 :

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.