Listar archivos de directorio a travez de FTP

[ilichhernandez]

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.

[[Bicho]]

Hola, a que te refieres cuando dices?:

Empezado por ilichhernandez

Código Delphi [-]Lista := TStringList.Create;
idFTP1.List(Lista, '*.*', false);
pero aparentemente este codigo no me muestra nada y no se por donde seguir

Esa lista no la verás, porque la has creado dinámicamente.

Revisa éste hilo a ver si te puede ayudar con tu problema, y sino concreta un poco más que problemas encuentras.

primera pagina

Segunda página, (haz clic en este enlace, ya que no te funcionará en enlace a la segunda página desde el propio hilo original, por ésta razón).

Espero te sirva

Saludos

[ilichhernandez]

Los enlaces a los hilos que has dejado me parecen sumamante interesantes, ya es tarde asi que mañana le dare a esos ejemploa a ver como resulta....

referente al error en la busqueda de idftp a mi tambien me aparecio y recien ahora que leo el enlace de la info.....al menos ya se que no es mi conexion el problema....

:-) gracias...

[ilichhernandez]

El listado de archivos a travez de ftp me ha funcionado, con los enlaces que me han dejado me ha quedado muy claro... gracias a todos por su ayuda...
El codigo que utilize fue el siguiente :

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
StringList : TStringlist;
Lista : TStringlist;
r : integer;
Begin
      StringList := TSTringList.Create;
      progressbar1.Position:=0;
      try
      progressbar1.Position:=20;
      IdFTP1.Username := 'gestion';
      IdFTP1.Password := 'gestion';
      IdFTP1.Host := '192.168.15.200';
      IdFTP1.Port := 21;
      progressbar1.Position:=40;
      IdFTP1.Connect();
      progressbar1.Position:=70;
      //Lista := TStringList.Create;
      IdFTP1.List(Stringlist, '*.*', false);
      for r := 0 to Stringlist.count-1 Do
         begin
          Listbox1.Items.Add(Stringlist[r]);
         end;
      //IdFTP1.Get('06.pdf','c:\101010.pdf');
      progressbar1.Position:=100;
      except
      IdFTP1.disconnect;
      showmessage('desconectado');
      end;
      IdFTP1.disconnect;
      showmessage('desconectado');
 End;

Roberto Hernandez

[roman]

No te olvides de destruir al StringList.

// Saludos

[ilichhernandez]

ok, gracias no lo olvidare...