![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
|
¿Cómo puedo listar el directorio ftp y poder visualizarlo en delphi 7? Gracias.
![]() |
|
#2
|
|||
|
|||
|
con el comando list
En indy es: idFTP1.List(Dir) donde dir es tStringList Código:
For I := 1 to Config.Count - 1 Do
Memo1.Lines.Append(Config.Strings[i]);
Dir := tStringList.Create;
If Not idFTP1.Connected Then Begin
Memo1.Lines.Append('Conectando con host...');
idFTP1.Host := Config.Values['Host'];
idFTP1.Username := Config.Values['User'];
idFTP1.Password := Config.Values['Password'];
idFTP1.Connect;
End;
If idFTP1.Connected Then Begin
idFTP1.TransferType := ftBinary;
Memo1.Lines.Append('buscando directorio de datos...');
idFTP1.ChangeDir('/grupopatmar.com/data');
Memo1.Lines.Append('obteniendo info...');
idFTP1.List(Dir);
Memo1.Lines.Append('Directorio...');
For I := 0 to Dir.Count - 1 Do Begin
Memo1.Lines.Append(Dir.Strings[i]);
End;
|
![]() |
|
|
|