Cuestión : La liberación de la imagen del png, no puede compilar con D2010

Intenté compilar la liberación de la imagen del png con delphi 2010 de http://pngdelphi.sourceforge.net.
Las paradas del recopilador, debido a no pueden asignar un valor al error del lado izquierdo en esta línea:

      Octeto (Dest^): = fOwner.GammaTable [pByte (Longint (Src) + 2)^]; inc. (Dest);

compilar esa liberación y el funcionamiento con D7 no ha sido ningún problema 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedimiento TChunkIDAT.CopyInterlacedRGB8 (paso del const: Octeto;
  Src, Dest, transporte {$IFDEF Store16bits}, adicional {$ENDIF}: pChar);
var
  Columna: Número entero;
comenzar
  {Conseguir la primera columna y entrar en lazo}
  Columna: = ColumnStart [paso];
  Dest: = pChar (Longint (Dest) + columna * 3);
  repetición
    {Copiar esta fila}
    Octeto (Dest^): = fOwner.GammaTable [pByte (Longint (Src) + 2)^]; inc. (Dest);
    Octeto (Dest^): = fOwner.GammaTable [pByte (Longint (Src) + 1)^]; inc. (Dest);
    Octeto (Dest^): = ^ de fOwner.GammaTable [pByte (Longint (Src    ))]; inc. (Dest);

    {Movimiento a la columna siguiente}
    inc. (Src, 3);
    inc. (Dest, ColumnIncrement [paso] * 3 - 3);
    inc. (columna, ColumnIncrement [paso]);
  hasta el >= ImageWidth de la columna;
extremo;
Accesorios:
 
pngextra.pas (9 KB) (tipo de archivo detalles) 
png libarary
 
 
pngimage.pas (183 KB) (tipo de archivo detalles) 
png libarary
 
 
pnglang.pas (21 KB) (tipo de archivo detalles) 
png libarary
 
 
zlibpas.pas (4 KB) (tipo de archivo detalles) 
png libarary
 

Respuesta : La liberación de la imagen del png, no puede compilar con D2010

Substituir pChar por el pByte, él trabajará como un encanto
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedimiento TChunkIDAT.CopyInterlacedRGB8 (paso del const: Octeto;
  Src, Dest, transporte {$IFDEF Store16bits}, adicional {$ENDIF}: pByte);
var
  Columna: Número entero;
comenzar
  {Conseguir la primera columna y entrar en lazo}
  Columna: = ColumnStart [paso];
  Dest: = pByte (Longint (Dest) + columna * 3);
  repetición
    {Copiar esta fila}
    Dest^: = fOwner.GammaTable [pByte (Longint (Src) + 2)^]; inc. (Dest);
    Dest^: = fOwner.GammaTable [pByte (Longint (Src) + 1)^]; inc. (Dest);
    Dest^: = ^ de fOwner.GammaTable [pByte (Longint (Src    ))]; inc. (Dest);

    {Movimiento a la columna siguiente}
    inc. (Src, 3);
    inc. (Dest, ColumnIncrement [paso] * 3 - 3);
    inc. (columna, ColumnIncrement [paso]);
  hasta el >= ImageWidth de la columna;
extremo;
Otras soluciones  
 
programming4us programming4us