Invalid compiler directive em JsonDataObjects_ACBr.pas

[Dener Rocha]

Olá Pessoal,

Fiz o update dos fontes via svn, limpei os arquivos antigos, mas na hora de instalar pelo instalador, está dando o erro abaixo, fiz um checkout do zero, mas continua o erro, Delphi 7, fiz o teste em duas máquinas.

...ACBr\Fontes\Terceiros\JsonDataObjects\Source\JsonDataObjects_ACBr.pas(26) Error: Invalid compiler directive: 'WIDECHAR_REDUCED'
...ACBr\Fontes\Terceiros\JsonDataObjects\Source\JsonDataObjects_ACBr.pas(27) Error: Invalid compiler directive: 'STRINGCHECKS'
...ACBr\Fontes\Terceiros\JsonDataObjects\Source\JsonDataObjects_ACBr.pas(29) Error: Invalid compiler directive: 'POINTERMATH'
...ACBr\Fontes\Terceiros\JsonDataObjects\Source\JsonDataObjects_ACBr.pas(181) Error: 'END' expected but 'FUNCTION' found
...ACBr\Fontes\Terceiros\JsonDataObjects\Source\JsonDataObjects_ACBr.pas(144) Error: Type 'TJsonBaseObject' is not yet completely defined
...ACBr\Fontes\Terceiros\JsonDataObjects\Source\JsonDataObjects_ACBr.pas(145) Error: Type 'TJsonObject' is not yet completely defined
...ACBr\Fontes\Terceiros\JsonDataObjects\Source\JsonDataObjects_ACBr.pas(146) Error: Type 'TJsonArray' is not yet completely defined
...ACBr\Fontes\Terceiros\JsonDataObjects\Source\JsonDataObjects_ACBr.pas(182) Error: 'IMPLEMENTATION' expected but ';' found
...
Compilation failure
Erro ao compilar o pacote "ACBr_Diversos.dpk".
Abortando... Ocorreram erros na compilação dos pacotes.

 

O que poderia ser ?

Obrigado

 

 

log_Delphi_7_Win32.txt

[BigWings]

22 minutos atrás, Denernun disse:

O que poderia ser ?

Me parece que essa unit não deveria ser compilada no D7.

No ACBr.inc consta:

{$IFDEF DELPHI2009_UP}
  {$DEFINE USE_JSONDATAOBJECTS_UNIT}
{$ENDIF}

E no ACBrDiversos.dpk:

  {$IfDef USE_JSONDATAOBJECTS_UNIT}
  JsonDataObjects_ACBr in '..\..\..\Fontes\Terceiros\JsonDataObjects\Source\JsonDataObjects_ACBr.pas',
  {$Else}
  Jsons in '..\..\..\Fontes\Terceiros\json4delphi\src\Jsons.pas',
  {$EndIf}

Então ela deveria ser compilada apenas do Delphi 2009 acima.

Provavelmente ainda tem algo errado com os teus fontes. Use a opção de apagar arquivos antigos do disco, procure versões anteriores do ACBr que possam estar sendo localizadas pelo Delphi (library path, search path)...

Fiz teste de instalação no D7 e não houve nenhum problema.

[Daniel Simoes]

Exato... essa Unit não é compatível com D7...

A compilação deve estar sendo forçada por alguma mudança no seu ACBr.inc 

[Dener Rocha]

20 minutes ago, BigWings said:

Me parece que essa unit não deveria ser compilada no D7.

No ACBr.inc consta:

{$IFDEF DELPHI2009_UP}
  {$DEFINE USE_JSONDATAOBJECTS_UNIT}
{$ENDIF}

E no ACBrDiversos.dpk:

  {$IfDef USE_JSONDATAOBJECTS_UNIT}
  JsonDataObjects_ACBr in '..\..\..\Fontes\Terceiros\JsonDataObjects\Source\JsonDataObjects_ACBr.pas',
  {$Else}
  Jsons in '..\..\..\Fontes\Terceiros\json4delphi\src\Jsons.pas',
  {$EndIf}

Então ela deveria ser compilada apenas do Delphi 2009 acima.

Provavelmente ainda tem algo errado com os teus fontes. Use a opção de apagar arquivos antigos do disco, procure versões anteriores do ACBr que possam estar sendo localizadas pelo Delphi (library path, search path)...

Fiz teste de instalação no D7 e não houve nenhum problema.

 

Bem estranho, baixei os fontes hoje cedo e estava dando o erro, verifiquei o ACBrDiversos.dpk, e não tinha essa validação {$IfDef USE_JSONDATAOBJECTS_UNIT}, apaguei e baixei de novo e agora está ok !

Obrigado pessoal pela ajuda !

 

 

[Daniel Simoes]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.