Tema: Memoria
Ver Mensaje Individual
  #4  
Antiguo 14-07-2003
Avatar de guillotmarc
guillotmarc guillotmarc is offline
Miembro
 
Registrado: may 2003
Ubicación: Huelva
Posts: 2.638
Reputación: 24
guillotmarc Va por buen camino
Hola.

Tal vez tengas una fuga de memória. Los componentes visuales, tienen una propiedad parent que indica quien es el responsable de liberarlo. De forma que al eliminar un formulario, se libera la memória de todos los componentes que lo tengan como parent.

Aunque a veces se crean objetos por código, los cuales se tienen que liberar también por código mediante el método Free, puesto que al liberar el formulario donde se crearon, no implica que se libere su memória asignada. Esto puede provocar que cada vez que cargas el formulario, se creen objetos nuevos por código, los cuales al no liberarse nunca, van incrementado gradualmente la memória consumida.

Ejemplo :

Código:
procedure TfrmAnomalia.CargarImagen;
var Jpeg:TJpegImage;
    Corriente:TMemoryStream;
begin
  imgFoto.Picture := nil;
  if cdsDatosIMAGEN.BlobSize > 0  then begin
    Jpeg:=TJpegImage.create;
    Corriente:=TMemoryStream.create;
    try
      cdsDatosIMAGEN.SaveToStream(Corriente);
      Corriente.Seek(0,soFromBeginning);
      Jpeg.LoadFromStream(Corriente);
      imgFoto.Picture.Assign(Jpeg);
    finally
      Jpeg.Free;                   (*)
      Corriente.Free;             (*)
    end;
  end;
end;
Estas líneas, cargan en un TImage, una imagen en formato Jpeg guardada en un campo Blob. En los (*) se muestra como libero unos objetos creados por código. Si no lo hiciese, cada vez que cargase el formulario, tendría una perdida de memória, con el contenido de la imagen.

No estaría de más que revisases tu código buscando objetos sin liberar.

Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no).
Responder Con Cita