FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Bajar varios archivos de internet con idFTP
hola, ya he logrado subir todos mis archivos a internet son como 30... recorri mi carpeta 'prueba' y fui subiendo de a uno, mediante
Código:
var sr: TSearchRec; Directorio:String; begin Directorio:='C:\prueba\'; if idFTP1.Connected then begin if FindFirst(Directorio + '*', faAnyFile, sr) = 0 then repeat if (sr.Attr and faDirectory = 0) or (sr.Name <> '.')and (sr.Name <> '..') then idFTP1.Put(Directorio + sr.Name, 'public_html/Descargas/pruebas/'+ sr.Name); until FindNext(sr) <> 0; FindClose(sr); idFTP1.Disconnect; ShowMessage('Fichero subido.'); end; end; |
#2
|
|||
|
|||
pues deberia de ser lo mismo pero en vez de con idFTP1.put con idFTP1.get,
e invirtiendo las localizaciones claro esta. |
#3
|
||||
|
||||
Y para recorrer la carpeta en el servidor puedes usar el método List del IdFtp y su propiedad DirectoryListing.
// Saludos |
#4
|
|||
|
|||
hola gracias por sus respuestas, lo pude resolver asi
Código:
for I:= 0 to IdFTP1.DirectoryListing.Count-1 do begin idFTP1.Get(idFTP1.DirectoryListing[i].FileName, 'C:\Prueba\' + idFTP1.DirectoryListing[i].FileName ); ProgressBar2.Position:=ProgressBar2.Position+1; Sleep(500); end; except MessageDlg('No se completo la descarga de archivos.', mtWarning, [mbOK], 0); end; |
#5
|
|||
|
|||
gracias a todos, lo puede resover asi:
Código:
for I:= 0 to IdFTP1.DirectoryListing.Count-1 do begin idFTP1.Get(idFTP1.DirectoryListing[i].FileName, 'C:\Prueba\' + idFTP1.DirectoryListing[i].FileName ); ProgressBar2.Position:=ProgressBar2.Position+1; Sleep(500); end; except MessageDlg('No se completo la descarga de archivos.', mtWarning, [mbOK], 0); end; |
#6
|
|||
|
|||
echale un vistazo a esto, yo he probado este ejemplo y me sobreescribe el fichero que bajo sin problema:
http://www.trucomania.org/trucomania...opic.php?t=270 no estoy seguro pero quizas te falta esto IdFTP1.BeginWork(wmRead); ....... IdFTP1.EndWork(wmRead); para cuando subes archivos lo mismo pero con IdFTP1.BeginWork(wmWrite); ...... IdFTP1.EndWork(wmWrite); Última edición por cocute fecha: 23-01-2010 a las 14:58:04. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Varios archivos en uno | elcolo83 | Varios | 5 | 03-01-2008 15:02:17 |
Aplicación con varios archivos | Alexander | Varios | 8 | 08-11-2007 15:15:22 |
Problemas al bajar archivos del CLUB | José Luis Garcí | Varios | 4 | 07-08-2007 09:32:40 |
UPLOAD de varios archivos por código | HombreSigma | .NET | 3 | 04-12-2005 15:23:07 |
Borrar varios archivos | mrmanuel | Varios | 5 | 27-05-2004 02:03:54 |
|