Alterações no ACBr para que o Delphi XE5 pudesse compilá-lo em 64 bits.

[WINDEL]

Necessidade:

Foi necessário fazermos algumas alterações nas linhas de códigos do fonte do ACBr para que o Delphi XE5 pudesse compilá-lo em 64 bits. Deste modo é possível que o Delphi XE5 compile em 32 bits e 64 bits.

 

... \Fontes\ACBrCapicom\ACBrHTTPReqResp.pas

Na linha 213:

Antes

 

Depois

{$IFDEF WIN64}lCertContext: integer;{$ENDIF}

Na linha 250:

Antes

CertContext.Get_CertContext(integer(PCertContext));

Depois

    {$IFDEF WIN32}

      CertContext.Get_CertContext(integer(PCertContext));

      {$ELSE}

      lCertContext := integer(PCertContext);

      CertContext.Get_CertContext(lCertContext);

      PCertContext := Pointer(lCertContext);

      {$ENDIF}

 

Na linha 256:

Antes

CertContext.Get_CertContext(integer(PCertContext));

Depois

    {$IFDEF WIN32}

    CertContext.Get_CertContext(integer(PCertContext));

    {$ELSE}

    lCertContext := integer(PCertContext);

    CertContext.Get_CertContext(lCertContext);

    PCertContext := Pointer(lCertContext);

    {$ENDIF}

 

... \Fontes\ACBrCapicom\JwaWinBase.pas

Nas linhas 6165 e 6165:

Antes

begin

Result := PVOID(InterlockedExchange(LONG(Target), LONG(Value)));

Depois

    {$IFDEF WIN64}

var

  lTarget, lValue: integer;

{$ENDIF}

begin

  {$IFDEF WIN64}

  lTarget := LONG(Target);

  lValue  := LONG(Value);

  Result  := PVOID(InterlockedExchange(lTarget, lValue));

  Target  := PVOID(lTarget);

  Value   := PVOID(lValue);

  {$ELSE}

  Result := PVOID(InterlockedExchange(LONG(Target), LONG(Value)));

  {$ENDIF}

 

Nas linhas 6170 e 6171:

Antes

begin

Result := PVOID(InterlockedCompareExchange(LONG(Destination), LONG(Exchange), LONG(Comperand)));

Depois

    {$IFDEF WIN64}

var

  lDestination, lExchange, lComperand: integer;

{$ENDIF}

begin

  {$IFDEF WIN64}

  lDestination := LONG(Destination);

  lExchange    := LONG(Exchange);

  lComperand   := LONG(Comperand);

  Result       := PVOID(InterlockedCompareExchange(lDestination, lExchange, lComperand));

  Destination  := PVOID(lDestination);

  Exchange     := PVOID(lExchange);

  Comperand    := PVOID(lComperand);

  {$ELSE}

  Result := PVOID(InterlockedCompareExchange(LONG(Destination), LONG(Exchange), LONG(Comperand)));

  {$ENDIF}

 

 

... \Fontes\ACBrNFe2\ACBrNFeDANFEFRDM.pas

Nas linhas 245 e 246:

Antes

iDelLen := PCardinal(Cardinal(ADelimiter) - SizeOf(Cardinal))^;

iLen := PCardinal(Cardinal(AString) - SizeOf(Cardinal))^;

Depois

    {$IFDEF WIN32}

      iDelLen := PCardinal(Cardinal(ADelimiter) - SizeOf(Cardinal))^;

      iLen := PCardinal(Cardinal(AString) - SizeOf(Cardinal))^;

    {$ELSE}

      iDelLen := PCardinal(int64(ADelimiter) - SizeOf(Cardinal))^;

      iLen := PCardinal(int64(AString) - SizeOf(Cardinal))^;

    {$ENDIF}

 

Na linha 264:

Antes

for x := 1 to PCardinal(Cardinal(Step^) - SizeOf(Cardinal))^ do

Depois

    {$IFDEF WIN32}

    for x := 1 to PCardinal(Cardinal(Step^) - SizeOf(Cardinal))^ do

     {$ELSE}

     for x := 1 to PCardinal(int64(Step^) - SizeOf(Cardinal))^ do

     {$ENDIF}

Na linha 272:

Antes

Cardinal(Step) := Cardinal(Step) + SizeOf(Cardinal);

Depois

        {$IFDEF WIN32}

      Cardinal(Step) := Cardinal(Step) + SizeOf(Cardinal);

      {$ELSE}

      int64(Step) := int64(Step) + SizeOf(Cardinal);

      {$ENDIF}

ACBrHTTPReqResp.pas

ACBrNFeDANFEFRDM.pas

JwaWinBase.pas

[JeannyPaiva]

Tive que fazer aqui estas alterações também.

Seria bom se o pessoal enviasse esses fontes para o SVN, assim não teria que ficar conferindo as alterações a cada update.

[Daniel Simoes]

Notei que a Unit "ACBrHTTPReqResp.pas", está completamente diferente da existente no Trunk2...

Não posso incorporar as sugestões...

 

[Juliomar Marchetti]

Bem observado @Daniel Simoes acho que o @DIOGOWAR está usando o trunk pois é bem diferente

e esse arquivo faz parte do jedi

[JeannyPaiva]

Obrigada pela atenção @Daniel Simoes e @Juliomar Marchetti.

Eu não baixei as units anexadas, e sim substitui as linhas que apresentavam problema com a sugestão apresentada.

Segue meus fontes. 

Estão com alterações apenas nos trechos citados

ACBrDFeCapicomDelphiSoap.pas

ACBrNFeDANFEFRDM.pas

ACBrCTeDACTEFR.pas

JwaWinBase.pas

ACBrHTTPReqResp.pas

[Daniel Simoes]

Consegue revisar se todos IFDEFs são realmente necessários ?

Exemplo:

  {$IFDEF WIN32}
      CertContext.Get_CertContext(Integer(PCertContext));
  {$ELSE}
      lCertContext := Integer(PCertContext);
      CertContext.Get_CertContext(lCertContext);
      PCertContext := Pointer(lCertContext);
  {$ENDIF}

aparentemente o código de 64bits compilaria também para 32 bits...

 

[JeannyPaiva]

Sim. Foi necessário.

Só encontrei este tópico pois tive erro ao compilar em 64bits, e procurei no fórum se já havia alguma ocorrência.

Atualmente surgiu a necessidade de trabalhar apenas com NFe, CTe no 64bits, podem haver mais ocorrências para demais componentes.

 

O erro que ocorre sem a diretiva:
[DCC Error] ACBrDFeCapicomDelphiSoap.pas(101): E2197 Constant object cannot be passed as var parameter.

*A principio não encontrei alternativa além do uso das diretivas.

[Daniel Simoes]

Acho que não fui claro no meu tópico anterior...  o que desejo saber, é se podemos manter apenas o código da versão 64bits... e com isso evitar o IFDEF

[JeannyPaiva]

Desculpe, entendi errado.

Para os arquivos abaixo, sem diretiva está compilável em 32 e 64 bits.

Já o ACBrNFeDANFEFRDM e ACBrCTeDACTEFR foi necessário manter.

ACBrHTTPReqResp.pas

JwaWinBase.pas

ACBrDFeCapicomDelphiSoap.pas

[Daniel Simoes]

Apliquei várias modificações para a compilação em 64 bits... já está compilado em Lazarus/FPC 3 64 bits...

Ainda estou analisando as modificações de JwaWinBase.pas

[Daniel Simoes]

Em relação a JediWin32API, apliquei as seguintes modificações

Citar

- Remoção de Units não utilizadas
- Atualização de Units usadas com ultima versão do projeto Jedi-SVN (1.17)
- Ajustes para compilação em 64bits

 

[Daniel Simoes]

Em relação a Unit ACBrNFeDANFEFRDM.pas

modifiquei as linhas:

iDelLen := PCardinal(Cardinal(ADelimiter) - SizeOf(Cardinal))^;
iLen := PCardinal(Cardinal(AString) - SizeOf(Cardinal))^;

para:

iDelLen := Length(ADelimiter);
iLen := Length(AString);