Errores en ejecución al reinstalar Windows

[Sapiem]

Hola

Tengo un serio problema que no le he encontrado solución después de 1 semana de búsqueda.

Resulta que tengo una aplicación de hace más de 5 años de creada con Delphi 2006 sobre Windows 7. Esta aplicación la estoy en constante desarrollo y siempre ha funcionado ok.

Luego instalé Windows 8.1 y seguí su desarrollo con Delphi 2006 sin problemas. Luego migré a Windows 10 y, con algunos problemas de instalación, seguí con Delphi 2006 sin problemas.

Ahora decidí crear 2 particiones en mi PC, una con Windows 7 con Delphi 2006 para dedicarla solo a la programación, junto a Android Studio, y otra con Windows 10 para trabajo normal.

Para mi sorpresa todo es una locura en el código ya existtente. Por ejemplo :

La función FileExits devuelve true cuando un archivo no existe. Sin embargo ese mismo bloque de código lo pego un una aplicación nueva y funciona correctamente.

Los Streams me dan errores, códigos que funcionan sin problemas desde hace años.

Es como si lo que está escrito en el programa original está mal y cuando se pasa a una aplicación nueva, funciona ok.

Es una locura y no he podido hacer más nada en el código.

Agradecería mucho una ayuda

Un abrazo

[[escafandra]]

Probáblemente tu proyecto original esté importando mal la API de Windows. Es extraño, yo trabajo con Win10 y los proyectos funcionan bien si los continúo en en otros PCs con WinXP o Win7.

Prueba a crear un proyecto nuevo y sobre él cambias el formulario principal por el de tu vieja App y luego añades todas las Units que tenga.


Saludos.

[Sapiem]

Empezado por escafandra

Probáblemente tu proyecto original esté importando mal la API de Windows. Es extraño, yo trabajo con Win10 y los proyectos funcionan bien si los continúo en en otros PCs con WinXP o Win7.

Prueba a crear un proyecto nuevo y sobre él cambias el formulario principal por el de tu vieja App y luego añades todas las Units que tenga.


Saludos.

Ok, son muchas las units, pero intentaré hacerlo, no queda otra. Realmente no se qué pueda estar pasando.

Gracias

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

Empezado por Sapiem

La función FileExits devuelve true cuando un archivo no existe. Sin embargo ese mismo bloque de código lo pego un una aplicación nueva y funciona correctamente.

Realmente esto es bastante extraño...

[Casimiro Notevi]

A ver el código...

[Sapiem]

Empezado por Casimiro Notevi

A ver el código...

Esta es la parte del FileExists:

Código Delphi [-]
  if not FileExists('sqlite3.dll') then
    if not CrearDLL('xSQLite3') then
      begin
        ShowMessage('Imposible crear archivos necesarios para el correcto funcionamiento del sistema');
        Halt;
      end;

Esta es otra parte de Streams:

Código Delphi [-]

function CrearDLL(const aResourceName: String): boolean;
   var
      ms: TMemoryStream;
      rs: TResourceStream;
   begin
      ms := TMemoryStream.Create;
      try
         rs := TResourceStream.Create(HInstance, aResourceName, RT_RCDATA);
         try
           ms.CopyFrom(rs, 0);
           ms.Position := 0;
           ms.SaveToFile('sqlite3.dll');
           Result := True;
         finally
           rs.Free;
         end;
      finally
        ms.Free;
      end;
   end;

Como verán, trato de verificar que sqlite3.dll existe en la carpeta de la app, de lo contrario, la creo a partir de un resource. Todo esto funciona perfecto desde hace años, excepto después de la reinstalación del Windows y por supuesto del Delphi 2006. Aunque le ponga la dirección completa a la verificación del sqlite3.dll, sigue dando que existe y realmente no existe pues yo la elimino manualmente.

Gracias por toda ayuda....

[ecfisa]

Hola Sapien.

Por favor, cuando incluyas código, usa las etiquetas de este modo para darle mas legibilidad :




Saludos

[Sapiem]

Desinstalé el Zeoslib 7.1.4 y puse la anterior 7.0.0 y al menos funciona ok, pero pasa a paso en debug no funciona el FileExists y sin embargo si funciona ejecutandose completo. Es algún problema del IDE.

Sigo sin entender..

[[escafandra]]

Comprueba la ruta donde guardas y donde debería estar sqlite3.dll. Puede no coincidir el path en ejecución con el path desde el debugger.

Saludos.