Question : PNG Image Lib , can't compile with D2010

I tried to compile the PNG image lib with delphi 2010 from http://pngdelphi.sourceforge.net .
Compiler stops, because of can't assign a value to the left side error at this line:

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

compile that lib and run with D7 has been no problem

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:



procedure TChunkIDAT.CopyInterlacedRGB8(const Pass: Byte;
  Src, Dest, Trans{$IFDEF Store16bits}, Extra{$ENDIF}: pChar);
var
  Col: Integer;
begin
  {Get first column and enter in loop}
  Col := ColumnStart[Pass];
  Dest := pChar(Longint(Dest) + Col * 3);
  repeat
    {Copy this row}
    Byte(Dest^) := fOwner.GammaTable[pByte(Longint(Src) + 2)^]; inc(Dest);
    Byte(Dest^) := fOwner.GammaTable[pByte(Longint(Src) + 1)^]; inc(Dest);
    Byte(Dest^) := fOwner.GammaTable[pByte(Longint(Src)    )^]; inc(Dest);

    {Move to next column}
    inc(Src, 3);
    inc(Dest, ColumnIncrement[Pass] * 3 - 3);
    inc(Col, ColumnIncrement[Pass]);
  until Col >= ImageWidth;
end;

Attachments:

pngextra.pas (9 KB) (File Type Details)

png libarary

pngimage.pas (183 KB) (File Type Details)

png libarary

pnglang.pas (21 KB) (File Type Details)

png libarary

zlibpas.pas (4 KB) (File Type Details)

png libarary

Answer : PNG Image Lib , can't compile with D2010

Replace pChar by pByte, it will work like a charm

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:



procedure TChunkIDAT.CopyInterlacedRGB8(const Pass: Byte;
  Src, Dest, Trans{$IFDEF Store16bits}, Extra{$ENDIF}: pByte);
var
  Col: Integer;
begin
  {Get first column and enter in loop}
  Col := ColumnStart[Pass];
  Dest := pByte(Longint(Dest) + Col * 3);
  repeat
    {Copy this row}
    Dest^ := fOwner.GammaTable[pByte(Longint(Src) + 2)^]; inc(Dest);
    Dest^ := fOwner.GammaTable[pByte(Longint(Src) + 1)^]; inc(Dest);
    Dest^ := fOwner.GammaTable[pByte(Longint(Src)    )^]; inc(Dest);

    {Move to next column}
    inc(Src, 3);
    inc(Dest, ColumnIncrement[Pass] * 3 - 3);
    inc(Col, ColumnIncrement[Pass]);
  until Col >= ImageWidth;
end;