9 respuestas en este tema

[ifrit]

Hola foro tengo la siguiente funcion recursiva, pero no me sale de ella a pesar de que se cumpla la condicion por la cual pregunto para salir

cpp

void list (String Dir, TIdFTP * ftp, TMemo *m){
	static String mainDir = Dir;
	ftp->ChangeDir(Dir); 	
	ftp->List("",true);
	int count = ftp->DirectoryListing->Count;
	if (count == 0) {		
               String dir = ftp->RetrieveCurrentDir();		
               ftp->ChangeDirUp();		
               ftp->RemoveDir(dir);
	       //main Dir = Dir = "/x		
               String a =ftp->RetrieveCurrentDir(); 		
               if (ftp->RetrieveCurrentDir() == mainDir) {		
                  return ;	 		}				
               list (ftp->RetrieveCurrentDir(), ftp, m); 	
         }else{		
            for (int i = 0; i < count; i++) {			
               //carpeta			
               if (ftp->DirectoryListing->Items[i]->ItemType == ditDirectory) {				
                  list (ftp->DirectoryListing->Items->FileName, ftp, m);    			
                }			
                if (ftp->DirectoryListing->Items->ItemType == ditFile) {	
                   ftp->Delete(ftp->DirectoryListing->Items->FileName);
                   list (ftp->RetrieveCurrentDir(), ftp, m);
                }
            }
          }
}

Espero me puedan ayudar . Slaudos y gracias



edito: Me tove la libertad de acomodar tu codigo para que se entienda.

[Mixel Adm]

cpp

void list (String Dir, TIdFTP * ftp, TMemo *m){
   static String mainDir = Dir;
   ftp->ChangeDir(Dir);    
   ftp->List("",true);
   int count = ftp->DirectoryListing->Count;
   if (count == 0) {      
               String dir = ftp->RetrieveCurrentDir();      
               ftp->ChangeDirUp();      
               ftp->RemoveDir(dir);
          //main Dir = Dir = "/x      
               String a =ftp->RetrieveCurrentDir();       
               if (ftp->RetrieveCurrentDir() == mainDir) {      
                  return ;          }            
               list (ftp->RetrieveCurrentDir(), ftp, m);    
         }else{      
            for (int i = 0; i < count; i++) {         
               //carpeta         
               if (ftp->DirectoryListing->Items->ItemType == ditDirectory) {            
                  list (ftp->DirectoryListing->Items->FileName, ftp, m);             
                }         
                if (ftp->DirectoryListing->Items->ItemType == ditFile) {   
                   ftp->Delete(ftp->DirectoryListing->Items->FileName);
                   list (ftp->RetrieveCurrentDir(), ftp, m);
                }
            }
          }
}

Tu código siempre va a listar el directorio "", esa llamada la debes de hacer desde fuera de la función, sino lo unico que vas a conseguir es acabarte la pilla.

ftp->List("",true);

Saludos
_{*editado porque no me fije que en el código no hay formato.}

[seoane]

Echando un vistazo rápido al código me parece extraño que pases como parámetro el objeto "ftp". Ten en cuenta que primero creas una lista con el método "List" pero luego cada vez que llamas al método "List" desde otra función estas cambiando la lista original no creando una nueva.

[ifrit]

Hola amigos, parace que no me hice entender por llamarle a la funcion list que es el mimso nombre de la funcion List del ftp. Aca les dejo la misma funcion pero con otro nombre espero que asi me pueda hacer entender.

cpp

void RemoveFTPDir (String Dir, TIdFTP * ftp, TMemo *m){   static String mainDir = Dir;
   ftp->ChangeDir(Dir);    
   ftp->List("",true);
   int count = ftp->DirectoryListing->Count;
   if (count == 0) {      
               String dir = ftp->RetrieveCurrentDir();      
               ftp->ChangeDirUp();      
               ftp->RemoveDir(dir);
          //main Dir = Dir = "/x      
               String a =ftp->RetrieveCurrentDir();       
               if (ftp->RetrieveCurrentDir() == mainDir) {      
                  return ;          }            
               RemoveFTPDir (ftp->RetrieveCurrentDir(), ftp, m);    
         }else{      
            for (int i = 0; i < count; i++) {         
               //carpeta         
               if (ftp->DirectoryListing->Items->ItemType == ditDirectory) {            
                  RemoveFTPDir (ftp->DirectoryListing->Items->FileName, ftp, m);             
                }         
                if (ftp->DirectoryListing->Items->ItemType == ditFile) {   
                   ftp->Delete(ftp->DirectoryListing->Items->FileName);
                   RemoveFTPDir (ftp->RetrieveCurrentDir(), ftp, m);
                }
            }
          }
}

Mixel Adm, gracias por responder sucede que no listo el directorio "", el TIdFTP al listar de la forma que lo hago lo que hace es ftp->List("",true) 1er paramentro quiere decir que puede ser ficheros o directorios o links o cualquier cosa, es decir una lista completa de todo lo que halla en CurrentDir y el 2do paramentro quiere decir que obtenga los detalles de lo que se obtiene en la lista como "nombre,tamaño,tipo,atributo,etc".

[Mixel Adm]

Que tal ifrit.

Creo que aquí esta el problema.
supongamos que tenemos el directorio /datos/prueba y lo queremos eliminar, asumiendo que esta vacio tu funcion haria lo siguiente (una muy mala corrida de escritorio):

Dir  = '/datos/prueba'
entrando mainDir = '/datos/prueba'
cambiamos al directorio
cd /datos/prueba
luego count = 0 *
dir =  '/datos/prueba' ** dir = RetrieveCurrentDir;
cd .. ****ChangeDirUp();
delete /datos/prueba ***RemoveDir(dir);
a = /datos *****RetrieveCurrentDir();
si  /datos == /datos/prueba  ***********RetrieveCurrentDir() == mainDir
**esto nunca se cumple.
                  return ;     

**si no, elimina el direcotorio actual  es decirveCurrentDir(), ftp, m);   
        RemoveFTPDir (ftp->RetrieveCurrentDir(), ftp, m);

fin.


creo que lo que deberias de probar es si dir == mainDir , lo cual si te daría la solución deseada

Saludos cordiales.

[ifrit]

Mixwl Adm, gracias por responder pero no. En dir solo se almacena el directorio donde estoy parado en ese momento para no perder la direccion cuando haga un ChangeDirUp y luego eliminar el valor de dir. Y si el caso si se cumple, lo digo porque ya lo pense bien, y ademas en modo debug lo he visto como paso por el return; pero luego brinca para la lineaif(listItem->ItemType == ditDirectory) {inexplicablemente....De todos modos seguire probando opciones , pero creo que es la utilizacion de la recursividad o algo porque aun no entiendo.un saludo

[Mixel Adm]

Mixwl Adm, gracias por responder pero no. En dir solo se almacena el directorio donde estoy parado en ese momento para no perder la direccion cuando haga un ChangeDirUp y luego eliminar el valor de dir. Y si el caso si se cumple, lo digo porque ya lo pense bien, y ademas en modo debug lo he visto como paso por el return; pero luego brinca para la lineaif(listItem->ItemType == ditDirectory) {inexplicablemente....De todos modos seguire probando opciones , pero creo que es la utilizacion de la recursividad o algo porque aun no entiendo.un saludo

Bueno, el intento se hizo.

Saludos

[ifrit]

Mixel Adm tienes toda la razon, ayer cuando te respondi lo hice casi sin analizar tu respuesta, ya casi era la hora de irme en el trabajo....disculpa!Como bien dices es si dir == mainDir...te dire que si se cumple, pero aun con el return no me sale de la funcion y eso me extraña mucho, porque a mi entender con un return se deberia salir sin mas no?Espero me puedan ayudar pues no se que mas hacer....la funcion corre muy bien solo que no sale de ella y vuelve a una de las condiciones dentro del ciclo for sin mas.....

[Mixel Adm]

podrias probar algo como esto:

cpp

void RemoveFTPDir (String Dir, TIdFTP * ftp, TMemo *m){   
 ftp->ChangeDir(Dir); 
      ftp->List("",true);  
 int count = ftp->DirectoryListing->Count; 
 for (int i = 0; i < count; i++) {  
  if ( ftp->DirectoryListing->Items->ItemType == ditFile) {
     ftp->Delete(ftp->DirectoryListing->Items->FileName);    
               
 } else
 {
     RemoveFTPDir (ftp->DirectoryListing->Items->FileName, ftp, m);
 } 
  sleep(500);
  ftp->DirectoryListing->Items->nextItem;
 }
 
 ftp->ChangeDirUp(); 
 ftp->RemoveDir(Dir);
}

*** ftp->DirectoryListing->Items->nextItem;
Desconosco como funcione el objeto DirectoryListing pero creo que deberias de cambiar de objeto en cada iteracion.

*** sleep(500);
Y al ser ftp, seria convieniente que dejaras al servidor hacer su trabajo y reportartelo, para no hacerle un flooding de instrucciones.

Saludos

[ifrit]

Hola quiero agradecer a Mixel Adm por la ayuda, no sabia que las funciones recursivas almacenaran el ciclo anterior y el suguiente, etc. Bueno como no pude implementar la funcion para eliminar una carpeta lo que hice fue una para recorrer  una carpeta, que hasta el momento me ha funcionado muy bien y luego elimino de otra forma...para mi ver algo rustico pero como necesitaba tambien recorrer un ftp ya esta todo listo. Aca dejo lo que hago, por si a alguien le interesa.funcion listar carpeta y subcarpetas en ftp

cpp

void Listar2(String Dir, TIdFTP * ftp, TMemo * m, TStringList * sl){ 
    
   ftp->Noop();//send keep alive to ftp 
    
   static String mainDir = Dir; 
   ftp->ChangeDir(Dir); 
   ftp->List("", true); 
 
   int countItem = ftp->DirectoryListing->Count; 
 
   if (countItem == 0){ 
      if (ftp->RetrieveCurrentDir() == mainDir){ 
         return; 
      } 
      else { 
         ftp->ChangeDirUp(); 
         ftp->List("", true); 
         //Listar2(ftp->RetrieveCurrentDir(), ftp, m, sl); 
      } 
   } 
 
   for (int i = 0;i <countItem>RetrieveCurrentDir() + "/" + ftp->DirectoryListing->Items[i]->FileName; 
 
      if (ftp->DirectoryListing->Items[i]->ItemType == ditDirectory){ 
         //carpeta 
         if (sl->IndexOf(a + "/") == -1){ 
            sl->Add(a + "/"); 
            Listar2(a, ftp, m, sl); 
         } 
      } 
      else if (ftp->DirectoryListing->Items[i]->ItemType == ditFile){ 
         //fichero 
         if (sl->IndexOf(a) == -1){ 
            sl->Add(a); 
         } 
      } 
      //ultimo item 
      if (i + 1 == countItem){ 
         if (ftp->RetrieveCurrentDir() == mainDir){ 
            return; 
         } 
         else { 
            ftp->ChangeDirUp(); 
            ftp->List("", true); 
            //Listar2(ftp->RetrieveCurrentDir(), ftp, m, sl); 
         } 
      } 
 
   } //fin for 
 
}

y la utilizo de la siguiente forma para eliminar la carpeta deseada.

cpp

TStringList * sl = new TStringList();    Listar2("/x", IdFTP1, Memo1, sl); 
 
 
 
   //borrar ficheros 
   for (int i = sl->Count-1; i >= 0; i--) { 
      if (sl->Strings[i][sl->Strings[i].Length()] != '/'){ 
         IdFTP1->Delete(sl->Strings[i]); 
         sl->Delete(i); 
      } 
   } 
 
   //borrar dir 
   for (int i = sl->Count-1; i >= 0; i--) { 
      IdFTP1->RemoveDir(sl->Strings[i]); 
   } 
 
    //borrar carpeta 
   IdFTP1->ChangeDir("/"); 
   IdFTP1->RemoveDir("/x"); 
 
 
   delete sl;

No sé porque sale el código desorganizado?[/]