Access Violation onClose

[natalinuyo]

Hola a todos,

Entrando directo al tema, mi problema es el siguiente:

El programa es un checador con huella digital. Cuando la aplicación no recibe ninguna huella y le doy en el boton Cerrar, no hay problema, cierra todo el programa...

Sin embargo, cuando le ingreso al menos una huella digital y le doy en el botón Cerrar... según esto si se cierra, pero antes de terminar me manda un Access Violation...

He intentado de todo, en el evento onClose del formulario el tan famoso Action := caFree (pero este me ejecuta de nuevo un timer que tengo en el form y como ya no existe marca el error 1400), he usado el Release, incluso directamente el Application.Terminate y nada.

He buscado en internet, pero como ya expliqué He Intentado Todo!!! y sigo en las mismas... Bueno, tal vez no todo.. por eso acudo a ustedes para ver si me pueden ayudar un poco en esto.

De antemano, muchas gracias por tomarse la molestia de leer mi caso y ayudarme.

[[Delphius]]

Hola natalinuyo,
Para poder ayudarte mejor necesitaríamos ver el código que se ejecuta.
¿Por casualidad estás intentando acceder a un objeto que fue liberado? Por lo general eso es la causa de un Access Violation.

Pero sin conocer mejor tu caso no te sabríamos decir que de modo ayudarte. Deberás explicar y detallar mejor tu caso.

Saludos,

[natalinuyo]

Este es el codigo del boton cerrar:

Código Delphi [-]
procedure TFMainForm.Button2Click(Sender: TObject);
begin
     // finalize GrFinger
     FinalizeGrFinger();
     Close;
end;

Este es el codigo del metodo FinalizeGrFinger() que está en la librería uUtil.pas

Código Delphi [-]
procedure FinalizeGrFinger();
begin
   // finalize library
   GrFinalize();
   GrCapFinalize();
   // Closing database
   DB.closeDB();
   DB.Free();
   // Freeing resources
   template.Free();
   FreeMemory(raw.img);
   raw.img := nil;
end;

Adicionalmente tengo el procedimiento OnCloseQuery en el MainForm

Código Delphi [-]
procedure TFMainForm.FormCloseQuery(Sender: TObject; var CanClose:Boolean);
begin
  Release;
end;

Pues yo creo que básicamente es esto... es lo que hago cuando quiero cerrar mi form.

[natalinuyo]

Por cierto... Si pongo en el procedimiento OnClose del MainForm:

Código Delphi [-]
procedure TFMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action := caFree;
end;

Me ejecuta nuevamente un objeto Timer1 que tengo en el MainForm.
Y obviamente como "ya no existe", marca el error 1400.

Saludos.

[luisgutierrezb]

Creo que ya pusiste donde esta el error, no puedes darle a la forma un Release en el closequery

[natalinuyo]

El codigo que puse es de una de las tantas pruebas que he hecho... pero ninguna funciona... como indico, he intentado todo...

Si no es Access violation, es Error 1400...