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.

:confused:

Hola, a que te refieres cuando dices?:

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

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...

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

No te olvides de destruir al StringList.

// Saludos

ok, gracias no lo olvidare...:D

como se hace
 

para mostrar los datos del ftp al que se conecto simulando ser un disco duro??? osea, que cuando abra mi pc pueda tener los mismos permisos como para ver los archivos como un disco duro mas y modificar y hacer todo y este se actualize al servidor ???... ya tengo el cliente ftp listo solo me falta darle esta opcion al conectarse y estoy barado ahi. Gracias por su ayuda