Question : La bibliothèque d'image de png, ne peut pas compiler avec D2010

J'ai essayé de compiler la bibliothèque d'image de png avec Delphes 2010 de http://pngdelphi.sourceforge.net.
Les arrêts de compilateur, en raison du du pouvoir assigner une valeur à l'erreur d'aile gauche à cette ligne :

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

compiler cette bibliothèque et la course avec D7 n'a été aucun problème 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :

procédé TChunkIDAT.CopyInterlacedRGB8 (passage de const : Byte ;
  Src, DEST, transport {$IFDEF Store16bits}, supplémentaire {$ENDIF} : pChar) ;
variété
  Colonne : Nombre entier ;
commencer
  {Obtenir la première colonne et entrer dans la boucle}
  Colonne : = ColumnStart [passage] ;
  DEST : = pChar (Longint (DEST) + colonne * 3) ;
  répétition
    {Copier cette rangée}
    Byte (Dest^) : = fOwner.GammaTable [pByte (Longint (Src) + 2)^] ; inc. (DEST) ;
    Byte (Dest^) : = fOwner.GammaTable [pByte (Longint (Src) + 1)^] ; inc. (DEST) ;
    Byte (Dest^) : = ^ de fOwner.GammaTable [pByte (Longint (Src    ))] ; inc. (DEST) ;

    {Mouvement à la prochaine colonne}
    inc. (Src, 3) ;
    inc. (DEST, ColumnIncrement [passage] * 3 - 3) ;
    inc. (colonne, ColumnIncrement [passage]) ;
  jusqu'au >= ImageWidth de colonne ;
extrémité ;
Attachements :
 
pngextra.pas (9 KBs) (type de dossier détails) 
png libarary
 
 
pngimage.pas (183 KBs) (type de dossier détails) 
png libarary
 
 
pnglang.pas (21 KBs) (type de dossier détails) 
png libarary
 
 
zlibpas.pas (4 KBs) (type de dossier détails) 
png libarary
 

Réponse : La bibliothèque d'image de png, ne peut pas compiler avec D2010

Remplacer pChar par le pByte, il travaillera comme un charme
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :

procédé TChunkIDAT.CopyInterlacedRGB8 (passage de const : Byte ;
  Src, DEST, transport {$IFDEF Store16bits}, supplémentaire {$ENDIF} : pByte) ;
variété
  Colonne : Nombre entier ;
commencer
  {Obtenir la première colonne et entrer dans la boucle}
  Colonne : = ColumnStart [passage] ;
  DEST : = pByte (Longint (DEST) + colonne * 3) ;
  répétition
    {Copier cette rangée}
    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) ;

    {Mouvement à la prochaine colonne}
    inc. (Src, 3) ;
    inc. (DEST, ColumnIncrement [passage] * 3 - 3) ;
    inc. (colonne, ColumnIncrement [passage]) ;
  jusqu'au >= ImageWidth de colonne ;
extrémité ;
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us