Fråga : can#t sammanställer PNG avbildar Lib

inte sure hur man justerar detta kodifiera för att fungera med kompilatorn D7 och D2010 kompilatorn > för 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
" codeBody " " notpretty class= " för {kopiera ímages med paletten using bet djup 1, 4 eller 8}, tillvägagångssätt TChunkIDAT.CopyInterlacedPalette148 (const passerar: Byte; Src Dest, trans. {$IFDEF Store16bits}, extrahjälp {$ENDIF}: pChar); const BitTable: Samling [1..8] av heltalet = ($1, $3, 0, $F, 0, 0, 0, $FF); StartBit: Samling [1..8] av heltalet = (7, 0, 0, 4, 0, 0, 0, 0); var CurBit kolonn: Heltal; Dest2: PChar; börja {Få den första kolonnen och skriv in kretsar in}, Kolonn: = ColumnStart [passera]; repetition {Kopiera data}, CurBit: = StartBit [Header.BitDepth]; repetition {Justera pekaren till PIXELbytehejd}, Dest2: = pChar (Longint (Dest) + (Header.BitDepth * kolonn) div 8); {Kopiera data}, {$IFDEF VER210} Dest2^: = Dest2^ eller ((shr CurBit (för byten (Src^)) och BitTable [Header.BitDepth]) shl (StartBit [Header.BitDepth] - (kolonn * Header.BitDepth-ändring 8))); /// < - bugga genom att använda Delphi 2010…., {$else} Byte (Dest2^): = byte (Dest2^) eller ((shr CurBit (för byten (Src^)) och BitTable [Header.BitDepth]) shl (StartBit [Header.BitDepth] - (kolonn * Header.BitDepth-ändring 8))); {$endif} {Flyttning till den nästa kolonnen} inc (kolonn, ColumnIncrement [passera],); {Ska lästa nästa bitar} december (CurBit, Header.BitDepth); till CurBit < 0; {Flyttning till den nästa byten i källa} inc (Src); till kolonn->= ImageWidth; avsluta;
Attachments: för >
<-/div> filenamen " för class= för >pngimage.pas " fileSize " > (186 KB) " javascript för href= " för <-/span> <-/div>
för >
<-/div> " klar "

Svar : can#t sammanställer PNG avbildar Lib

samma lösning som det annat problemet: byt ut pChar med pByte
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

{Kopiera ímages med paletten using bet djup 1, 4 eller 8},
tillvägagångssätt TChunkIDAT.CopyInterlacedPalette148 (const passerar: Byte;
  Src Dest, trans. {$IFDEF Store16bits}, extrahjälp {$ENDIF}: pByte); //<> = ImageWidth;
avsluta;
Andra lösningar  
 
programming4us programming4us