Optimizacion del Uso de la memoria

[Ñuño Martínez]

Empezado por mcs

De todas formas, en una época dónde la cantidad de RAM se mide en gigas y ya hay discos duros de terabyte, vale la pena perder el tiempo en salvar una docena de kbytes?

Por supuesto que sí. ¡Menuda pregunta!

Te pongo un ejemplo. Estoy trabajando en una tienda web en PHP. Las facturas las genera y almacena en disco en formato PDF. Pues bien, si intenta generar más de una factura en una tanda no nos lo permite por falta de memoria. Incluso aumentando el límite impuesto por PHP y Apache a 132 Mib (que es una burrada para una aplicación web) no permite generar más de ocho facturas de una única página. Y el problema es que tampoco permite hacer más de ocho incluso generándolas una a una, guardándolas en disco y eliminando el objeto con "unset" nada más guardarla, antes de generar la siguiente. ¿La razón? Simple: quien diseñó la clase que utilizamos para generar el PDF (no lo hemos hecho nosotros) pensó que no era tan importante optimizar la memoria, de forma que cada vez que se utiliza deja un montón de datos "huérfanos" que ocupan varias decenas de megas por documento, y al final revienta.

No nos engañemos porque nuestra computadora tenga cientos de gigas de memoria y varios teras en la partición de intercambio: la memoria sigue siendo y será siempre un bien preciado y debe ser utilizado con cabeza.

[mcs]

Empezado por Ñuño Martínez

No nos engañemos porque nuestra computadora tenga cientos de gigas de memoria y varios teras en la partición de intercambio: la memoria sigue siendo y será siempre un bien preciado y debe ser utilizado con cabeza.

Por supuesto que la memoria es y será siempre un bien preciado, pero a lo que yo me refiero es que con "programar con cabeza" es suficiente.

Todavía soy muy novato en Delphi (lo mio era Java y VB.NET), y por lo que veo, por norma general los forms son creados en memoria cuando se inicializa la aplicación (no es como el java, que lo normal era form=new MiJFormulario(); form.showModal(); form=null), y por tanto es el propio Delphi quien lo destruye.

En otras palabras, yo soy partidario de destruir/liberar ÚNICAMENTE lo que yo he creado. Si lo ha hecho el IDE, o una clase por mi, debe ser el IDE o la citada clase quien libere los recursos que ha pedido.

Saludos,

Marc

[Casimiro Noteví]

Empezado por mcs

[..]En otras palabras, yo soy partidario de destruir/liberar ÚNICAMENTE lo que yo he creado. Si lo ha hecho el IDE, o una clase por mi, debe ser el IDE o la citada clase quien libere los recursos que ha pedido.
Saludos,
Marc

Es así.

Tú sólo tienes que liberar lo que tú has creado.
En tu caso:

procedure TFrmVentasClienteExpress.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
       Action := caFree;
//  FrmVentasClienteExpress := Nil; 
//  FrmVentasClienteExpress.Free;  
end;

qry1:= CrearConsulta ('SELECT CUENTA FROM FACTURA_BISTRO WHERE ESTATUS  > 0 AND CUENTA_PRINCIPAL = "' + qry1.fieldbyname('CUENTA').AsString +  '"');
result := qry2.RecordCount > 0;
//qry1 := Nil;
//qry1.Free;

Y este caso, si qry1 es un query que has creado tú, puedes eliminarlo con:

FreeAndNil(qry1)

Y fíjate en lo que te ha dicho Ñuño, primero free, luego pones a nil

[[coso]]

Hola,

Código Delphi [-]
procedure TFrmVentasClienteExpress.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
FrmVentasClienteExpress := Nil;
FrmVentasClienteExpress.Free;
end;

creo que aqui iria mejor el .Release. Un saludo.

PD: self.release incluso, aunque estes trabajando con solo una instancia de TFrmVentasexpress.
PDD: mas o menos lo que dijo casimiro en su primer parrafo

[rmora]

Efectivamente Casimiro, Los formularios los creo Yo segun este codigo:

If not Assigned(FrmVentasClienteExpress) then
FrmVentasClienteExpress := tFrmVentasClienteExpress.Create(Self);

Luego lo muestro y posteriormente en el Close desearia liberar la memoria

Si lo hago segun este codigo me despliega un mensaje de "access violation":

procedure TFrmVentasClienteExpress.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
FrmVentasClienteExpress.Free;
FrmVentasClienteExpress := Nil;
end;

Pero si lo hago de esta manera funciona:

procedure TFrmVentasClienteExpress.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
FrmVentasClienteExpress := Nil;
FrmVentasClienteExpress.Free;
end;

No se si de esa manera el Free posterior al nil esta sobrando osea dejar algo asi:

procedure TFrmVentasClienteExpress.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
FrmVentasClienteExpress := Nil;
end;


Tambien estuve utilizando este codigo:

If not Assigned(FrmVentasClienteExpress) then
FrmVentasClienteExpress := tFrmVentasClienteExpress.Create(Self);
Try
FrmVentasClienteExpress.ShowModal;
finally
FrmVentasClienteExpress.Free;
FrmVentasClienteExpress := Nil;
end;
Aca el problema esta en que si ocurre una excepcion el sistema se queda congelado "pegado" y hay que volcar la tarea desde el administrador de tareas de windows.

Que piensan.....

Gracias por la valiosa ayuda!!!

[afunez2007]

Normalmente yo uso lo siguiente:

Para formularios mdi creados desde el menu o de una barra de herramientas:

Código Delphi [-]
   ///Para Crearlos
    if not Assigned(tuForm) then //SI El form no esta creado
    Begin
        tuForm:= TtuForm.Create(nil);
    END
    ELSE;
       tuForm.Show;
       tuForm.WindowState:=wsMaximized;
    End;
    ///Para Liberarlos en el evento OnClose
    FreeAndNil(tuForm);

Si son formularios Modales:

Código Delphi [-]
///Se crea y se Libera desde el mismo evento en el menu o en la barra de herramientas
  tuForm:= TtuForm.Create(nil);
  Try
      tuForm.ShowModal;
  Finally
      FreeAndNil(tuForm);
  End;

Espero te sirvan, recuerda que deben estar quitados de la autocreacion del proyecto.

Saludos

[rmora]

aFunez, gracias por tus comentarios.

En el caso de los formularios modales en el evento Close, pones algo?, que pasa si hay una excepcion?, el sistema se queda pegado?.

En los formularios mdi basta con la linea que me indicas o hay algo mas?.

Ahora es necesario que al crear los fomularios utilice "nil" en lugar del "self"?

[Ñuño Martínez]

Empezado por rmora

Ahora es necesario que al crear los fomularios utilice "nil" en lugar del "self"?

Depende de si quieres que el componente sea destruido por su contenedor o si quieres controlar tú diréctamente cuándo destruirlo.

[afunez2007]

Empezado por rmora

aFunez, gracias por tus comentarios.

En el caso de los formularios modales en el evento Close, pones algo?, que pasa si hay una excepcion?, el sistema se queda pegado?.

En los formularios mdi basta con la linea que me indicas o hay algo mas?.

Ahora es necesario que al crear los fomularios utilice "nil" en lugar del "self"?

Los formularios modales si te das cuenta en la programacion del boton que lo crea tambien esta el codigo para liberarlos, el FreeAndNil Lo hace todo, en el caso que preguntas si hay una excepcion o el sistema se queda pegado; recuerda que el formulario modal no te dejara operar nada mas mientras este en frente de la aplicacion, la unica excepcion puede ser propiamente en el formulario modal que tienes en frente.

Los MDI, igualmente lo creas y en el onclose lo unico que necesitas es el FreeAndNil, la diferencia es que los mdi los puedes minimizar y trabajar en otro

Saludos

[Casimiro Noteví]

De este modo sólo debes dejar el caFree, lo otro sobra.

procedure TFrmVentasClienteExpress.FormClose(Sender: TObject;var Action: TCloseAction);
begin
  Action := caFree;
//  FrmVentasClienteExpress := Nil;
//  FrmVentasClienteExpress.Free;
end;

Y esto también es correcto, yo lo uso cuando necesito coger el valor de alguna variable o dato del form que se está cerrando... PERO, no uses caFree en el form frmVentasclienteExpress porque estarías igualmente liberando con free y poniendo a nil algo que ya no existe, debes usar, por ejemplo, caHide, esto te oculta el form y luego lo liberas tal y como haces o con freeandnil

If not Assigned(FrmVentasClienteExpress) then
  FrmVentasClienteExpress :=  tFrmVentasClienteExpress.Create(Self);
Try
  FrmVentasClienteExpress.ShowModal; //  <-- en ese form no uses caFree, usa caHide
finally
  FrmVentasClienteExpress.Free;
  FrmVentasClienteExpress := Nil;
end;