Error al dar click en formulario

[jafera]

Buenas a todos.

Esta semana he instalado por fin el DXE5 con todos los complementos que uso habitualmente Jv, Quickreport y QRDesign, etc.

He convertido un proyecto al nuevo sistema y despues de algunos ajustes, compila y rueda perfectamente, pero al momento de dar click en cualquier botón del programa, me sale el erros que os muestro en la imagen.

Alguien ha topado con algo parecido.

Saludos

Josep

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

Hola.
Tal vez tendrías que poner el código que se está ejecutando...
¿Se está ejecutando algún código?

[jafera]

Gracias por la respuesta.

El problema es que no se en que punto se produce el error ya que me pasa muchas veces.

Explico un poco el proceso:
He instalado XE5 y sus componentes anexos, luego he abierto un proyecto relativamente pequeño de D6 en el XE5, al compilarlo CNPack da estos errores:

Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.498
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.511
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.499
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.500
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.518
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.499
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.509
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.508
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.499
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.502

pero compila y rula.

Entro en la aplicacion usuario pasword y veo el form principal, luego le doy click a cualquier boton del menu y me salta el error de la imagen del primer mensaje, incluso este error de borrado aparece como 3 o 4 veces. Tambien me aparece el error en el momento de dar click al boton de cierre.

He puesto punto de interrupcion en el create, en el show, en el close, en el detroy y el mensaje con el error aparece siempre y no entro en el modo debug para ver si peta en alguna linea.

No se que código puedo aportar para ver algo de luz

Saludos

Josep

[jafera]

A ver si el error puede venir por este código en el close del botón, es lo único que se me ocurre:

Código Delphi [-]
procedure TF_Inici.ToolButton8Click(Sender: TObject);
var FileInfo: TShFileOpStruct;
begin
        if MDIChildCOUNT > 0 then
        begin
                ShowMessage('Hi han finestres obertes, tanca-les totes abans de sortir');
                Abort;
        end
        else
        begin
                FileInfo.Wnd := Handle;
                FileInfo.wFunc := FO_DELETE;
                FileInfo.pFrom := 'C:\Gestio_Arbitral_1.0\Temp\*.jpg';
                FileInfo.pTo := nil;
                FileInfo.fFlags := FOF_NOCONFIRMATION;
                ShFileOperation(FileInfo);

                FileInfo.Wnd := Handle;
                FileInfo.wFunc := FO_DELETE;
                FileInfo.pFrom := 'C:\Gestio_Arbitral_1.0\Temp\*.pdf';
                FileInfo.pTo := nil;
                FileInfo.fFlags := FOF_NOCONFIRMATION;
                ShFileOperation(FileInfo);

                Close;
        end;
end;

Saludos

Josep

[jafera]

Después de probarlo, el error está en el código anterior, no se si falta alguna unit o debo actualizar alguna linea a la nueva versión.

Si alguien tiene alguna idea pues será bien recibida.

Saludos

Josep

[jafera]

Solucionado

Buscando, buscando he adoptado este código:

Código Delphi [-]
procedure TF_Inici.ToolButton8Click(Sender: TObject);
var SearchRec: TSearchRec;
begin
        if MDIChildCOUNT > 0 then
        begin
                ShowMessage('Hi han finestres obertes, tanca-les totes abans de sortir');
                Abort;
        end
        else
        begin
                if FindFirst('C:\Gestio_Arbitral_1.0\Temp\*.*', faAnyFile, SearchRec) = 0 then
                repeat
                    Deletefile('C:\Gestio_Arbitral_1.0\Temp\'+SearchRec.name);
                until (FindNext(SearchRec) <> 0);
                FindClose(SearchRec);

                Close;
        end;
end;

Gracias a todos

Josep