Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-12-2017
Neeruu Neeruu is offline
Miembro
 
Registrado: oct 2007
Posts: 484
Poder: 17
Neeruu Va por buen camino
Cool Acces Violation al Crear Form

Hola a todos...

Les comento un problema que me trae un par de días dando vueltas y vueltas y no puedo solucionarlo.

Tengo un sistema grande, con cerca de 270 formularios y un modulo de datos con 130 querys aprox.
Utilizo para conectarme a Firebird 2.1, los tibobjects. (TIBOQuerys)
Utilizo delphi 2010.

Cuando creo un formulario, en el create del form instancio el modulo de datos (para cada formulario) y abro el query., Este Tiboquery, esta enlazado a los componetes por medio de un tdatasource.
En el evento StateChange del datasource llamo a una procedimiento que me pinta los componentes de color según el estado del dataset.
Código Delphi [-]
ComponentsColorDataSetStatus(DataSource1.DataSet.State,Form1);

El procedimiento es este:

Código Delphi [-]
Procedure ComponentsColorDataSetStatus(myState:TDataSetState; MyForm: TControl);
Var i:Integer;
myColor, myColorReadOnly:TColor;
  procedure ChangeColorComponent(myComponent:TComponent);
    begin
      if myComponent is TcxDBSpinEdit then
        begin
          if Not TcxDBSpinEdit(myComponent).Properties.ReadOnly then
            TcxDBSpinEdit(myComponent).Style.Color := myColor
          else TcxDBSpinEdit(myComponent).Style.Color := myColorReadOnly;
        end
      else
      if myComponent is TcxDBTextEdit then
        begin
          if Not TcxDBTextEdit(myComponent).Properties.ReadOnly then
            TcxDBTextEdit(myComponent).Style.Color := myColor
          else TcxDBTextEdit(myComponent).Style.Color := myColorReadOnly;
        end
      else
      if myComponent is TcxDBLookupComboBox then
        begin
          if Not TcxDBLookupComboBox(myComponent).Properties.ReadOnly then
            TcxDBLookupComboBox(myComponent).Style.Color := myColor
          else TcxDBLookupComboBox(myComponent).Style.Color := myColorReadOnly;
        end
      else
      if myComponent is TcxDBMemo then
        begin
          if Not TcxDBMemo(myComponent).Properties.ReadOnly then
            TcxDBMemo(myComponent).Style.Color := myColor
          else TcxDBMemo(myComponent).Style.Color := myColorReadOnly;
        end
      else
      if myComponent is TcxDBDateEdit then
        begin
          if Not TcxDBDateEdit(myComponent).Properties.ReadOnly then
            TcxDBDateEdit(myComponent).Style.Color := myColor
          else TcxDBDateEdit(myComponent).Style.Color := myColorReadOnly;
        end
      else
      if myComponent is TcxDBCurrencyEdit then
        begin
          if Not TcxDBCurrencyEdit(myComponent).Properties.ReadOnly then
            TcxDBCurrencyEdit(myComponent).Style.Color := myColor
          else TcxDBCurrencyEdit(myComponent).Style.Color := myColorReadOnly;
        end
      else
        if myComponent is TcxDBButtonEdit then
          if Not TcxDBButtonEdit(myComponent).Properties.ReadOnly then
            TcxDBButtonEdit(myComponent).Style.Color := myColor
          else TcxDBButtonEdit(myComponent).Style.Color := myColorReadOnly;
    end;
begin
  if (MyForm = nil) then Exit;

  Case myState of
    dsInactive: myColor := clGray;
    dsBrowse  : myColor := clWindow;
    dsEdit    : myColor := $00BFDFFF;//$00B7DBFF;
    dsInsert  : myColor := $00F0DBCE;//$00C5DEC9;
  end;

  myColorReadOnly := clSilver;

  if ((myState = dsInactive) or
     (myState = dsBrowse) or
     (myState = dsEdit) or
     (myState = dsInsert)) then
    begin
      if myForm is TForm then //--> Esta es la linea.
        begin
          for I := 0 to TForm(myForm).ComponentCount - 1 do
            begin
              ChangeColorComponent(TForm(myForm).Components[i]);
            end;
        end
      else
      if myForm is TFrame then
        begin
          for I := 0 to TFrame(myForm).ComponentCount - 1 do
            begin
              ChangeColorComponent(TFrame(myForm).Components[i]);
            end;
        end;
    end;

Repacemos el circuito:
Creo el Form1.
En el Create Hago el OPen del query que esta en el modulo de datos.
Al hacer el open se ejecuta el evento de StateChange del datasource.
Y en el evento llamo al procedimiento ComponentsColorDataSetStatus(DataSource1.DataSet.State,Form1);
Hasta aca todo espectacular anda en todos los formularios de mi proyecto sin ningun problema.

Resulta que agregue un nuevo form (Vamos a llamarlo Form1) al proyecto y lo configure como comento arriba.
Pero resulta que detecte que si abro el Form1, luego lo cierro, abro el FormularioX, cierro el FormularioX y vuelvo a Abrir el Form1 se produce un error en
la linea

Código Delphi [-]
 if myForm is TForm then

del procedimiento que cambia los colores.

Aclaro que el FormularioX es siempre el mismo formulario, por lo que en principio creí que podría haber alguna relación entre ambos.

Ustedes dirán que puede ser algo que quede mal en el FormularioX, lo cambie, desde cero, es mas, no puse ningún control, solo la apertura del query de FormularioX. Lo mismo con el Form1, desde cero, sin ningún componente, solo la apertura del query.

Llegue a pensar que podía ser un problema de la base de datos, primero cambie el query a otra tabla, cambie la base de datos.
Y el problema esta en el FormularioX con el Form1, en ningún otro lado tengo este problema siendo que trabajo de la misma forma para todos los formularios.

Lo único que me queda pensar es alguna restricción en la memoria, en la cantidad de objectos en el modulo de datos, en la cantidad de formularios en un proyecto.
La verdad no se donde esta el problema.

Necesito ideas para seguir buscando. Espero se les ocurra algo...

Saludos.
__________________
Saluda Atte Neeruu!!! :)
Responder Con Cita
  #2  
Antiguo 07-12-2017
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Poder: 23
maeyanes Va por buen camino
Hola...

Podría ser que la variable myForm esté haciendo referencia a una zona de memoria no usada o liberada anteriormente, esto es, el hacer Form1.Free, libera la memoria, pero no limpia la referencia a esa memoria. Esto sin saber exactamente cual es el mensaje de error y como haces para cerrar tus formularios.


Saludos...
__________________
Lee la Guía de Estilo antes que cualquier cosa. - Twitter
Responder Con Cita
  #3  
Antiguo 08-12-2017
Neeruu Neeruu is offline
Miembro
 
Registrado: oct 2007
Posts: 484
Poder: 17
Neeruu Va por buen camino
Hola Gracias por tu respuesta.

Para cerrar mis formularios lo hago con un close.
Y en el evente onclose del formulario tengo
Código Delphi [-]
Action := caFree;

Justamente el error se produce porque al procedimiento la Variable Form1 llega vació, pero no se porque pasa eso cuando abro el FormularioX, si no abro el FormularioX todo anda bien...
__________________
Saluda Atte Neeruu!!! :)
Responder Con Cita
  #4  
Antiguo 08-12-2017
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Poder: 23
maeyanes Va por buen camino
Hola...

Entonces hay algo en FormularioX que "ensucia" la variable Form1... tendrías que seguir paso a paso la ejecución de tu programa desde que se abre FormularioX hasta que mandas a llamar la función donde te marca la excepción para poder encontrar el problema...



Saludos...
__________________
Lee la Guía de Estilo antes que cualquier cosa. - Twitter
Responder Con Cita
  #5  
Antiguo 08-12-2017
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Estas usando variables globales para los formularios? Como creas los dos formularios que mencionas?
Responder Con Cita
  #6  
Antiguo 11-12-2017
Neeruu Neeruu is offline
Miembro
 
Registrado: oct 2007
Posts: 484
Poder: 17
Neeruu Va por buen camino
Hola, si utilizo las variables que se crean cuando se crea el formulario...

ejemplo: Form1:TForm1;

y para crearlos:

From1 := TForm1.create(Self);
__________________
Saluda Atte Neeruu!!! :)

Última edición por Neeruu fecha: 11-12-2017 a las 16:05:05.
Responder Con Cita
  #7  
Antiguo 12-12-2017
Neeruu Neeruu is offline
Miembro
 
Registrado: oct 2007
Posts: 484
Poder: 17
Neeruu Va por buen camino
Doy y doy vueltas y no puedo encontrar porque se me produce el error... y la verdad me tiene desconcertado...
__________________
Saluda Atte Neeruu!!! :)
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Acces Violation al crear un Form jpgonzalez OOP 7 24-05-2012 16:27:00
Acces Violation at address... franciscoca Varios 3 26-12-2010 02:59:28
acces violation en preview hecospina Impresión 2 03-12-2008 21:18:21
acces violation con TSimpleDataSet D7 fredo Varios 0 03-05-2006 21:21:08
Acces Violation eduarcol Impresión 10 23-01-2004 20:03:18


La franja horaria es GMT +2. Ahora son las 13:04:35.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi