Out of Memory

[ecfisa]

Hola.

Te sugiero subir otras imágenes las actuales son muy pequeñas y no se puede apreciar el texto.

Por otro lado, el error quizá se produzca cuando muestras la imágen en el evento OnDrawColumCell, ya que cada vez que se ejecuta crea una instancia de la clase TMemoryStream ( Stream ) y no la estas liberando.

Intenta de este modo:

Código Delphi [-]
procedure TPresupuestoDatoForm.ListaDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  ...
    if ( Column.FieldName = 'Imagen' ) then
    begin
      Stream := TMemoryStream.Create;
      try
        TGraphicField(Dm.DetalleADOQuery.FieldByName('Imagen')).SaveToStream(Stream);
        ...
        ...
      finally
        Stream.Free;
      end;
    end;
  ...
end;

Saludos

[javicho_villa]

Muchas gracias por la pronta respuesta. libere esos objetos y mejoró

Código Delphi [-]
procedure TPresupuestoDatoForm.ListaDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var wic: TWICImage;
    Stream:TMemoryStream;
    DrawState: Integer;
    DrawRect: TRect;
begin
  if Dm.DetalleADOQuery.RecordCount>0 then
    if ( Column.FieldName = 'Imagen' ) then
      begin
        Stream := TMemoryStream.Create;
        TGraphicField(Dm.DetalleADOQuery.FieldByName('Imagen')).SaveToStream(Stream);
        Stream.Position := 0;
        wic := TWICImage.Create;
        wic.LoadFromStream(Stream);
        with TPicture.Create do
        try
          //Assign( Column.Field );
          Assign(wic);
          //Lista.Canvas.StretchDraw( Rect, BitMap );
          Lista.Canvas.StretchDraw(Rect, wic);
        finally
          wic.free;
          Stream.free;
          Free;
          ////DrawRect.free;
        end;
      end;
end;

aun sale el out of memory, te paso la imagen del nuevo mensaje.

https://www.clubdelphi.com/foros/att...1&d=1559596362

Muchas gracias por el apoyo.

[javicho_villa]

Alguien de generoso corazón que me pueda ayudar con este mensaje que no puedo dar con la solución por favor.
de antemano muchas gracias por la atención.

[Casimiro Noteví]

¿En qué línea ocurre?

[[gatosoft]]

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)

[javicho_villa]

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

Código Delphi [-]

iPresupuesto := TPresupuesto.create;
....
....
MiListaPresupuesto.add(iPresupuesto);
....
....
iPresupuesto := TPresupuesto.create;
iPresupuesto.Free;

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.

[javicho_villa]

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.