52 replies to this topic

[escafandra]

no creo que se le pueda pedirm mas al codigo que haz dejado

Si te parece, entonces, podemos poner el tema como resuelto. 


Saludos.

[egostar]

........ no creo que se le pueda pedirm mas al codigo que haz dejado .....

Conociendo a nuestro amigo escafandra seguro que si le va a pedir más a ese código

Salud OS

[ifrit]

Hola amigos, un calido saludo a todos.Solo una sugerencia
Cuando se selecciona MiPC da un error si el treeview no esta expandido (es decir el unico elemento del treeview es MiPC) sugiero que tanto MiPC como Panel de control no tengan checkbox
Atentamente ifrit

[escafandra]

Hola amigos, un calido saludo a todos.Solo una sugerencia
Cuando se selecciona MiPC da un error si el treeview no esta expandido (es decir el unico elemento del treeview es MiPC) sugiero que tanto MiPC como Panel de control no tengan checkbox
Atentamente ifrit

Ciertamente es un bug, lo he corregido. He optado por deshabilitar el check de Panel de Control. Al seleccionar Mi PC se marca como parcial, ya que el Panel de Control no puede ser seleccionado.

Con esto creo que está arreglado. Si encuentras alguna pega me lo dices. 

Saludos.

Attached Files

•  1460_422e4d093f93b96e6f4467cd86edd60f4ab11b1b.zip   236.66KB   6 downloads

[ifrit]

Hola scafandra, hasta ahora todo excelente con el codigo.
Pero me surge una duda y es la siguiente: Tengo en el Memolas direcciones(path) de x cantidad de ficheros y/o carpetas. Necesito que al clickear en un boton se vaya rellenando (marcando con checkbox) el Treeview con los valores del Memo. Es hacer toda la operacion inversa a como lo haz hecho hasta el momento.
Espero haberme hecho entender.
Muchas gracias

[escafandra]

Quizás la forma mas sencilla de conseguir lo que pretentes es expandir todo el árbol de directorios y luego buscar en éste los archivos a marcar. El problema es que el proceso puede ser lentísimo, pues supone explorar todos los discos del sistema. Esta idea queda descartada.

Lo razonable será expandir sólo las partes del árbol que se vean afectadas para marcar, entonces, lo que interese. Un ejemplo práctico de como conseguirlo:
 

cpp

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Button2->Enabled = false;
  Stop = false;
  char Path[MAX_PATH];
  char File[MAX_PATH];
  TDir* Dir;
  TTreeNode* Node;
  char* fin;
  int L, Len;
  Node = TreeView->Items->Item[0];
  // Expando el primer elemento (Mi PC)
  Node->Expand(false);
 
  for(int n=0; n<Memo1->Lines->Count; n++){
    if(Trim(Memo1->Lines->Strings[n])=="") continue;
    strcpy(File, Trim(Memo1->Lines->Strings[n]).c_str());
    fin = File;
    int i = 0;
    while(fin){
      // Rompemos la ruta del archivo en carpetas y las buscamos en el arbol
      Len = strlen(File);
      fin = strchr(fin+1, '\\');
      if(!fin) L = Len;
      else L = (DWORD)fin-(DWORD)File;
      // Buscamos en el arbol
      for(; i<TreeView->Items->Count; i++){
        Application->ProcessMessages();
        Node = TreeView->Items->Item[i];
        if(!Node->Text.IsEmpty()){
          Dir = (TDir*)(Node->Data);
          SHGetPathFromIDList(Dir->AbsoluteIdl, Path);
          if(!strnicmp(File, Path, L) && L+1 >= strlen(Path)){
            if(L<Len)  // Si es carpeta la expando
              Node->Expand(false);
            else       // Si es archivo lo marco
              SetState(Node, Checked);
            break;
          }
        }
      }
    }
  }
  Button2->Enabled = true;
}

Saludos.

[ifrit]

Scafandra muchas gracias por el codigo, era exactamente lo que me propuse hacer pero no pude. Muchas gracias de veras por toda la ayuda.

[escafandra]

...era exactamente lo que me propuse hacer...

Me alegro de que se ajuste a tu pregunta. He de decirte que ese código tiene un pequeño bug que he solucionado. El nuevo código es prácticamente el mismo pero cambio donde dice:

cpp

if(!strnicmp(File, Path, L))

debe decir:

cpp

if(!strnicmp(File, Path, L) && L+1 >= strlen(Path))

Esto de debe a que la carpeta de Mis Documentos tiene duplicada su entrada en el árbol y altera la búsqueda. En un principio no caí en esto pero luego me di cuenta.

Saludos.

[ifrit]

hola amigos del foro.
escafandra una vez mas estoy acá con necesidades en el componente en el que tanto me has ayudado, esta vez no es por un bug es porque necesito lo siguiente, necesito identificar cuando se selecciona una carpeta y un fichero. Te explico, cuando seleccionas un fichero en un programa de backups se sobreentiende que lo que deseas es copiar dicho fichero, pero si selecciones una carpeta se entiende que deseas copiar el contenido de dicha carpeta sin importar si este contenido varia con el tiempo. De la forma actual que esta el treeview enviando los datos a el Memo no me sirve porque obtiene el contenido de una carpeta y si en el futuro se le agrega un fichero a dicha carpeta ese fichero nuevo no sera copiado, espero haberme hecho entender y que me puedas ayudar por favor, saludos.

[escafandra]

Entiendo lo que expones. Para conseguir lo que quieres tenemos que realizar algunos cambios en la forma de trabajar. Básicamente debemos realizar:

1.- Si está elegida una carpeta, guardar su nombre solamente en el StringList, no los archivos.
2.- Modificar la rutina de copia para que sea capaz de copiar carpetas.

Lo primero es modificar SaveFilesFormStrigns, quedará de esta forma:

cpp

void TForm1::SaveFilesFormStrigns(TStrings *Strings)
{
  Stop = false;
  Strings->Clear();
  char Path[MAX_PATH];
  TDir* Dir;
  TTreeNode* Node;
  for(int i=0 ; i<TreeView->Items->Count; i++){
    Application->ProcessMessages();
    Node = TreeView->Items->Item;
    if(Node->StateIndex == Disable || !Node->Parent) continue;
    if(Stop){
      Strings->Clear();
      break;
    }
    if(!Node->Text.IsEmpty()){
      Dir = (TDir*)(Node->Data);
      SHGetPathFromIDList(Dir->AbsoluteIdl, Path);
      if(Node->StateIndex == Checked && Node->Parent->StateIndex != Checked && *Path){
        if(!Dir->File) strcat(Path, "\\");
        Strings->Add(String(Path));
      }
    }
  }
}

Al guardar el nombre de la carpeta le añade un carácter '\' para que el sistema de copia distinga con facilidad que debe copiar una carpeta y no un archivo.

LoadFilesFormStrigns debe ser modificado también para quitar ese carácter '\' que hemos añadido y cargue los archivos y carpetas en el árbol del TreeView.

He añadido una nueva función a la clase para desmarcar todos los elementos del árbol,  ResetState

Lo siguiente es diseñar el sistema de copia. Puesto que te interesaba hacerlo manejando Threads así lo he diseñado. La copia de carpetas puede hacerse de varias formas con la API. Yo he implementado una forma recursiva que termina llamando a FileCopy. Puedes cambiar esto para llamar a FileCopyEx si quieres. Esto te puede dar el control en una barra de progreso que te indicaría la copia de cada archivo.

Te expongo el sistema de copia:

CreatePath se encarga de crear las carpetas destino necesarias:

cpp

void CreatePath(char* path)
{
  if(DirectoryExists(path)) return;
 
  char Path[MAX_PATH];
  char* fin = strchr(path, '\\');
  while((fin = strchr(fin+1, '\\'))!=0){
      *Path = 0;
      strncat(Path, path, (DWORD)fin-(DWORD)path);
      CreateDirectory(Path, 0);
  }
}

[i]CopyFolder Copia una carpeta y sus subcarpetas en un destino de forma recursiva:

cpp

void CopyFolder(String Folder, String Destination)
{
    if(Folder=="" || Destination =="") return;
    TSearchRec sr;
    if(!FindFirst(Folder + "\\*.*", faAnyFile, sr))
    do{
      if(sr.Name != "." && sr.Name != ".."){
          if(sr.Attr & faDirectory){
            CreatePath((Destination + sr.Name + "\\").c_str());
            CopyFolder(Folder + sr.Name + "\\", Destination + sr.Name + "\\");
          }else
            CopyFile((Folder + sr.Name).c_str(), (Destination + sr.Name).c_str(), false);
      }
    } while (!FindNext(sr));
    FindClose(sr);
}

Por último te muestro la función principal del hilo de copiado:

cpp

void __fastcall ThCopyFiles::Execute()
{
  String FileName;
  for(int n=0; n < Strings->Count; n++){
      FileName = Destino + String(Strings->Strings[n].c_str()+3);
      CreatePath(ExtractFilePath(FileName).c_str());
      // Detectamos si es una carpeta...
      if(Strings->Strings[n][Strings->Strings[n].Length()]=='\\')
        CopyFolder(Strings->Strings[n], FileName);
      else
        CopyFile(Strings->Strings[n].c_str(), FileName.c_str(), false);
      if(Terminated) return;
  }
}

Y eso es todo. Adjunto un ejemplo de todo el código tal y como quedaría y he probado.


Saludos.

 

Attached Files

•  Treeview_explorer modificado.rar   204.59KB   1 downloads

[ifrit]

scafandra, un millon de gracias por la respuesta tan rapida, gracias amigo, ya pruebo el codigo y te respondo.

editado:
scafandra: ya probé el ejemplo que mandaste, sencillamente genial, funciona a la perfección. mil gracias nuevamente.

[escafandra]

Me alegra de que sea lo que querías.

El sistema de copia lo he realizado conforme a lo previamente diseñado. De esta forma sirve de ejemplo pedagógico de programación con Threads y funciones de copia recursiva.

Otra forma de proceder a la copia consiste en el uso de las Shell Functions de la API de Windows, en concreto de la potente función SHFileOperation. La ventaja de este método es que trabaja en un hilo distinto, muestra una ventana con el progreso y tiene control de errores, ya que es el propio shell de Windows el que trabaja por nosotros.


Saludos.

[ifrit]

gracias scafandra, aveces no entiendo mucho de lo que me dices, porque mi nivel no esta ni cerca del tuyo pero bueno igual se que quieres ayudar, como esta hasta ahora lo veo perfecto. Aunque no dejare de explorar los links que mandas
muchas gracias y mis respetos

[escafandra]

Si quieres profundizar en ese tema, visita este truco. 

Saludos.

[ifrit]

hola escafandra, todo va viento en popa, pero me ha sucedido lo siguiente. Yo llamo al formulario que contiene al treeview explorer desde otro formulario que es el que contiene el memo donde se ven los ficheros y carpetas
qudaria asi: form1(memo con source), form2(contiene al treeview explorer)
cuando intento utilizar en form1 la funcion LoadFileFormStrings necesito declarar esta junto con SetState(TTreeNode *ANode, int State)
void ResetState();
#include <shlobj.h>
y otras dependencias que están en el form2, pero aun así no me compila y te dejo aca los errores que me arroja :

[ILINK32 Error] Error: Unresolved external 'TfrmTask::SetState(Comctrls::TTreeNode *, int)' referenced from D:\TRABAJO\CSA ORIGINS\DEBUG\UTASK.OBJ

Estoy intentando afregar muchas cosas que estan en el form2 pero ya me asuste me parace que estoy trasladando todo el form2 para el form1, me podrias ayudar porfavor

[escafandra]

No tienes que trasladar código de unos formularios a otros. Sólo tienes que incluir los archivos cabecera de una unit en otra para que puedas usar su código, siempre desde un objeto ya creado:

Form2 es el TreeView.
quiero acceder desde Form1 a una función del Form2:

cpp

Form2->Función_lo_que_sea(Parámetros...);

Saludos.

[ifrit]

:(que pena scafandra era muy obvio, muchas gracias es cierto funciona 100%
pero aprovecho para preguntarte algo:

en esta linea:

cpp

if(!strnicmp(File, Path, L) && L+1 >= strlen(Path)){

de la funcion LoadFilesFormStrigns me da un warning

[BCC32 Warning] uSource.cpp(667): W8012 Comparing signed and unsigned values

y lo otro es que cuando yo despliego el treeview y selecciono una carpeta o fichero y luego no la agrego al memo, cierro el form y luego lo vuelvo a abrir se mantienen seleccionados los ficheros o carpeta que había marcado.Espero que me entiendas lo que te quise decir..Es decir no es un error ni nada solo que seria bueno que al cerrar el form los ficheros seleccionados (se hallan pasado o no al memo) se des seleccionen

muchas gracias

[escafandra]

cpp

if(!strnicmp(File, Path, L) && L+1 >= strlen(Path)){

de la funcion LoadFilesFormStrigns me da un warning

[BCC32 Warning] uSource.cpp(667): W8012 Comparing signed and unsigned values

Es porque L está declarado como un int, si lo declaras como un unsigned int no protestará.
tampoco así:

cpp

if(!strnicmp(File, Path, L) && L+1 >= (int)strlen(Path)){

En cualquier caso no es un error y no afecta al comportamiento del programa.

y lo otro es que cuando yo despliego el treeview y selecciono una carpeta o fichero y luego no la agrego al memo, cierro el form y luego lo vuelvo a abrir se mantienen seleccionados los ficheros o carpeta que había marcado.Espero que me entiendas lo que te quise decir..Es decir no es un error ni nada solo que seria bueno que al cerrar el form los ficheros seleccionados (se hallan pasado o no al memo) se des seleccionen

Si creas el Form de forma dinámica y no como precreado, no pasará. También puedes usar la función ResetState que diseñé para desmarcar todo.

Saludos.

[ifrit]

Nuevamente mil gracias scafandra, aveces me da pena preguntarte tanto...te agradezco la paciencia. Todo lo que me dices funciona ok.
Saludos

[ifrit]

escafandra decidí trabajar con el formulario para no cargar tantos recursos al inicio y lo hice así, dime por favor si esta bien implementado

llamada desde otro form

cpp

if (formulario_dinamico == NULL){
    formulario_dinamico = new formulario_dinamico(this);
    formulario_dinamico->ShowModal();
}

FormClose del dinamico

cpp

formulario_dinamico = NULL;
Action = caFree;