52 respuestas en este tema

[ifrit]

Hola foro aca les dejo un ejemplo de treeview como explorador con checkboxes aun no esta completo del todo pero lo dejo con dos objetivos ayudar al qu elo necesite y permitir que otros compañeros sigan enriqueciendolo sinmas el codigo
.cpp

cpp

// ---------------------------------------------------------------------------
#define NO_WIN32_LEAN_AND_MEAN
#include <vcl.h>
#pragma hdrstop
 
#include <shlobj.h>
#include <shellapi.h>
#include <stdio.h>
#include <FileCtrl.hpp>
#include <ComCtrls.hpp>
 
#include "Unit1.h"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
 
#pragma resource "*.dfm"
TForm1 *Form1;
 
TImageList *List;
LPMALLOC mem;
LPMALLOC pShellMalloc; // para SHGetMalloc
// Estructura  para TDir
typedef struct {
	LPSHELLFOLDER ParentShellFolder;
	LPITEMIDLIST pidl;
	LPITEMIDLIST ppidl;
	bool Sfogliato;
}TDir;
 
// variables chkbox
TTreeNode *ClickNode;
bool NodeChecked;
 
// declaracion de la funcion chkbox
void SetChildChecked(TTreeNode * ANode, bool yn);
 
// ---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {
	LPSHELLFOLDER desk;
	LPITEMIDLIST net;
	SHFILEINFO fi;
	STRRET nome;
	char scom[255];
	TTreeNode *n;
	TDir * d;
 
	List = new TImageList(this);
	List->ShareImages = true;
	List->Handle = SHGetFileInfo("", 0, &fi, sizeof(SHFILEINFO),
		SHGFI_SMALLICON | SHGFI_SYSICONINDEX);
	TreeView->Images = List;
 
	SHGetMalloc(&mem);
 
	SHGetDesktopFolder(&desk);
 
	// SHGetSpecialFolderLocation(NULL, CSIDL_NETWORK, &net);
	SHGetSpecialFolderLocation(NULL, CSIDL_DRIVES, &net);
	desk->GetDisplayNameOf(net, SHGDN_NORMAL, &nome);
	GetNome(&nome, net, scom);
 
	SHGetFileInfo((LPCSTR)net, 0, &fi, sizeof(SHFILEINFO),
		SHGFI_PIDL | SHGFI_SYSICONINDEX | SHGFI_DISPLAYNAME | SHGFI_ATTRIBUTES | SHGFI_TYPENAME);
	n = TreeView->Items->Add(NULL, scom);
	n->ImageIndex = fi.iIcon;
	n->StateIndex = fi.iIcon;
	n->SelectedIndex = fi.iIcon;
	d = new TDir;
	d->ParentShellFolder = desk;
	d->pidl = net;
	d->ppidl = net;
	d->Sfogliato = true;
	n->Data = d;
 
	BrowseFolder(desk, net, net, n);
 
	SetWindowLong(TreeView->Handle,GWL_STYLE,
						  GetWindowLong(TreeView->Handle,GWL_STYLE)   |   TVS_CHECKBOXES);
		  SetWindowLong(TreeView->Handle,GWL_STYLE,
						  GetWindowLong(TreeView->Handle,GWL_STYLE)   |   TVS_CHECKBOXES);
//	// chkbox
//	SetWindowLong(TreeView->Handle, GWL_STYLE, GetWindowLong(TreeView->Handle,
//			GWL_STYLE) | TVS_CHECKBOXES);
 
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::GetNome(LPSTRRET nome, LPITEMIDLIST id, char * display)
{
 
	LPSTR lpsz;
	int cch;
 
	switch(nome->uType) {
	case STRRET_WSTR:
		cch = WideCharToMultiByte(CP_ACP, 0, nome->pOleStr, -1, NULL, 0, NULL,
			NULL);
		lpsz = (LPSTR)mem->Alloc(cch);
		if (lpsz != NULL) {
			WideCharToMultiByte(CP_ACP, 0, nome->pOleStr, -1, lpsz, cch, NULL,
				NULL);
			sprintf(display, "%s", lpsz);
			mem->Free(lpsz);
		}
		break;
 
	case STRRET_OFFSET:
		sprintf(display, "%s", ((char*)id) + nome->uOffset);
		break;
 
	case STRRET_CSTR:
		sprintf(display, "%s", nome->cStr);
		break;
	}
}
 
// ----------------
LPITEMIDLIST __fastcall TForm1::MergeIDList(LPITEMIDLIST a, LPITEMIDLIST b) {
	int cb1, cb2;
 
	if (a)
		cb1 = GetPIDLSize(a);
	if (cb1)
		cb1 = cb1 - 2;
 
	if (b)
		cb2 = GetPIDLSize(b);
	if (cb2)
		cb2 = cb2 - 2;
 
	int total_size = cb1 + cb2 + 2;
 
	LPITEMIDLIST lpidlNew;
 
	if (!a || !b)
		return NULL;
	lpidlNew = (LPITEMIDLIST)mem->Alloc(total_size);
	if (lpidlNew) {
		ZeroMemory(lpidlNew, total_size);
		CopyMemory(lpidlNew, a, cb1);
		CopyMemory(((LPBYTE)lpidlNew) + cb1, b, cb2);
		FillMemory(((LPBYTE)lpidlNew) + cb1 + cb2, 2, 0);
		return lpidlNew;
	}
	return NULL;
 
}
 
// ------------------
void __fastcall TForm1::BrowseFolder(LPSHELLFOLDER padre, LPITEMIDLIST pidl,
	LPITEMIDLIST ppidl, TTreeNode *nodo) {
	TTreeNode *c;
	if (nodo != NULL) {
		while (nodo->Count > 0)
			nodo->Item[0]->Delete();
	}
	if (padre != NULL) {
		LPSHELLFOLDER ShellFolder = NULL;
 
		padre->BindToObject(pidl, NULL, IID_IShellFolder, (void**)
			& ShellFolder);
		if (ShellFolder != NULL) {
			LPENUMIDLIST enumlist = NULL;
 
			ShellFolder->EnumObjects(NULL,
				SHCONTF_FOLDERS | SHCONTF_INCLUDEHIDDEN, &enumlist);
 
			if (enumlist != NULL) {
				int i;
				LPSTRRET nome;
				LPITEMIDLIST idfiglio;
				LPITEMIDLIST pp;
				char scom[255];
				SHFILEINFO fi;
				TDir *d;
				int r;
				int conta1, conta2;
 
				enumlist->Reset();
				while (enumlist->Next(1, &idfiglio, NULL) != S_FALSE) {
					LPITEMIDLIST lpNew = MergeIDList(ppidl, idfiglio);
					if (!idfiglio)
						break;
					if (lpNew == NULL)
						continue;
					nome = (LPSTRRET)mem->Alloc(sizeof(STRRET));
 
					memset(&fi, 0, sizeof(SHFILEINFO));
 
					r = SHGetFileInfo((LPCSTR)lpNew, 0, &fi, sizeof(fi),
						SHGFI_PIDL | SHGFI_SYSICONINDEX | SHGFI_DISPLAYNAME |
						SHGFI_ATTRIBUTES | SHGFI_TYPENAME | SHGFI_SMALLICON);
 
					ZeroMemory(nome, sizeof(STRRET));
					nome->uType = STRRET_CSTR;
					ShellFolder->GetDisplayNameOf(idfiglio, SHGDN_NORMAL, nome);
					GetNome(nome, idfiglio, scom);
 
					c = TreeView->Items->AddChild(nodo, scom);
					c->ImageIndex = fi.iIcon;
					c->StateIndex = fi.iIcon;
					c->SelectedIndex = fi.iIcon;
 
					// Cre elelemnto fittizio
					//originalmente decia TreeView->Items->AddChild(c, "PP");
 
					if (fi.dwAttributes & SFGAO_HASSUBFOLDER)
						TreeView->Items->AddChild(c, "");
 
					d = new TDir;
					d->ParentShellFolder = ShellFolder;
					d->pidl = idfiglio;
					d->ppidl = lpNew;
					d->Sfogliato = false;
					c->Data = d;
				}
				enumlist->Release();
 
			}
		}
	}
 
}
 
// -----------
int __fastcall TForm1::GetPIDLSize(LPITEMIDLIST lpidl) {
	unsigned short cb = 0;
	while (lpidl) {
		cb = (unsigned short)(cb + lpidl->mkid.cb);
		lpidl = GetNextItem(lpidl);
	}
	return(unsigned short)(cb + 2);
 
}
 
// ------------
LPITEMIDLIST __fastcall TForm1::GetNextItem(LPITEMIDLIST pidl) {
	unsigned short nLen = pidl->mkid.cb;
	if (nLen == 0)
		return NULL;
	return(LPITEMIDLIST)((LPBYTE)pidl + nLen);
 
}
 
// --------------
void __fastcall TForm1::TreeViewExpanding
	(TObject *Sender, TTreeNode *Node, bool &AllowExpansion) {
	TDir *d;
 
	if (Node != NULL) {
		d = (TDir*)Node->Data;
		if (!d->Sfogliato) {
			BrowseFolder(d->ParentShellFolder, d->pidl, d->ppidl, Node);
		}
		d->Sfogliato = true;
	}
	//ok para mostar checbox
    SetChildChecked(ClickNode, NodeChecked);
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::TreeViewClick(TObject *Sender) {
	TDir *d;
	if (TreeView->Selected) {
		char scom[MAX_PATH];
		d = (TDir*)(TreeView->Selected->Data);
 
		SHGetPathFromIDList(d->ppidl, scom);
		Label1->Caption = scom;
	}
 
}
 
// ---------------------------------------------------------------------------
// funcioneschkbox
bool GetNodeChecked(TTreeNode *ANode) {
	TVITEM tvItem;
	tvItem.mask = TVIF_HANDLE | TVIF_STATE;
	tvItem.hItem = ANode->ItemId;
	tvItem.stateMask = TVIS_STATEIMAGEMASK;
	TreeView_GetItem(ANode->TreeView->Handle, &tvItem);
	return((BOOL)(tvItem.state >> 12) - 1);
}
 
// -----------
void SetNodeChecked(TTreeNode *ANode, bool IsSetToChecked) {
	TVITEM tvItem;
	tvItem.mask = TVIF_HANDLE | TVIF_STATE;
	tvItem.hItem = ANode->ItemId;
	tvItem.stateMask = TVIS_STATEIMAGEMASK;
	tvItem.state = INDEXTOSTATEIMAGEMASK(IsSetToChecked ? 2 : 1);
	TreeView_SetItem(ANode->TreeView->Handle, &tvItem);
}
 
// --------------
void SetChildChecked(TTreeNode *ANode, bool yn) {
	int count = ANode->Count;
	SetNodeChecked(ANode, yn);
	if (count != 0)
		for (int i = 0; i < count; i++)
			SetChildChecked(ANode->Item[i], yn);
 
}
 
// ----------
void __fastcall TForm1::TreeViewMouseDown(TObject *Sender, TMouseButton Button,
	TShiftState Shift, int X, int Y) {
	if (ClickNode != NULL)
		if (GetNodeChecked(ClickNode) != NodeChecked) {
			NodeChecked = !NodeChecked;
			SetChildChecked(ClickNode, NodeChecked);
		}
 
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::TreeViewMouseMove(TObject *Sender, TShiftState Shift,
	int X, int Y) {
	ClickNode = TreeView->GetNodeAt(X, Y);
	if (ClickNode != NULL)
		NodeChecked = GetNodeChecked(ClickNode);
 
}
// ---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Memo1->Clear();
  for (int i=0 ; i<TreeView->Items->Count; i++)
	if (GetNodeChecked(TreeView->Items->Item[i])&&
		!TreeView->Items->Item[i]->Text.IsEmpty()){
	  Memo1->Lines->Add(TreeView->Items->Item[i]->Text);
 
	}
}
//---------------------------------------------------------------------------

.h

cpp

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
 
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
	TLabel *Label1;
	TTreeView *TreeView;
	TMemo *Memo1;
	TButton *Button1;
	void __fastcall TreeViewExpanding(TObject *Sender, TTreeNode *Node, bool &AllowExpansion);
	void __fastcall TreeViewClick(TObject *Sender);
	void __fastcall TreeViewMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
		  int X, int Y);
	void __fastcall TreeViewMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
	void __fastcall Button1Click(TObject *Sender);
 
 
private:	// User declarations
 
void __fastcall GetNome(LPSTRRET nome, LPITEMIDLIST id, char *display);
   void __fastcall BrowseFolder(LPSHELLFOLDER padre, LPITEMIDLIST pidl,
   LPITEMIDLIST ppidl, TTreeNode *nodo);
   LPITEMIDLIST __fastcall MergeIDList(LPITEMIDLIST a, LPITEMIDLIST b);
   int __fastcall GetPIDLSize(LPITEMIDLIST lpidl);
   LPITEMIDLIST __fastcall GetNextItem(LPITEMIDLIST pidl);
public:		// User declarations
	__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

[enecumene]

Gracias por el aporte compañero y bienvenido al foro, estoy seguro que habrán compañeros que lo mejorarán si se da el caso, de nuevo te reitero la bienvenida

Saludos.

[egostar]

Bienvenido a DelphiAccess ifrit

Muchas gracias por tu aportación y espero que te sientas como en casa y sobre todo entre amigos.

Salud OS

[escafandra]

Bienvenido a delphiaccess ifrit. Gracias por tu interesante código. 

Cuando tenga un rato lo miraré mas despacio.

Saludos.

[escafandra]

He revisado el código y aunque no entiendo el fin que se le va a dar, intuyo que se trata de una especie de sistema para elegir un conjunto de ficheros de varias carpetas.

Hecho en falta las elecciones parciales de carpetas y que estas sean automáticas con respecto a las subcarpetas elegidas.

La salida en un memo no me parece lo mejor, quizás en un TListView sería mas apropiado. Además permitiría la elección de ficheros específicos.

Me he permitido modificar algo el código implementando:
1.-  ChecBox en estado disable, PartialCheck, UnCheck, Check y sin uso.
2.-  Automatización de los CheckBox.
3.-  Rutina de encontrar ficheros en carpetas y subcarpetas .

El Volcado de los archivos de las carpetas checkeadas total o parcialmente lo mantengo en el TMemo, pero ya comente sobre la posibilidad de otro control.

La rutina de exploración de carpetas es esta:

cpp

void ListaDir(String Dir, TStrings* Strings, bool SubDir = false)
{
    if(Dir=="") return;
    TSearchRec sr;
    if(!FindFirst(Dir + "\\*.*", faAnyFile, sr))
    do{
       Application->ProcessMessages();
       if(sr.Name != "." && sr.Name != ".."){
          if(sr.Attr & faDirectory){
             if(SubDir) ListaDir(Dir + "\\" + sr.Name, Strings, true);
          }else
             Strings->Add(Dir + "\\" + sr.Name);
       }
    } while (!FindNext(sr));
    FindClose(sr);
}

La rutina de respuesta a la pulsación del botón queda así:

cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Memo1->Clear();
  char Path[MAX_PATH];
  TDir* Dir;
  for(int i=0 ; i<TreeView->Items->Count; i++){
     if(!TreeView->Items->Item[i]->Text.IsEmpty()){
       Dir = (TDir*)(TreeView->Items->Item[i]->Data);
       SHGetPathFromIDList(Dir->ppidl, Path);
       if(TreeView->Items->Item[i]->StateIndex == Checked && *Path)
         ListaDir(Path, Memo1->Lines, true);
       else if(TreeView->Items->Item[i]->StateIndex == PartialChecked && *Path)
         ListaDir(Path, Memo1->Lines);
     }
  }
}

Adjunto el código completo. Ese código es un ejemplo de como continuar el desarrollo dando las bases para ello.


Edito: He corregido un bug en SetParentState


Saludos.

Archivos adjuntos

•  1220_7b594232918bd57b0cae2ce41f06c642cee2e97b.zip   235,21KB   47 descargas

[ifrit]

hola escafandra y amigos del foro, muchas gracias por la bienvenida al foro, se que es de delphi mayormente, pero es bueno saber que tienen un espacio abierto al c++ y a muchos otros lenguajes....
escafandra, el objetivo es hacer un sistema de salvas como el del ntbackup del propio windows, o como el del nero o el del titanbackup de gfi, yo creo y he estado dandole vueltas al asunto que esta es la mejor forma de seleccionar ficheros a la hora de hacer salvas (de todos modos si hay alguna discrepancia o sugerencia, sin problemas la escucho)..El memo, no ira. De echo no abra ningun componente recepcionando los ficheros seleccionados, sino que estos iran a una base de datos en access (por el momento, he tenido la idea de hacerlo con una base de datos portable pero no se cual, no por tener muchas opciones , sino que no conozco ninguna, aunque ya he visto un sin fin de aplicaciones que los datos los guardan en ficheros .dat, pero para ser sincero no se cuales bd utilizan )
Ya probare el codigo que muy agradecido descargue, en cuanto lo prueve te dejo saber y asi enriquecemso este post...Muchas gracias amigo, de veras que si.
Un saludo.

[ifrit]

Hola escafandra, aun no prueve a compilar el codigo fastidiosamente el bcb 2010 se me dio lios al querer ponerle un update y tuve que desintalarlo, pero si pude ver el .exe que me dejas pues estoy muy contento y en realidad no sabria como agradecerte, mira si te digo que he estado detras de poder hacer esto mas de un mes seria poco, he luchado con paginas en japones y demas....Bueno amigo , muchas gracias, cualquier otra duda espero que estes por aqui para seguir debatiendo.Muchas gracias y mis respetos

[escafandra]

Me alegra que tu búsqueda hasta por el Japón haya tenido un buen término en Delphiaccess.    .

Pro error dejé dos link del ejemplo, uno de ellos tiene un pequeño bug que quizás no notes  :^). El caso es que colgué el ejemplo corregido y me olvidé de retirar en antiguo. El que aparece ahora es el correcto.

En cuanto a tu base de datos portable, si lo que quieres es guardar carpetas de archivos completas, lo ideal es que utilices un sistema de compresión y guardes el archivo comprimido con la información de como descomprimir y las carpetas donde deben ir. No veo la necesidad de utilizar bases de datos.

Repito, se bienvenido en el foro, cosa que a estas alturas ya has notado. 

Saludos.

[escafandra]

Tras una observación de ifrit de un comportamiento anómalo del explorador, he revisado la función SetParentState que tenía un diseño recursivo complejo y la he cambiado a no recursiva y mas simple. Para ello he realizado algún cambio más en otras funciones que facilitan la tarea.

Dejo el nuevo enlace.

Saludos.

[escafandra]

Una vuelta de tuerca mas.

El ifrit parece querer realizar un sistema de selección de archivos sin controles añadidos al TTreeView. Bien, el código que propongo en esta ocasión incorpora al árbol las carpetas, subcarpetas y archivos. Éstos últimos se colocan al final de las carpetas de cada rama y tienen sus correspondientes checkboxs. Los archivos seleccionados se muestran en un TMemo que sólo tiene la función de mostrar la lista... Se podría sustituir por un TStringList.

La base del efecto está aquí:

cpp

typedef struct {
	LPSHELLFOLDER ParentShellFolder;
	LPITEMIDLIST pidl;
	LPITEMIDLIST ppidl;
	bool Sfogliato;
        bool File;
}TDir;
 
//------------------------------------------------------------------------------
void __fastcall TForm1::BrowseFolder(LPSHELLFOLDER padre, LPITEMIDLIST pidl,
	LPITEMIDLIST ppidl, TTreeNode *nodo)
{
   TTreeNode *c;
   TTreeNode *FirtsFile = 0;
   if(nodo != NULL) {
     while (nodo->Count > 0)
        nodo->Item[0]->Delete();
   }
   if(padre != NULL) {
     LPSHELLFOLDER ShellFolder = NULL;
 
     padre->BindToObject(pidl, NULL, IID_IShellFolder, (void**) & ShellFolder);
     if(ShellFolder != NULL){
       LPENUMIDLIST enumlist = NULL;
       ShellFolder->EnumObjects(NULL, SHCONTF_FOLDERS | SHCONTF_INCLUDEHIDDEN | SHCONTF_NONFOLDERS, &enumlist);
       if(enumlist != NULL) {
          int i;
          LPSTRRET nome;
          LPITEMIDLIST idfiglio;
          LPITEMIDLIST pp;
          char scom[255];
          SHFILEINFO fi;
          TDir *d;
          int r;
          int conta1, conta2;
          enumlist->Reset();
          while (enumlist->Next(1, &idfiglio, NULL) != S_FALSE) {
             LPITEMIDLIST lpNew = MergeIDList(ppidl, idfiglio);
             if (!idfiglio)
                 break;
             if (lpNew == NULL)
                 continue;
             nome = (LPSTRRET)mem->Alloc(sizeof(STRRET));
             memset(&fi, 0, sizeof(SHFILEINFO));
             r = SHGetFileInfo((LPCSTR)lpNew, 0, &fi, sizeof(fi),
                                SHGFI_PIDL | SHGFI_SYSICONINDEX | SHGFI_DISPLAYNAME |
                                SHGFI_ATTRIBUTES | SHGFI_TYPENAME | SHGFI_SMALLICON);
 
             ZeroMemory(nome, sizeof(STRRET));
             nome->uType = STRRET_CSTR;
             ShellFolder->GetDisplayNameOf(idfiglio, SHGDN_NORMAL, nome);
             GetNome(nome, idfiglio, scom);
 
             // Los archivos se colocan al final de las carpetas
             if(nodo->Level < 1)
               c = TreeView->Items->AddChild(nodo, scom);
             else{
               // Si es un fichero
               if(!(fi.dwAttributes & SFGAO_FOLDER)){
                 c = TreeView->Items->AddChild(nodo, scom);
                 if(!FirtsFile) FirtsFile = c;
               }
               // Si es una carpeta
               else{
                 if(FirtsFile)
                   c = TreeView->Items->Insert(FirtsFile, scom);
                 else
                   c = TreeView->Items->AddChild(nodo, scom);
               }
             }
             c->ImageIndex = fi.iIcon;
             c->StateIndex = fi.iIcon;
             c->SelectedIndex = fi.iIcon;
             c->StateIndex = 1;
 
//             if (fi.dwAttributes & SFGAO_HASSUBFOLDER)
             if ((fi.dwAttributes & SFGAO_FOLDER) || (fi.dwAttributes & SFGAO_HASSUBFOLDER))
               TreeView->Items->AddChild(c, "");
 
             d = new TDir;
             d->ParentShellFolder = ShellFolder;
             d->pidl = idfiglio;
             d->ppidl = lpNew;
             d->Sfogliato = false;
             d->File = false;
             // Si es un fichero
             if(!(fi.dwAttributes & SFGAO_FOLDER))
                d->File = true;
             c->Data = d;
          }
          enumlist->Release();
       }
     }
   }
}

Y la lista se consigue así:

cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Memo1->Clear();
  char Path[MAX_PATH];
  TDir* Dir;
  for(int i=0 ; i<TreeView->Items->Count; i++){
     if(!TreeView->Items->Item[i]->Text.IsEmpty()){
       Dir = (TDir*)(TreeView->Items->Item[i]->Data);
       SHGetPathFromIDList(Dir->ppidl, Path);
       if(TreeView->Items->Item[i]->StateIndex == Checked && *Path && !Dir->File)
         ListaDir(Path, Memo1->Lines, true);
       else if(TreeView->Items->Item[i]->StateIndex == Checked && *Path && Dir->File)
         Memo1->Lines->Add(String(Path));
     }
  }
}

Dejo colgado el código con un ejecutable compilado.

Saludos.

Archivos adjuntos

•  1225_b0ce039ac12c9bf886c76c6e8f070335b424ec64.zip   235,88KB   11 descargas

[egostar]

Que bien está eso amigo

Salud OS

[escafandra]

Que bien está eso amigo ...

¿Ya lo has probado? ¡Qué velocidad!

Saludos.

[egostar]

Que bien está eso amigo ...

¿Ya lo has probado? ¡Qué velocidad!

Saludos.

Si amigo, solo un detalle mínimo, si deseas cancelar no responde, imagino que está en el loop y hace caso omiso a cualquier evento.

Salud OS

[escafandra]

...solo un detalle mínimo, si deseas cancelar no responde, imagino que está en el loop y hace caso omiso a cualquier evento.

Cierto, el bucle del código de respuesta a la pulsación del botón no tiene un Application->ProcessMessages(); que facilitaría esa tarea. Aunque habría que añadir algún que otro filtro para evitar la reentrada en dicho evento...  El propósito no era mostrar eso, sino una propuesta de solución al problema que nos ha presentado ifrit.

Tampoco está previsto la actualización si hubiese un cambio en la estructura del árbol de directorios del disco X mientras trabajamos...

Saludos.

[egostar]

...solo un detalle mínimo, si deseas cancelar no responde, imagino que está en el loop y hace caso omiso a cualquier evento.

Cierto, el bucle del código de respuesta a la pulsación del botón no tiene un Application->ProcessMessages(); que facilitaría esa tarea. Aunque habría que añadir algún que otro filtro para evitar la reentrada en dicho evento...  El propósito no era mostrar eso, sino una propuesta de solución al problema que nos ha presentado ifrit.

Tampoco está previsto la actualización si hubiese un cambio en la estructura del árbol de directorios del disco X mientras trabajamos...

Saludos.

Bueno, no lo he dicho como si hubiese encontrado un bug que para eso tengo suficiente con mis desarrollos que están plagados de ellos

Lo dicho, es un excelente trabajo amigo

Salud OS

[escafandra]

...Bueno, no lo he dicho como si hubiese encontrado un bug que para eso tengo suficiente con mis desarrollos que están plagados de ellos ...

Ni yo lo he considerado así  , pero no sería extraño que surgiese alguno... Y si así fuese, mejor, pues sólo se corrige el bug conocido.  .

Gracias a ti.

Saludos.

[ifrit]

Me haz dejado pasmado....
escafandra, que barbaridad de ejemplo nos has facilitado y en que poco tiempo, para serte sincero no esperaba que la ayuda fuese tanta,  no se como agradecrete la atencion con mi tema, todo va viento en popa, se que muchos te lo agradeceremos y te repito aun estuve buscando en varias paginas (japonesas porque traen mas de este tema que otras ) con el objetivo de no atormentarte tanto con el tema y nada encontre por alla..Amigo muchas gracias y tremendisimo aporte a mi  y a la comunnidad
mis saludos y respetos

[ifrit]

Hola escafandra, tengo un detalle que no logro resolver, cuando selecciono, por ejemplo, F y luego le doy clic al bootn para pasar sus carpetas y archivos al memo, este no me pasa nada, sin embargo cuando despliego las carpetas y ficheros si me pasa los valores al memo, existe alguna forma de sin estar desplegada la unidad fisica o carpeta padre se pasen todos sus valores (subcarpetas y ficheros al memo)?
gracias y saludos

[escafandra]

...cuando selecciono, por ejemplo, F y luego le doy clic al bootn para pasar sus carpetas y archivos al memo, este no me pasa nada...

Bueno, en los ejemplos que yo tengo, eso no me sucede. Habrá que ver que "refrito" estas usando tu   

Cambiando un poco de tema, el último ejemplo carecía de dos cosas fundamentales para un programa funcional:

...solo un detalle mínimo, si deseas cancelar no responde, imagino que está en el loop y hace caso omiso a cualquier evento.

y otro no menos importante:

...Tampoco está previsto la actualización si hubiese un cambio en la estructura del árbol de directorios del disco X mientras trabajamos...

Bueno, te propongo una solución para ambos supuestos con lo que conseguimos mayor profesionalidad:

En el primer caso, la acción de la selección se interrumpe si hacemos Click en el TreeView (podría hacerse de otra manera si así lo queremos).

Para el segundo caso tenemos que complicarnos algo mas. El truco para sensibilizar la aplicación a los cambios producidos en el Shell, se basa en la API SHChangeNotifyRegister. Con esta API registramos nuestra aplicación como receptora de mensajes dirigidos al Shell para notificar de los cambios que le puedan afectar (SHChangeNotify). Se incluyen la inserción de memorias USB. El resto del trabajo será el tratamiento de esos mensajes:

cpp

//---------------------------------------------------------------------------
void __fastcall TForm1::StartNotification()
{
    PSHChangeNotifyRegister SHChangeNotifyRegister =
           (PSHChangeNotifyRegister)GetProcAddress(GetModuleHandle("shell32.dll"), "SHChangeNotifyRegister");
 
    SHChangeNotifyEntry shCNE;
    shCNE.pidl = 0;
    shCNE.fRecursive = TRUE;
 
    // Eventos que se van a registrar
    LONG Events = SHCNE_MEDIAINSERTED | SHCNE_MEDIAREMOVED | SHCNE_DRIVEADD |
                  SHCNE_DRIVEREMOVED | SHCNE_UPDATEDIR | SHCNE_UPDATEITEM |
                  SHCNE_RENAMEFOLDER | SHCNE_RENAMEITEM | SHCNE_MKDIR | SHCNE_RMDIR |
                  SHCNE_CREATE |SHCNE_DELETE;
 
    m_ulSHChangeNotifyRegister = SHChangeNotifyRegister(Handle, SHCNRF_INTERRUPT_LEVEL | SHCNRF_SHELL_LEVEL, Events, WM_USER_SHELLCHANGED, 1, &shCNE);
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::WndProc(Messages::TMessage &Message)
{
   if(Message.Msg == WM_USER_SHELLCHANGED){
     //  AbsoluteIdl[0] =  the previous PIDL or name of the folder.
     //  AbsoluteIdl[0] =  the new PIDL or name of the folder.
     LPITEMIDLIST *AbsoluteIdl = (LPITEMIDLIST*)Message.WParam;
     char Path[MAX_PATH];
     TTreeNode* Node;
     TTreeNode* newNode;
     TDir *d;
     switch(Message.LParam & 0x7FFFFFF)
     {
       case SHCNE_CREATE:
       case SHCNE_MKDIR:
         AddNode(AbsoluteIdl[0]);
       break;
 
       case SHCNE_DELETE:
       case SHCNE_RMDIR:
         Node = Search(AbsoluteIdl[0]);
         if(Node && GetLevel(AbsoluteIdl[0])>1)
            TreeView->Items->Delete(Node);
       break;
 
       case SHCNE_RENAMEFOLDER:
       case SHCNE_RENAMEITEM:
         Node = Search(AbsoluteIdl[0]);
         if(Node && GetLevel(AbsoluteIdl[0])>1)
            TreeView->Items->Delete(Node);
         AddNode(AbsoluteIdl[1]);
       break;
 
       case SHCNE_DRIVEADD:
         AddNode(AbsoluteIdl[0], TreeView->Items->Item[0]);
       break;
 
       case SHCNE_DRIVEREMOVED:
         Node = Search(AbsoluteIdl[0]);
         if(Node){
           SetState(Node, UnChecked);
           TreeView->Items->Delete(Node);
         }  
     }
   }
 
   TForm::WndProc(Message);
}

Aprovecho para optimizar algo mas el código, pues muchas cosas son superfluas.

El ejemplo que subo selecciona todos los archivos de una unidad sin necesidad de desplegarla entera, sólo con marcarla.


Saludos.


PD: Descarga

[ifrit]

Hola escafandra, no habia tenido la oportunidad de agracederte por el esfuerzo y la atencion que le pusistes al tema desde el primer momento, realmente estoy muy agradecido por todo, no creo que se le pueda pedirm mas al codigo que haz dejado
infinitas gracias