TPONGUARD: problème install

Version imprimable

Bonjour,

Un vieux composant de TurboPower mais j'essaye quand même de l'installer sur D7 pour la version 1.15 j'obtiens une erreur:
Code:

1 2 3 4 5 6 Error] ogsrmgr.pas(141): Undeclared identifier: 'ogLongInt' [Error] ogsrmgr.pas(242): Operator not applicable to this operand type [Error] ogsrmgr.pas(265): Operator not applicable to this operand type [Error] ogsrmgr.pas(307): Operator not applicable to this operand type [Fatal Error] G115_R70.dpk(73): Could not compile used unit '..\source\ogsrmgr.pas'
Remplacer ogLongInt par Integer j'aurais d'autres erreurs

Pour la version 1.14 j'ai ceci comme erreur:
Code:

1 2 3 4 [Warning] ONGUARD.INC(94): Comparing signed and unsigned types - widened both operands [Error] ONGUARD.INC(94): Constant expression expected [Fatal Error] OgNetWrk.pas(55): Could not compile used unit '..\source\OgConst.pas'
Le curseur pointe sur :
Code:

1 2 {$IF compilerversion >= 20}
Il y a des années que j'ai installer ce composant sur D6 bien qu'il les versions aillent jusqu' à XE, XE2, XE3, XE4, XE5.

salut

la definition de

Code:

1
2
3
4
5
6
7
type
  {$IFDEF DELPHI22UP}              {AH.02}
  ogLongInt = FixedInt;               {AH.02}
  {$ELSE}                                  {AH.02}
  ogLongInt = LongInt;                {AH.02}
  {$ENDIF}                                 {AH.02}
  PogLongInt = ^ogLongInt;         {AH.02}

se trouve dans le fichier ogutil.pas

regarde si les chemins de recherche passent par le répertoire source de onguard

Oui le dossier source a été renseigner dans Tools, Environment option, Library. Excusez-moi j'ai la version anglaise
Code:

1 2 C:\Program Files\Borland\Delphi7\components\tponguard_115\source
Il me semble que le ogLongInt c'est pour le 64 bits alors que je suis en 32 bits
Code:

1 2 3 4 5 6 {$IFDEF Win32} TInt32 = Integer; {$ELSE} TInt32 = ogLongInt; {$ENDIF}
Ca ne poserait pas de problème si je le remplace par Integer ? parce que ca pointe sur count : ogLongInt
Code:

1 2 3 4 5 6 7 PResourceRec = ^TResourceRec; TResourceRec = record id : array[0..3] of AnsiChar; count : ogLongInt; index : TIndexArray; end;
Si c'est OK alors ca pointe egalement ici:
Code:

1 2 MessageDlg({$IFNDEF NoOgSrMgr}StrRes[SCInvalidKeyOrModifier]{$ELSE}SCInvalidKeyOrModifier{$ENDIF}, mtError, [TMsgDlgBtn.mbOK], 0);
Avec message:
Code:

1 2 3 4 Error] onguard2.pas(436): Object or class type required [Fatal Error] onguard.pas(478): Could not compile used unit '..\source\onguard2.pas' [Fatal Error] G115_R70.dpk(73): Could not compile used unit '..\source\onguard.pas'
Alors si je remplace ogLongInt par Integer et que je supprime la ligne du MessageDlg({$IFNDEF l'erreur suivante apparait:
Code:

1 2 WideCopy(Buffer, PWideChar(PByte(srP)+P^.ofs), OLen);
Ailleurs j'ai trouver une solution qui consiste à remplacer PByte(srP) par PChar(srP) et après ca se compile et les compos sont installés. Bon, après y a une chose qui n'a pas marcher dans le paramètre du comp peut-être à cause des manips que j'ai faites à l'install ?