Fråga : PNG avbildar Lib, kan inte sammanställa med D2010

Jag försökte att sammanställa PNGEN avbildar lib med delphi 2010 från http://pngdelphi.sourceforge.net.
Kompilatorstopp, på grund av kan inte tilldela en värdera till vänster sida som felet på detta fodrar:

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

sammanställa den lib, och körningen med D7 har varit inget problem 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

tillvägagångssätt TChunkIDAT.CopyInterlacedRGB8 (const passerar: Byte;
  Src Dest, trans. {$IFDEF Store16bits}, extrahjälp {$ENDIF}: pChar);
var
  Kolonn: Heltal;
börja
  {Få den första kolonnen och skriv in kretsar in},
  Kolonn: = ColumnStart [passera];
  Dest: = pChar (Longint (Dest) + kolonn * 3);
  repetition
    {Kopiera detta ror},
    Byte (Dest^): = ^ för fOwner.GammaTable [pByte (Longint (Src) + 2)]; inc (Dest);
    Byte (Dest^): = ^ för fOwner.GammaTable [pByte (Longint (Src) + 1)]; inc (Dest);
    Byte (Dest^): = ^ för fOwner.GammaTable [pByte (Longint (Src    ))]; inc (Dest);

    {Flyttning till den nästa kolonnen}
    inc (Src, 3);
    inc (Dest, ColumnIncrement [passera] * 3 - 3);
    inc (kolonn, ColumnIncrement [passera],);
  till kolonn->= ImageWidth;
avsluta;
Tillbehör:
 
pngextra.pas (9 KB) (filtyp specificerar), 
libarary png
 
 
pngimage.pas (183 KB) (filtyp specificerar), 
libarary png
 
 
pnglang.pas (21 KB) (filtyp specificerar), 
libarary png
 
 
zlibpas.pas (4 KB) (filtyp specificerar), 
libarary png
 

Svar : PNG avbildar Lib, kan inte sammanställa med D2010

Byt ut pChar vid pByte, det ska arbetsnågot liknande en berlock
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

tillvägagångssätt TChunkIDAT.CopyInterlacedRGB8 (const passerar: Byte;
  Src Dest, trans. {$IFDEF Store16bits}, extrahjälp {$ENDIF}: pByte);
var
  Kolonn: Heltal;
börja
  {Få den första kolonnen och skriv in kretsar in},
  Kolonn: = ColumnStart [passera];
  Dest: = pByte (Longint (Dest) + kolonn * 3);
  repetition
    {Kopiera detta ror},
    Dest^: = ^ för fOwner.GammaTable [pByte (Longint (Src) + 2)]; inc (Dest);
    Dest^: = ^ för fOwner.GammaTable [pByte (Longint (Src) + 1)]; inc (Dest);
    Dest^: = ^ för fOwner.GammaTable [pByte (Longint (Src    ))]; inc (Dest);

    {Flyttning till den nästa kolonnen}
    inc (Src, 3);
    inc (Dest, ColumnIncrement [passera] * 3 - 3);
    inc (kolonn, ColumnIncrement [passera],);
  till kolonn->= ImageWidth;
avsluta;
Andra lösningar  
 
programming4us programming4us