![]() |
![]() |
![]() |
![]() |
![]() |
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; |
![]() |
|
|
![]() |
|