FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
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. |
#2
|
||||
|
||||
prueba a liberar así:
¿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. |
#3
|
||||
|
||||
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.
¿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? |
#4
|
||||
|
||||
Mi delphi 7 no tiene ese componente pero si he visto publicado código para él.
Sin probar no te puedo decir, es posible que exista un bug en algún sitio... Cita:
Es una extensión de GDI: GDI+ Saludos. |
#5
|
||||
|
||||
Agregando a lo que dijeron anteriormente, hay un tema un poco oscuro en esta forma de tratar el manejo de errores al crear objetos:
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:
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#6
|
||||
|
||||
Solucionado
SOLUCIONADO.
A ver, por partes. La solucion, aunque me humille a mi mismo, es que digamoslo asi, no sabia usar el objeto tbitmap. Buscando en la unidad graphics, me encuentro el siguiente codigo.
Ya habia probrado BitBlt (hermana de stretchblt) y viendo el fuente de brushcopy
Me encuetro con las funciones LOCK Y UNLOCK del tbitmap. Hummm ..... pruebo y ... BINGO. YA NO CONSUME RAM. Como sigue incrementando el numero de errores de pagina, leo y leo y resulta que solo es un contador de cuantas veces el sistema a tirado de disco (aunque no me lo creo) cuando falla la busqueda en ram, osea, una cosa rara del S.O. pero que no afecta a la aplicacion (o eso parece de momento) El codigo ha quedado asi.
y en la parte del cliente (o visualizador de la pantalla) El evento onexecute del idtcpserver
Y el "pintador" (he aprovechado a ponerle lock y unlock al tpngimage tambien que seguro que daño no le hace)
delphi.com.ar, tal y como esta el codigo, los objetos son creados previamente, (como falle la creacion de objetos mal vamos o muy mal este ese PC) pero si falla cualquiera de las operaciones (que fallan cuando se queda sin ram) los objetos son liberados si o si. Con tu ejemplo, que se agradece por supuesto) los objetos solo se crean consecutivamente si todo va bien si no se liberan igual que con mi codigo. En cuanto a los errores de pagina, mirar esta imagen (es windows 7 pro 64) vereis que firefox (de terceros) y sidebar (propio de windows) tienen muchos errores de pagina, millones de errores, incluso el propio Delphi. Tengo que probrar esas GDIplus. Por cierto escafandra uso Delphi 10 Última edición por cesarsoftware fecha: 01-02-2012 a las 18:18:12. |
#7
|
||||
|
||||
He preparado un ejemplo con GDI+ API Flat que va a funcionar en versiones antiguas de delphi como la 6 y 7. Simplemente enviamos a bajo nivel un bloque de memoria contenido en un istream por un soket:
Saludos. Última edición por escafandra fecha: 07-02-2012 a las 12:28:31. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
liberar memoria | Celta | Varios | 5 | 12-12-2010 18:07:17 |
Liberar memoria | Sick boy | Varios | 6 | 02-07-2005 10:11:29 |
problema tonto | gatsu | PHP | 2 | 25-04-2005 21:41:21 |
Liberar Memoria | JoseQ | Varios | 6 | 16-07-2004 18:49:21 |
Liberar Memoria | JODELSA | Varios | 4 | 13-05-2003 17:39:05 |
|