O soy tonto o .... problema al liberar memoria

[[escafandra]]

Recuerda poner las etiquetas de código para poderlo leer cómodamente.

Respecto a tu problema, no estas liberando los objetos creados, sólo parte de ellos. Prueba de esta manera:

Código Delphi [-]
// liberar memoria
c.Free;
// No procede FreeAndNil(r);
LBitmap.Free;
LPngImage.Free;
LBytesStream.Free;
SetLength(LBuffer, 0);

Saludos.

[cesarsoftware]

Gracias por tu respuesta "escafandra"

Pero sigo igual

he probado a usar

Código Delphi [-]
 if Win32Platform = VER_PLATFORM_WIN32_NT then
    SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);

y nada, lo que parece que la memoria se llena la del sistema operativo no de la aplicación.
Quizas, si pudiera leer la pantalla de otra forma, por ejemplo leyendo los pixeles del canvas de la pantalla y pasandolos al bitmap no consuma ram, pero he probado

Código Delphi [-]
    for x := 1 to ScreenWidth do
      for y := 1 to ScreenHeight do
        LBitmap.Canvas.Pixels[x, y] := clLime;//c.Pixels[x, y];
//    LBitmap.Canvas.CopyRect(r, c, r);

y me sigue gastado toda la ram

Con esto llego a la conclusion de que no se libera la ram por parte del sistema operativo y es siempre que lleno el bitmap, osea se libera el bitmap pero el "buufer" intermedio no.
¿Como podria pasar la imagen directamente al stream?

Gracias.

[cesarsoftware]

Hola de nuevo.

Lo que he podido comprobar, es que donde "se queda" la memoria es en "errores de pagina" de la aplicación.
Esta es la vista inicial de la aplicacion "cpcomcontrol.exe"



y esta tras un medio minuto de ejecucion (manda la pantalla cada 500 ms mas o menos) ha gastado 130 mb de ram. Cuando salgo de la aplicacion se libera toda la ram.


¿Como puedo liberar los "errores de pagina"?

Gracias y perdonar por insistir pero si lo solucionamos pongo todo el codigo para que quien quiera pueda hacerse un pequeño (o grande) vnc o escritorio remoto.

[[escafandra]]

prueba a liberar así:

Código Delphi [-]
ReleaseDC(0, c.Handle);
c.Handle:= 0;
c.Free;
LBitmap.Free;
LPngImage.Free;
LBytesStream.Free;
SetLength(LBuffer, 0);

¿El Componente TPngImage es de terceros?, ¿no será esa la causa?. Prueba a mandar la imagen sin comprimir o en Jpg.

También puedes tener fugas en otro punto que no sea ese procedimiento.

Valora resolver esa tarea con la API de GDI plus.


Saludos.

[cesarsoftware]

Gracias escafandra por seguir el tema.

voy a probar como dices, pero me da que no.

El componente TPngImage es de delphi igual que el jpeg o bitmap, el problema como explicaba antes no es del formato de la imagen ni de mandarlo, es cuando lleno bitmap. Ya he probado en jpeg, sin comprimir, llenarlo y no mandarlo, etc.

Código Delphi [-]
interface
uses
  Classes, Windows, SysUtils, Graphics, PngImage,
  Funciones, UnitGlobal,
  IdContext, IdBaseComponent, IdComponent, IdCustomTCPServer, IdThread, IdSync,
  IdTCPServer, IdTCPClient;

¿Por que se queda en errores de pagina?
¿Se te ocurre como mandar el LBitmap.Canvas.CopyRect(r, c, r); directamente al stream sin pasar por el bitmap o png?
La verdad es que como mejor funciona es con png, si uso jpeg se "frie" (sin recursos) en un momento, no va bien en jpeg.

y por ultimo ¿que es el GDI plus?

[[escafandra]]

Empezado por cesarsoftware

El componente TPngImage es de delphi igual que el jpeg o bitmap...

Mi delphi 7 no tiene ese componente pero si he visto publicado código para él.

Empezado por cesarsoftware

¿Por que se queda en errores de pagina?

Sin probar no te puedo decir, es posible que exista un bug en algún sitio...

Empezado por cesarsoftware

¿Se te ocurre como mandar el LBitmap.Canvas.CopyRect(r, c, r); directamente al stream sin pasar por el bitmap o png?

Si, usando directamente la API GDI plus de ese modo no dependes de componentes y es mas eficiente.

Empezado por cesarsoftware

¿que es el GDI plus?

Es una extensión de GDI: GDI+


Saludos.

[delphi.com.ar]

Agregando a lo que dijeron anteriormente, hay un tema un poco oscuro en esta forma de tratar el manejo de errores al crear objetos:

Código Delphi [-]
...
  Obj1 := TClase.Create;
  Obj2 := TClase.Create;
  Obj3 := TClase.Create;
  Try
     {...}
  finally
    Obj1.Free;
    Obj2.Free;
    Obj3.Free;
  end;

Es algo muy fuera de lo común, pero imaginemos que estos constructores producen errores: si el constructor del primer objeto falla, este no se ha creado, suponemos que la clase gestiona bien la memoria y no es necesario liberarlo pues no se ha creado, pero si falla el segundo o el tercero, los objetos anteriores han sido creados y nunca se ejecutará el código donde liberamos la memoria de los mismos. Por eso tengo la costumbre, de que cada constructor tiene asociado un bloque de control de errores para poder liberar el espacio utilizado, ejemplo:

Código Delphi [-]
...
  Obj1 := TClase.Create;
  Try
    {...}
    Obj2 := TClase.Create;
    Try
      {...}
      Obj3 := TClase.Create;
      Try

        {...}

      finally
        Obj3.Free;
      end;
    finally
      Obj2.Free;
    end;
  finally
    Obj1.Free;
  end;

Saludos!