Bajar fichero por ftp usando TIDFtp

[chux]

Buenas, necesito hacer una aplicacion que suba y baje fotos de una ftp, las tareas de uploads las realiza correctamente, pero no consigo bajar ficheros...

Estoy usando el procedimiento get de un idftp Esto es lo que llevo

Código Delphi [-]
var
  fichero : Tidstream;
begin
  fichero := tidstream.Create;
  try
    self.IdFTP1.Connect;
    self.IdFTP1.ChangeDir('htdocs/images/ofertas/');
    self.IdFTP1.Get(self.ZTable1.FieldByName('foto').asstring,fichero);
  except
    on e : exception do
      showmessage('ERROR al cargar la imagen: ' + e.Message)
  end;
end;

El error esta en la variable del tipo tidstream, ya que al llegar al get me dice que seek not implemented...

Bueno saludos y gracias

[dec]

Hola,

En la ayuda (para la versión 9, me parece) que dispongo de los componentes Indy figura "TIdStream" como descenciente de "TStream", sin embargo, en la versión 10 de dichos componentes encuentro que "TIdStream" desciende directamente de "TObject" (esto me llamó la atención, nada más, no creo que tenga que ver con el problema que te encuentras, hasta que no se demuestre lo contrario).

Por otro lado, si piensas trabajar con archivos, por ejemplo, tal vez "TIdStream" no sea la opción más adecuada, echa un vistazo a la clase "TFileStream", inténtalo con ella, pues creo que sería la ideal para lo que necesitas.

Edito: He olvidado el propio método "Get" del componente "TIdFtp". Parece que tiene un método sobrecargado que puede utilizarse para descargar archivos sin necesidad de lidiar con "Streams" (ya lidiará el método internamente, supongo).

Podrías echar un vistazo en la ayuda sobre el método "Get", como digo, pues la tarea podría resumirse más o menos así:

Código Delphi [-]
Self.IdFTP1.Get(self.ZTable1.FieldByName('foto').asstring, 'C:\archivo.txt', true, true);

[chux]

Gracias por responder, he probado con esto

Código Delphi [-]
self.IdFTP1.Get(self.ZTable1.FieldByName('foto').asstring,extractfilepath(application.exename) + 'imgtmp.qry',true,true);

Pero me da una excepcion diciendome que el fichero ya existe, cuando el fichero no existe, y ademas overwrite esta a true...