CPU al 100%

[erickahr]

Sip antes que nada GRACIAS por responder tan pronto... mira mi aplicacion es un punto de venta comun y corriente, he corrido una version anterior de este y no me ha hecho lo mismo, pero el problema es que desde esa version he realizadovarios cambios... como son un modulo para toma de inventarios que consta aproximadamente de 4 formularios, y tengo un formulario con un richedit que nunca muestro ya que lo ocupo para la impresion de tickets en una impresora termica. efectivamente hay muchos procesos que dependen de la base de datos, Uso firebird 2.1 y cuantum grid, y varios componentes.... lo raro es que la mayoria de los formularios que agregue son heredados de los que ya existian y que no me daban este problema.

[Casimiro Noteví]

Creo que vas a tener que ir quitando un componente... y probando. Si va igual, entonces, quitas otro y pruebas... y así hasta que lo descubras.

Dos veces me ha pasado lo que comentas, una vez fue un simple componente que capturaba la tecla 'tab' y la convertía en 'intro', si quitaba el componente funcionaba perfecto el programa, pero si ponía el componente entonces la cpu al 100%... y eso que ese mismo componente lo usaba en otros programas.
La otra vez me pasó con un componente 'trayicon', de los que minimizan el programa dejando el icono junto al reloj. Tuve que buscarme otro que no me diera ese problema.

[erickahr]

Ok lo checo y te comento como va, salu2 y Gracias nuevamente.

[Neftali [Germán.Estévez]]

¿Tu programa tiene Timers o Threads? ¿Puede ser que se te esté quedando alguno acivo?

¿Algun bucle que realice operaciones periódicas en Base de datos?

[erickahr]

Pues te comento que en los formularios que he modificado, realizo varias operaciones con la BD, hago algunos JOIN con varias tablas, manejo una tabla temporal con un MemData, trabajo con firebird y según entiendo al hacer un commit se afectan los cambios en la base de datos y todo, no obstante tengo una pequeña funcion que se encarga de cerrar todos los componentes que tiene que ver con la BD, no se si es la mejor forma, pero aki lo pongo (ademas igual y le sirve a alguien mas).

Código Delphi [-]
procedure TfrTomaInv.CierraQueries;
var
  I: Integer;
begin
  for I:=0 to ComponentCount-1 do
    begin
    if (Components[i] is TIBTransaction) and (TIBTransaction(Components[i]).InTransaction) then
      TIBTransaction(Components[i]).Commit;
    if (Components[i] is TIBQuery) then
      TIBQuery(Components[i]).Close;
    if (Components[i] is TIBStoredProc) then
      TIBStoredProc(Components[i]).Close;
    if (Components[i] is TIBDataSet) then
      TIBDataSet(Components[i]).Close;
    if (Components[i] is TdxMemData) then
      TdxMemData(Components[i]).Close;
    end;
end;

La mayoria de mis formularios se crean al llamarlos ya que mi aplicacion es MDI, solo tengo un formulario con una grilla de detalle (que es llamado con doble clic desde una cuadricula que muestra la tabla maestro), y uno que nunca visualizo, lo utilizo para llenar un richedit, para imprimir un ticket (cosa con la que por cierto me ayudaste Neftalí ), y claro un modulo de datos que uso para la conexion.

Y GRACIAS por el interes en ayudar, a ver si con esto me encuentras algún fallo. Salu2

[Neftali [Germán.Estévez]]

Bueno, lo que dices puede o no tener errores (el código que has puesto no lo parece), lo que me intriga es que aunque los tuviera, el efecto que provocararía no es el que comentas.

De ahí que te comentara lo de los threads, timers o bucles, porque es lo que se me ocurre que podría provocar ese efecto.

[erickahr]

Yo estaba con la creencia de que era a partir de los cambios que te comentaba, pero la cuestion es que desde la mañana he estado haciendo pruebas con una version anterior y me he percatado que hace exactamente lo mismo, aun si solo lo abro y lo minimizo, despues de un rato se bota mi CPU, no tengo ni idea que sucede y es ahora mas complejo pq es no me limitaria a checar 6 o 7 forms, sino tengo que checar todo el sistema... a ver que sale.. alguna idea?