FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#1
|
||||
|
||||
Hace poco tuve un error parecido y tenia que ver con el tamaño de la consulta que hacia el Query... eran mas de 800 mil registros que retornaba y tambien tenia un OnDrawColumnCell Pesado... y la tabla fisica tenia mas de 3 millones de registros...
No fallaba al momento de hacer el open, sino cuando intentaba recorrer y recuperar registros... una de las lineas en las que fallaba, era al intentar pasar esta data a otro dataset a traves de XMLData (propiedad del TClientDataset)... La solución estuvo en aplicar filtros a dicha consulta. igual se demoraba un poco en recuperar datos, pero no explotaba por memoria. Esposible que en tu caso el problema pueda ser por el numero de registros recuperados, a lo que debes sumar la cantidad de Imagenes que creas por cada registro, lo cual puede consumir tu memoria.´ Intenta hacer la consulta sin crear esas imagenes... es decir comenta el código del evento y revisa si te sigue saliendo el porblema... (solo por descartar que no sea otra cosa) |
#2
|
|||
|
|||
Problema de como liberar memoria
Muchas gracias por las respuestas, les quiero comentar que muestro en un grid una imagen por cada registro, también utilizo vrias clases que cree como Tprespuesto, Tproducto, Tparametro, TdetallePresupuesto (esto lo utilizo con TObjectList para jalar el detalle), el tema es que son solo 5 registros de detalle no es mucha data, pero cuando utilizo ReportMemoryLeaksOnShutDown, me sale varios objetos perdidos Tparametro, TPresupuest, etc, que he revisado y creo que los estoy liberando de memeoria bien.
Tambien quiero comentar que a veces una objeto se queda referenciado con otro objeto y solo a traves de invocar nuevamente el eevento create se desvinclua, por eso que cada vez que quiero liberar un objeto, primero invoco el create y luego el free, ejemplo
Quizás este el error por ahí. Otra consulta es que utilizo un objecto de la clase TWICImage; este objeto me permite trabajar con imágenes de varias extensiones pero no se como medir si me consume recurso de la pc. De antemano muchas gracias por todas las respuestas. |
#3
|
|||
|
|||
Una cosita mas, en el mensaje del reporte ReportMemoryLeaksOnShutDown como perdida de memoria, sale el tipo UnicodeString varias veces y nose como liberar eso de memoria, como se interpreta estos mensajes:
13-20 bytes: UnicodeString x 7 21-28 bytes: TMemoryStream x 14, UnicodeString x 3 29-36 bytes: UnicodeString x 3 37-44 bytes: UnicodeString x 3 45-52 bytes: UnicodeString x 1 53-60 bytes: UnicodeString x 1 61-68 bytes: TParametro x 6, 29-36 bytes: UnicodeString x 3 Tpresupuesto x 2 93-100 bytes: UnicodeString x 1 101-108 bytes: UnicodeString x 1 117-124 bytes:TCiente x 4 Gracias a todos por la atención. Última edición por javicho_villa fecha: 05-06-2019 a las 19:29:41. Razón: error de tipeo |
#4
|
|||
|
|||
Buenas con todos,
Quiero comentarles que de a pocos he ido depurando mi código y he logrado disminuir las perdidas de memoria, he detectado que cuando invoco este procedimiento: me genera una perdida de memoria, que hasta ahora no puedo saber porque: les paso el procedimiento y el mensaje y el código de las clases involucradas también esta clase es como una capa donde me conecto con la base de datos: SQL
mensaje: 21 - 28 bytes: TMemoryStream x 3 61 - 68 bytes: TParametro x 3, TPresupuesto x 1 117 - 124 bytes: TCliente x 2
He revisado varias veces pero creo que se me esta pasando un avión por los ojos y no me estoy dando cuenta, por favor amigos ayúdenme que ya llevo varios días en esto y no puedo dar con la solución final. Muchas gracias de antemano. |
#5
|
|||
|
|||
Buenas, les comento después de revisar y revisar mi código, logre mejorar mucho las perdidas de memoria, resulta que cuando creas una clase y dentro de los atributos pones un objeto como atributo este crea una instancia del mismo, que por lo general genera una perdida de memoria, ejemplo:
TPresupuesto = class; Id:integer; Cliente: TCliente; End; El TCliente tambien tenia como atributo un Tipo de documento de la clase TParametro que generaba a su vez otra perdida de memoria, bueno a paser que sobreescribo el destructor y destruyo estos atributos que son onjetos de otras clases que he creado, siempre generan perdida de memoria asi que simplemente no los estoy usando, por que no son tan necesarios, puedo prescindir de estos por ahora y bajaron bastante las perdidas de memoria. Me he quedado con solo una perdida de memoria de la clase TPresupuesto que que cada vez que entro al formulario se genera una perdida, is entro 5 veces a ese formaulrio que trabaja con esa clase genera 5 perdidas de memoria, he puesto en el evento OnClose del formulario: Action := caFree; y tambien FReeAndNil(Presupuesto); y no lo libera de la memoria. Si me podrían dar alguna idea amigos se los voy agradecer bastante Saludos. |
#6
|
||||
|
||||
Hola.
La verdad es que no veo claramente como estas usando esas clases, pero para crear y liberar recursos dispones de los constructores y destructores. Si TPresupuesto crea un TCliente, es su responsabilidad liberarlo. Como ejemplo:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#7
|
|||
|
|||
Gracias por la respuesta ecfisa, he estado poniendo FreeAndNil(FCliente) siguiendo tu ejemplo, pero no se porque cuando cierro el formulario, a pesar que destruyo los objetos genera una perdida de memoria del TPresupuesto, a psear tambien que en el evento Onclose del formulario he puedo FreeAndNil(Presupuesto).
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Out Of Memory | Cesargt | Varios | 10 | 21-10-2015 20:53:51 |
Out of memory | Firewind | Lazarus, FreePascal, Kylix, etc. | 3 | 20-07-2010 12:33:32 |
Out of memory | blaiselaborde | Varios | 10 | 26-01-2010 18:52:27 |
Out of Memory | luxus | OOP | 5 | 30-09-2008 23:11:54 |
error.. out of memory... | CarlosHernandez | Firebird e Interbase | 12 | 07-03-2007 14:03:22 |
|