¡Qué registro más lento!

[ixMike]

Hola,
Veréis, estoy haciendo un programa (bueno, casi todos los del foro estamos haciendo alguno, ;)), en el que tengo un TComboBox, un TButton y un TListView (entre otros, pero al usar éstos es cuando tengo problemas). En el TComboBox escribo una clave de registro (por ejemplo "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion"), y al darle al botón, el TListView se llena con todas las claves y datos que hay en esa clave de registro. El problema está en que cuando escribo algunas claves (como "HKEY_CLASSES_ROOT" o "HKEY_LOCAL_MACHINE\Software\Classes", entre otras), que contienen miles de claves y datos, pues el programa reacciona con una lentitud increíble (hasta 40 segundos).
Pero, ¿qué pasa? ¿Por qué tarda tanto? ¿Cuál es el problema, dónde está el fallo? ¿Alguien tiene alguna sugerencia?
NOTA: Uso Delphi 3 Std en Windows XP, el TListView usa iconos (una para claves, otro para valores alfanuméricos y otro para valores numéricos o binarios), y no solo lee los nombres, sino también los valores. El código para leer el registro hace más cosas, entre comprobaciones y memorizar las claves que se van escribiendo.
Aquí está el código que utilizo (resumido a lo importante):


unit regFondo;
{...}
type
ERegConvertError = class (ERegistryException);
TFFondo = class(TForm)
lista: TListView; //Esta el la lista que se llena con las claves
CDireccion: TComboBox; //AQuí es donde escribo la clave
BIrDireccion: TSpeedButton; //Este es el botón que pulso para leer las claves
estado: TStatusBar;
BAtras: TSpeedButton;;
BAdelante: TSpeedButton;
ilListaSmall: TImageList;
liLista: TImageList;
{...}
Procedure LlenarLista;
procedure Explorar(path: string; editback: boolean);
procedure BIrDireccionClick(Sender: TObject);
{...}
private
{ Private declarations }
public
{ Public declarations }
end;
var
FFondo: TFFondo;
CurKey: Integer;
CurPath: String;
Registro: TRegistry;
Atras, Adelante: TStrings;
implementation
{$R *.DFM}
{Aquí hay varias funciones para pasar las claves de String a Integer, y hacer comprobacioens:
RKeyToStr(rkey: integer): String; //Parametro: HKEY_LOCAL_MACHINE; devulve: "HKEY_LOCAL_MACHINE"
StrToRKey(rkey: string): integer; //Al contrario que la anterior
IsValidRoot(root: integer): boolean; //Si el valor introducido no es tipo HKEY_lo_que_sea devulve False
IsValidRootStr(root: string): boolean; //Como la anterior, pero con texto
GetRoot(path: string): integer; //Parametro: "HKEY_LOCAL_MACHINE\Software\Microsoft"; devulve: HKEY_LOCAL_MACHINE}
Procedure TFFondo.LlenarLista;
var
s: tstrings;
n: integer;
nodo: TListItem;
tipo: TRegDataType;
begin
Lista.Items.Clear;
s:=TStringList.Create;
Registro.GetKeyNames(s);
if s.Count>0 then for n:=0 to s.Count-1 do
begin
nodo:=Lista.Items.Add;
nodo.Caption:=s[n];
nodo.SubItems.Add('Clave de registro');
end;
s.Clear;
registro.GetValueNames(s);
if s.Count>0 then for n:=0 to s.Count-1 do
begin
nodo:=Lista.Items.Add;
nodo.Caption:=s[n];
if nodo.Caption='' then nodo.Caption:='(Predeterminado)';
tipo:=Registro.GetDataType(s[n]);
Case tipo of
rdString: begin
nodo.ImageIndex:=1;
nodo.SubItems.Add('Alfanumerico');
nodo.SubItems.Add(Registro.ReadString(s[n]));
end;
rdExpandString: begin
nodo.ImageIndex:=1;
nodo.SubItems.Add('Alfanumerico expandido');
nodo.SubItems.Add(Registro.ReadString(s[n]));
end;
rdInteger: begin
nodo.ImageIndex:=2;
nodo.SubItems.Add('Numerico');
nodo.SubItems.Add(IntToHex(Registro.ReadInteger(s[n]),8)+'('+IntToStr(Registro.ReadInteger(s[n]))+')');
end;
rdBinary: begin
nodo.ImageIndex:=2;
nodo.SubItems.Add('Binario');
//Aquí falta el código para poner en la lista algo tipo "AA BB 2F 3C 43 51 A7 B0 AC ..." pero aún no lo he hecho
end;
rdUnknown: begin
nodo.ImageIndex:=2;
nodo.SubItems.Add('Desconocido');
end;
end;
end;
s.Free;
end;
Procedure TFFondo.Explorar(path: string; editback: boolean);
var
oldpath: string;
begin
estado.panels[0].Text:='Leyendo registro...';
If editback then oldpath:=RKeyToStr(CurKey)+CurPath;
try
CurKey:=GetRoot(path);
CurPath:=copy(path,length(RKeyToStr(curkey))+1,length(path)-length(RKeyToStr(curkey)));
Registro.RootKey:=CurKey;
CDireccion.Text:=path;
registro.CloseKey;
Registro.OpenKey(CurPath,false);
LlenarLista;
if editback then
begin
atras.add(oldpath);
adelante.add(RKeyToStr(CurKey)+CurPath);
end;
if Lista.Items.Count>0 then lista.ItemFocused:=Lista.ITems[0];
except
Application.MessageBox('Se produjo un error','Error',Mb_IconError);
end;
end;
procedure TFFondo.BIrDireccionClick(Sender: TObject);
begin
If CDireccion.Text[length(CDireccion.Text)]<>'\'then CDireccion.Text:=CDireccion.Text+'\';
Explorar(CDireccion.Text,true);
CDireccion.SelectAll;
end;
{...}
end.


Gracias.

[luisgutierrezb]

pues leer el registro en 40 segundos no me parece nada mal, aqui el chiste es que vayas leyendo lo que vas necesitando, como el clasico regedit, que lee primero las llaves principales, si le das click abre otra, pero no se pone a leer todo lo que hay debajo de ella...

[lpmlpm]

Puede ser que quien se esté comportando lento sea tu control TListView, prueba agregando estas lineas de código en tu procedimiento:



Procedure TFFondo.LlenarLista;
...
begin
Lista.Items.BeginUpdate;
... //tu código
Lista.Items.EndUpdate;
end;

[Mick]

Uno de los cuellos de botella que tienes es que no llamas a
Lista.BeginUpdate;
Debes llamar a esta metodo al principio de la funcion de llenado de datos, y cuando acabes de añadir todos lo nodos, al final de la funcion llama a:
List.EndUpdate;
Cada vez que añades un nodo al TListView, este se redibuja, y esto es lento de modo que si añades 1000 nodos tendras 1000 redibujados, añadiendo el codigo que he indicado le indicas al TListView que no se refresque de modo que se redibujara una sola vez , al final de la funcion, cuando se llame a List.EndUpdate.

Esto es aconsejable hacerlo, con todos los objetos visuales que almacenan items o strings , no solo TListView, ya que acelera enormente las inserciones.

Ademas de esto no se si habra algun otro cuello de botella, ya que realmente un tlistview es lento debido a que cada insercion exige pedir un bloque de memoria, pero pruebalo (normalmente el uso de este sistema hace que las inserciones sean 20 o 30 veces mas rapidas).

Saludos

[ixMike]

:) :) :) :) Ok, muschísimas gracias!!!!!!!!!!!!!!!!!!:) :) :) :)

Probaré lo del BeginUpdate-EndUpdate.

Había oído por ahí que eran lentas las lista (TListView y TTreeView), pero me sorprendía que lo fueran tanto...
También había leído que el registro era lento...

Hasta la próxima :)

P.D. Perdón mi tardanza en contestar.