Ver Mensaje Individual
  #1  
Antiguo 12-09-2006
ilichhernandez ilichhernandez is offline
Miembro
 
Registrado: oct 2005
Posts: 277
Reputación: 19
ilichhernandez Va por buen camino
Listar archivos de directorio a travez de FTP

Hola estimados colegas foreros, estoy realizando una aplicacion cliente/servidor , que toma por ftp archivos del servidor y los copia en el cliente para visualizarlos, ahora bien, para esto utilizo el componente IdFTP, el codigo que tengo es el siguiente..

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
lista : TStringlist;
Begin
      try
      IdFTP1.Username := 'gestion';
      IdFTP1.Password := 'gestion';
      IdFTP1.Host := '192.168.15.200';
      IdFTP1.Port := 21;
      IdFTP1.Connect();
      Lista := TStringList.Create;
      IdFTP1.List(Lista, '*.*', false);
      IdFTP1.Get('archivo.pdf','c:\archivo.pdf');
      except
      IdFTP1.disconnect;
      showmessage('desconectado');
      end;
      IdFTP1.disconnect;
      showmessage('desconectado');
 End;
Necesito junto a traer un determinado archivo que en este caso es archivo.pdf leer o poder visualizar los archivos que hay en dicho directorio del servidor ftp, segun unos apuntes que lei en la red encontre el siguiente codigo

Código Delphi [-]
Lista := TStringList.Create;
idFTP1.List(Lista, '*.*', false);

pero aparentemente este codigo no me muestra nada y no se por donde seguir.... he revisado hartas paginas en la red pero no he llegado a algo que me ayude a resolver mi problema...

Cualquier aporte es bien recibido.... gracias...

Roberto Hernández.

__________________
[Lo que a veces es tan facil, a veces parece imposible]
Responder Con Cita