EAccessViolation

[marcoszorrilla]

Si los formularios ya contienen:
Action:=CaFree;

Al cerrarse estos se destruyen por lo tanto si luego llamas desde otro formulario al método Destroy de alguno de los que acabas de cerrar te darán error porque esos formularios ya no existen......?

Un Saludo.

[roman]

Una sugerencia:

Si el debugger se detiene en la línea del end final es, como ya han indicado, porque la excepción se produce en el código de finalización de alguna unidad y el haberse detenido ahí y no en el código mencionado es porque no tienes acceso a los archivos fuente en dode se produce el error. Si el error se está produciendo en alguna unidad de la VCL (cosa que no sabemos) entonces asegúrate de marcar la opción "Use debug DCUs" en Project|Options|Compiler.

Si resulta que el error sí se está generando en la VCL entonces el debugger se parará ahora en la línea exacta del código de la unidad en donde realmente se genera la excepción.

Esto por sí sólo no sirve de mucho ya que el error aunque aparezca en una unidad de la VCL, dificilmente estará causado por código ahí. Pero a partir de ese momento puedes usar la opción View|Debug Windows CallStack para ver el curso de llamadas a procedimientos que se han seguido hasta que se genera la excepción y comenzar a poner puntos de ruptura en dichos lugares.

// Saludos

[Ester]

En realidad en todo el proyecto no tengo ningun destroy, pero es que ya no se me ocurre nada mas para probar y el error me sale de todos modos, con destroy o sin ellos.

También hé probado de marcar la opción "Use debug DCUs" pero se sigue parando en el end. no veo ningun otro codigo.

Solo puedo hacer una observacion: des del inicio del proyecto este error me havia salido contadas veces y siempre lo solucionava jugando con el objeto TSession que esta definido en 'frdadesglobals'. Si cambiaba alguna propiedad de ese objecto (como el private dir), compilaba, la volvia a dejar como al principio y volvia a compilar siempre me funcionaba y desaparecia el error. Pero ahora aunque lo haga diez veces no se soluciona. Podria ser que el error viniese de ese objeto, que tenga mal definida alguna propiedad??? O quizás era solo casualidad...

Por si acaso, las propiedades están de la siguiente manera:

False
False
False
Session1
C:\
D:\FONTSDELPHI
SSMain
True
0


Muchas grácias,

Ester

[roman]

Detállanos un poco más el proceso mínimo para generar el error. Esto es, mencionas que aun abriendo el formulario del Login y cerrándolo sin hacer nada te causa el error. Pero también mencionas cinco o seis formularios creados desde el Login. Detalla en qué momentos se crean y/o destruyen estos formularios. Estos formularios ¿también tienen componentes de bases de datos? ¿Hay eventos asociados a dichos controles (inlcuidos los del Login) que de alguna forma manipulen los datasets?

Digo esto porque me ha pasado que, por ejemplo, en un control DBEdit hay un evento OnChange en el que se modifica alguna propiedad de un dataset. Estos eventos pueden producirse en momentos inesperados, quizá al cerrarse el formulario, y el problema es que para cuando se produce tal evento ya se han cerrado las bases o mejor dicho destruido el datamodule y de ahí el Access Violation.

En fin, la idea es minimizar las acciones que se hacen para poder reproducir el error. Por ejemplo, no crear algunos de los formularios desde el login y ver si al hacr ersto desaparece la excepción. Si en alguno desaparece sabrá entonces con mayor exactitud por donde va el problema.

// Saludos

[Ester]

Ok, os detallo los pasos que sigue el programa antes de dar el error:

begin

Application.Initialize;

Application.Title := 'Top Cable';

Application.CreateForm(Tfrdadesglobals, frdadesglobals);
[este es un modulo de datos y solo hay declararciones de variables]

Application.CreateForm(Tfrlogin, frlogin);
[cbidioma.ItemIndex:=0;
frdadesglobals.bd.connected:=False;
if frdadesglobals.Session1.Active then
frdadesglobals.Session1.Active:=False;]

Application.Run;
[wuserterminal:=frmrutines1.Recupera_usuario();]
(la funcion recupera_usuario devuelve el username de windows con un windows.getusername)

Aqui le doy al boton de cancelar que me hace un close del formulario:

procedure Tfrlogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin

qrusua.Close;
qrvalidaciones.Close;
qrusua1.Close;

frdadesglobals.bd.Close;
frdadesglobals.bd.Connected:=False;
frdadesglobals.Session1.Active:=false;
if frdadesglobals.wglbdirbloq <> '' then
if directoryexists(frdadesglobals.wglbdirbloq) then
if not removedir(frdadesglobals.wglbdirbloq) then
raise Exception.Create('No se ha podido eliminar el directorio de bloqueo: ' + frdadesglobals.wglbdirbloq);

action:=cafree;

end;

Y después ya viene el End. de la applicacion que es donde me da el error.


Ester

[jachguate]

Hola Ester.

Creo que el punto donde puede estar dando el problema es demasiado confuso por ahora. El hecho que ocurra en el End. implica, como ya se ha dicho antes, que el error seguramente ocurra durante el proceso de finalización de las unidades.

Dado que el proyecto es grande, es dificil, con solo eso, y con ver unas cuantas lineas de código, ayudarte. El hecho que el error ocurriera desde el inicio del proyecto implica que hay algo mal hecho desde el principio, y que al no atenderse, solo se ha vuelto confuso con todo el proyecto montado.

Ya que aparentemente es imposible detectar en que línea se produce el error (cosa que no me parece posible) lo que yo haria en tu lugar, es hacer una copia del proyecto en su estado actual, y comenzar por quitarle todos los formularios, excepto el formulario de login y el módulo de datos.

A partir de alli, y probando detenidamente cada paso, comenzaria a integrar los formularios, hasta reproducir el error. Una vez el error esté ocurriendo, revisar detenidamente las operaciones de ese formulario. Principalmente si destruye algún objeto que luego otra parte de la aplicación, o la misma VCL espera que exista. Lo que te digo es que es seguro que el error no se elevará desde ese formulario, pero que el error proviene de una operación realizada alli.

Es probable también que no se trate de la destrucción de un objeto, pero que se trate de una asignación a un objeto que posteriormente es destruido, o que se trate de forma descuidada un puntero, y que este quede apuntando a donde nunca ha habido nada.

Es largo, complicado y tedioso... pero a la larga vas a perder mas tiempo tratando de simplemente adivinar donde está el problema, y si queres encontrar y deshacerte del error, es un método que te llevará a buen puerto.

Comento por último, que nunca he visto a un TSession generar una excepción como esta. Claro, me cuido siempre de no destruir nada que yo no haya creado, y quizas por alli vayan los tiros.

Hasta luego.

[[Lepe]]

Había un Link en los foros para mostrar excepciones con la línea exacta donde se producía, haciendo un parser del archivo .map que crea delphi al hacer un Build. ¿Alguien encuentra ese link?

Si dá el error en la VCL, quizás no le sirva de algo, pero mejor probarlo antes de meterse de lleno en modificar todo el programa.

Saludos

[Ester]

Hola de nuevo,

segui el consejo de quitar todos los formularios y los fui añadiendo poco a poco para saber cual era el que daba el error. Al final descubri que son dos y el problema está en el orden que los pongo en el uses del proyecto. Si los dos los declaro al principio me da el error al salir, si los declaro los ultimos no da el error. Os pongo un trozo de código para que lo veais mejor:

Program Gestion;
uses
...
frmgestprov in 'frmgestprov.pas' {frgestprov},
frmgestprve in 'frmgestprve.pas' {frgestprve},
frmgestrecepenvgrupo in 'frmgestrecepenvgrupo.pas' {frgestrecepenvgrupo},
frmconsalb6 in 'frmconsalb6.pas' {frconsalb6},
frmgestrecepenvgruposga in 'frmgestrecepenvgruposga.pas' {frgestrecepenvgruposga},
frmconscorrespalb in 'frmconscorrespalb.pas' {frconscorrespalb};
frmgestrepr in 'frmgestrepr.pas' {frgestrepr},
frmgestreservasbobi in 'frmgestreservasbobi.pas' {frgestreservasbobi},
...
--> en este orden me daria el error


Program Gestion;
uses
...
frmgestprov in 'frmgestprov.pas' {frgestprov},
frmgestprve in 'frmgestprve.pas' {frgestprve},
frmgestrecepenvgrupo in 'frmgestrecepenvgrupo.pas' {frgestrecepenvgrupo},
frmgestrecepenvgruposga in 'frmgestrecepenvgruposga.pas' {frgestrecepenvgruposga},
frmconsalb6 in 'frmconsalb6.pas' {frconsalb6},
frmgestrepr in 'frmgestrepr.pas' {frgestrepr},
frmconscorrespalb in 'frmconscorrespalb.pas' {frconscorrespalb};
frmgestreservasbobi in 'frmgestreservasbobi.pas' {frgestreservasbobi},
...
--> en cambio asi no me da el error (solo he canviado el orden de los dos formularios conflictivos)

Hé estado repasando estos cinco o seis formularios y en principio no tienen ningún tipo de relación entre ellos, pero es muy raro supongo que se me escapa algo.

De momento voy a dejarlo asi, pero seguiré investigando ya que no me parece una solucion muy limpia.

Muchas grácias a todos/as.

Ester