Ver Mensaje Individual
  #1  
Antiguo 31-12-2015
mjjj mjjj is offline
Miembro
 
Registrado: mar 2007
Posts: 652
Reputación: 18
mjjj Va por buen camino
Liberar memoria al borrar componentes en runtime

Estimados, utilice Delphi XE5 para desarrollar una aplicación que se conecta a un servidor Datasnap para adquirir datos de una DB.
La aplicación es un Dashboard tipo las pantallas que están en los aeropuertos para notificar sobre los vuelos.
En tiempo de ejecución se crea un panel principal en el cual se van creados un Frame previamente creado con la información de la DB. Estos paneles creados en runtime están contenidos en otro panel fijo (panel6) en le formulario principal.
En caso de tener muchos datos que mostrar, puede que se creen (siempre en runtime) más de un panel que contenga los frames.
El último dato que debo señar es que cada vez que se actualizan los datos, primero libero todos las paneles, y luego continuo con la creación de los mismos más los respectivos frames.
En una misma rutina se llevan a cabo las 2 funciones... liberar y crear paneles y frames.

El problema está en la memoria que utiliza la aplicación, ya que es un programa que deberá estar corriente 24/7.
Al transcurrir el tiempo la cantidad de memoria que utiliza la aplicación va en aumento, en ningún momento se reduce.

Adjunto código de liberación y creación.

Código Delphi [-]
/// borrado
for I := panel_total downto 1 do
begin
PanelDinamico := findcomponent('paneldinamico'+inttostr(i)) as Tpanel;
if assigned (PanelDinamico) then
PanelDinamico.free;
end;

/// creacion
i := 0;
panel_total := 1;
while not buscar.EOF do
begin
inc(i);

if i = 9 then  /// 8 frames por panel
begin
inc(panel_total);
i := 1;
end;


if i = 1 then
begin
PanelDinamico := TPanel.Create(self);
PanelDinamico.Name:= 'paneldinamico' + inttostr(panel_total) ;
PanelDinamico.Parent := panel6;
PanelDinamico.Top := 0;
PanelDinamico.Left := 0;
PanelDinamico.Width := panel6.Width;
PanelDinamico.Height := panel6.Height;
PanelDinamico.BevelOuter:= bvnone;
end;

frame := TFrame3.Create(paneldinamico);
frame.Name:= 'frame' + inttostr(panel_total)+inttostr(i) ;
frame.Parent := PanelDinamico;
frame.ParentBackground := false;
frame.Width:= PanelDinamico.Width;
frame.Top:= 70 * (i - 1);
frame.Left:= 0;

//// carga de datos .....
end; /// fin del while

Están bien los procedimientos para crear y liberar estos componente?
Porque no se libera memoria una vez que se borran?

Espero me puedan ayudar.
Saludos
Responder Con Cita