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

[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 !!

[gguerrini]

Muchas Gracias!!!! Funciona Perfecto !!!!!!!!!!

[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;

[ginobili20]

En QRPDFFilt.pas reemplazar las llamadas a las funciones cvtInt y cvtDword

x := cvtInt(Buff, y);

se convierte en estas dos lineas:

P := y;
x := (256*byte(Buff[P]))+(byte(Buff[P+1]));

Y

x := cvtDword(Buff, y); becomes

P := y;
x :=(256*256*256*byte(Buff[P]))+(256*256*byte(Buff[P+1]))+(256*byte(Buff[P+2]))+byte(Buff[P+3]);

Funciona perfecto...

[Casimiro Notevi]

No olvides poner las etiquetas para el código:

[ginobili20]

In QRPDFFilt.pas replace calls to functions cvtInt and cvtDword with inline code

Código Delphi [-]
x := cvtInt(Buff, y);

becomes 2 lines

Código Delphi [-]
P := y;
x := (256*byte(Buff[P]))+(byte(Buff[P+1]));

and

Código Delphi [-]

x := cvtDword(Buff, y);

se convierte en

Código Delphi [-]
P := y;
x :=(256*256*256*byte(Buff[P]))+(256*256*byte(Buff[P+1]))+(256*byte(Buff[P+2]))+byte(Buff[P+3]);

[REPUSOFT]

Hola Ginobili20 y gracias por tu respuesta, la cual me ha ayudado mucho para encontrar la verdadera causa del problema.
Aunque el código que das aparentemente funciona no es la solución correcta porque el desbordamiento del buffer
se produce ya cuando vuelves de SetLength(). Tu código funciona porque pones el cuerpo de las funciones 'inline'
y por tanto no hace falta utilizar el stack para pasar el buffer desbordado a las funciones pero el
desbordamiento ya está latente.
Saludos y gracias de nuevo a tí y a todos los miembros del foro

[REPUSOFT]

El título del mensaje debería decir "Solución al problema de de desbordamiento de QReports al general PDF´s" Perdonad!