Ver Mensaje Individual
  #31  
Antiguo 12-06-2018
ginobili20 ginobili20 is offline
Miembro
 
Registrado: abr 2010
Posts: 11
Reputación: 0
ginobili20 Va por buen camino
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]);
Responder Con Cita