Ver Mensaje Individual
  #1  
Antiguo 15-05-2006
chux chux is offline
Miembro
 
Registrado: sep 2005
Posts: 69
Reputación: 19
chux Va por buen camino
Bajar fichero por ftp usando TIDFtp

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
Responder Con Cita