Problemas con informe Qreport

[hecospina]

Hola
Yo he tenido problemas para imprimir en impresoras HP multifuncionales, me sale un error parecido, mira si cambiando de impresora predeterminada te funciona, puedes intalar LX300

tambien puedes ampliar el manejo de memoria desde le bde admin desde la pestaña Configuration-System-INIT

alli yo configuro de la siguiente forma
LOW MEMORY USAGE LIMIT 64
MAXBUFSIZE 4096
MEMSIZE 32
MINBUFSIZE 128
SHAREDMEMLOCATION 5BDE
SHAREDMEMSIZE 4096

Prueba y nos cuentas

[[coso]]

hola, es probable que te falte alguna .dll que si este instalada donde esta delphi. saludos.

[[Lepe]]

El problema es viejo y conocido.

La variable de entorno temp en winXP excede de 32 caracteres, y ahí está el problema. Cuando quickReports necesita crear archivos temporales para mostrar un informe grande, solo maneja rutas de menos de 32 caracteres.

Edito: Creo que QR 4 ya corrige ese fallo. Al menos el QR que viene con delphi 6 sí está afectado, por ende, delphi 5 también.

Al inicio de tu aplicación, llama esta rutina que cambiará la variable de entorno TEMP y TMP para tu programa nada más.

Código Delphi [-]
procedure SetEnviroment();
begin
  ForceDirectories(AssertBackSlash(GetWinDir)+ 'TEMP\temp');
  if not SetEnvironmentVariable(PChar('TEMP'), PChar(AssertBackSlash(GetWinDir)+ 'TEMP\temp')) then
    Raise Exception.Create('No se ha podido crear el directorio temporal (TEMP) para los informes');

  ForceDirectories(AssertBackSlash(GetWinDir)+ 'TEMP\tmp');
  if not SetEnvironmentVariable(PChar('TMP'), PChar(AssertBackSlash(GetWinDir)+ 'TEMP\tmp')) then
    Raise Exception.Create('No se ha podido crear el directorio temporal (TMP) para los informes');

end;

Necesitas adaptarla:
AssertBackSlash pone la última barra en una carpeta, delphi tiene una rutina parecida.

GetWinDir es una función que devuelve la ruta de instalación de windows.

[eddvedder]

hola gracias por la ayuda
probé lo de la configuración del bde y creo que solucionó el problema del acceso a memoria, lo que si se me olvidó mencionar ES que no tengo acceso al código fuente del sistema por lo que no puedo hacer cambios. Lo que s,i es que ahora necesito compactar las bases de datos (manualmente por lo de no contar con el CF) ¿cómo lo puedo hacer? borrar los indices (como se haría esto?), alguien me podría decir alguna forma (no mediante codigo) de que las consultas sean optimizadas, por cierto no se la versión de QR, pero es el Delphi 5.
De antemano muuuuuchas gracias
Saionara

[[Lepe]]

para quitar ese error, vete a panel de control -> sistema -> opciones avanzadas -> variables de entorno

Tanto la que se llama TEMP como TMP cambiale su valor a una ruta con menos de 32 caracteres, por ejemplo:

TEMP = C:\WINDOWS\TEMP
TMP = C:\WINDOWS\TMP

Saludos

[hecospina]

Hola
No se que quieres decir con compactar la base de datos
Pero lo de los indices puedes repararlos con una herramienta llamada DTUtil32, creo que se instala con delphi, con esta herramienta se verifican en la tablas los datos y los indices

[[Lepe]]

Haz copia de seguridad antes de tocar la base de datos, en algunos casos me la ha corrompido.

Tambien trae opcion para compactar (borrar físicamente los registros marcados como borrados y liberar ese espacio de las tablas).

Saludos