Error al dar click en formulario

[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

[jafera]

Mi gozo en un pozo.

En un principio funcionaba bien y ahora me da un error de incompatibilidad:

[dcc32 Error] Curses.pas(725): E2010 Incompatible types: 'PWideChar' and 'string'
[dcc32 Error] Curses.pas(727): E2010 Incompatible types: 'NativeUInt' and 'TSearchRec'
[dcc32 Fatal Error] F2063 Could not compile used unit 'Curses.pas'

Me parece a mi que la migración va a ser más dura de lo que pensaba.

Por cierto me sigue lanzando el access violation....

Saludos

Josep

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

¿Porqué no ejecutas el código inicial paso a paso y ves en qué línea te está dando el error?
Coloca un Breakpoint al inicio del procedimiento y ejecuta hasta que llegue ahí.

[jafera]

Gracias Neftalí.

El breakpoint ya lo puse tal y como comenté en un post anterior.

Lo que me da es un error al compilar el la linea del DeleteFile que es donde dice lo de los tipos no compatibles

E2010 Incompatible types: 'PWideChar' and 'string'

Y así no me deja continuar, comento el trocito de codigo y funciona perfectamente.

Lo mas raro es que en el form principal tengo el mismo codigo en el boton de cerrar (copiar/pegar) y no da error de compilación.
He mirado todos los use, units y no hay ninguno que falte.
Ya no se que más mirar.
El problema del rtl190.bpl, puede venir por un script de CNPack para guardar la fecha y hora de compilacion y guardarlo en una variable para presentarlo en el formulario acerca de.

Gracias y saludos