[SOLUCIONADO] Problema desbordamiento QReports al generar PDF (win10)

[adebonis]

Hola.

Estoy usando delphi 2007 y QuickReport 4.05.

La versión 6 de QuickReport solo está disponible a partir de Delphi XE2. ¿Alguien sabe si QuickReport 5 también falla en la exportación a pdf?

A ver si deberemos cambiar a Rave Reports...

Un saludo.
Adolfo de Bonis

[Casimiro Notevi]

Empezado por adebonis

A ver si deberemos cambiar a Rave Reports...

En teoría es problema de la actualización de w10, ya que son infinidad de problemas los que está generando a todo el mundo y con montones de programas distintos.

[HccSoft]

A mi me ocurre igual. Delphi 7 con QR y de golpe el software se cierra al intentar generar cualquier PDF.

[gguerrini]

Estamos haciendo de tod un poco para encontrarle la vuelta, otra que me di cuenta es que con la nueva actualizacion no me deja cambiar la impresora por defecto por codigo tradicional como siempre. Ya hice un programa que lo hace sobre windows 7 y funciona perfecto. Alguien tiene algun codigo que no sea cambiando el indice de la impresora ????
Dentro del mismo tema estube controlando los PDF que genera con error, comparando el mismo archivo hecho en windows 7, es como que los inicializa igual y al final no lo puede terminar de cerrar. Le pegue del archivo que genere en windows 7 y magicamente el PDF se puede leer correctamente. Que loco ???
Y otra es que los archivos no se pueden guardar en cualquier parte del disco, es como que ha modificado los permisos y la seguridad. Que locura. HELP !!!!!

[JuanPa]

Finalmente parece que encontramos la solucion al problema de exportar el reporte a pdf en windows 10. Vale indicar que el problema se produce por el tipo de letra que en el caso de mi reporte utilizaba "Arial" y lo he cambiado por otro tipo de letra y ha funcionado correctamente. Tambien hay que corregir la siguiente linea en el archivo QRPDFFilt.pas del QuickReport.

En esta sentencia ntabs:=cvtInt(Buff, 4); es donde se cae por lo cual hay que cambiarlo por lo siguiente:

Código Delphi [-]
if (FontName='Arial') then
  ntabs:=0
else
  ntabs:=cvtInt(Buff, 4);

Espero que puedan resolverlo con lo indicado.
Saludos.

[gguerrini]

Hola Buenos Dias, nos dejaste con la intriga por que fuente la cambiaste, porque antes no funcionaba otra font y decian que habia que ponerle ARIAL ???? Muchas Gracias. Saludos.

[JuanPa]

Yo lo cambie de "Arial" a "Courier New" que es el tipo de letra que en mi caso permite mantener centralizados los controles ya que imagino que con otro tipo de letra puede descuadrarse el reporte y tocara modificar el tamaño, la posiciónde los controles, etc.

[josepvila]

Empezado por JuanPa

Finalmente parece que encontramos la solucion al problema de exportar el reporte a pdf en windows 10. Vale indicar que el problema se produce por el tipo de letra que en el caso de mi reporte utilizaba "Arial" y lo he cambiado por otro tipo de letra y ha funcionado correctamente. Tambien hay que corregir la siguiente linea en el archivo QRPDFFilt.pas del QuickReport.

En esta sentencia ntabs:=cvtInt(Buff, 4); es donde se cae por lo cual hay que cambiarlo por lo siguiente:

Código Delphi [-]
if (FontName='Arial') then
  ntabs:=0
else
  ntabs:=cvtInt(Buff, 4);

Espero que puedan resolverlo con lo indicado.
Saludos.

Funciona perfecto, muchas gracias!!

[bazsar]

Empezado por JuanPa

Finalmente parece que encontramos la solucion al problema de exportar el reporte a pdf en windows 10. Vale indicar que el problema se produce por el tipo de letra que en el caso de mi reporte utilizaba "Arial" y lo he cambiado por otro tipo de letra y ha funcionado correctamente. Tambien hay que corregir la siguiente linea en el archivo QRPDFFilt.pas del QuickReport.

En esta sentencia ntabs:=cvtInt(Buff, 4); es donde se cae por lo cual hay que cambiarlo por lo siguiente:

Código Delphi [-]
if (FontName='Arial') then
  ntabs:=0
else
  ntabs:=cvtInt(Buff, 4);

Espero que puedan resolverlo con lo indicado.
Saludos.

This is not the correct solution. The problem is that the cvtInt and the cvtDWord functions don't get font data buffer as reference. Use this instead:

Código Delphi [-]
function cvtDWord(const Buf: array of byte; P: Integer): DWORD;

...

function cvtInt(const Buf: array of byte; P: Integer): Integer;

[juanelo]

Empezado por bazsar

This is not the correct solution. The problem is that the cvtInt and the cvtDWord functions don't get font data buffer as reference. Use this instead:
Código Delphi [-]function cvtDWord(const Buf: array of byte; P: Integer): DWORD; ... function cvtInt(const Buf: array of byte; P: Integer): Integer;

Esto funciona a la perfeccion y no hay que cambiar ningun font.
Muchas gracias !!

[Casimiro Notevi]

Empezado por bazsar

This is not the correct solution. The problem is that the cvtInt and the cvtDWord functions don't get font data buffer as reference. Use this instead:
Código Delphi [-]function cvtDWord(const Buf: array of byte; P: Integer): DWORD; ... function cvtInt(const Buf: array of byte; P: Integer): Integer;