Ver Mensaje Individual
  #4  
Antiguo 20-09-2006
ilichhernandez ilichhernandez is offline
Miembro
 
Registrado: oct 2005
Posts: 277
Reputación: 19
ilichhernandez Va por buen camino
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
__________________
[Lo que a veces es tan facil, a veces parece imposible]
Responder Con Cita