Erros após atualizar (ACBrUtil e ACBrECFBematech)

[fschunig]

Olá pessoal

Estava usando os componentes da ACBr normalmente até ontem.

Então hoje (28/10/11) baixamos a última atualização e começou a dar erros de compilação.

O primeiro erro está em uma nova função que foi adicionada na ACBrUtil:

function UnLoadLibrary(LibName: AnsiString ): Boolean ;

var

  LibHandle: THandle ;

begin

 Result := True ;

 LibHandle := 0;

{$IFDEF FPC}

 LibHandle := dynlibs.LoadLibrary( LibName ) ;

 if LibHandle <> 0 then

    Result := dynlibs.FreeLibrary(LibHandle) ;

{$ELSE}

{$IFDEF DELPHI12_UP}

 LibHandle := GetModuleHandle( PWideChar( LibName ) );

 {$ELSE}

 LibHandle := GetModuleHandle( LibName );

 {$ENDIF}

 if LibHandle <> 0 then

    Result := FreeLibrary( LibHandle )

{$ENDIF}

end ;

Mais especificamente na linha:

LibHandle := GetModuleHandle( LibName );

O erro é: "Incompatible types: 'String' and 'PAnsiChar'". Para resolver fiz a seguinte alteração:

 LibHandle := GetModuleHandle( pchar(LibName) );

O segundo erro é na unit ACBrECFBematech, nas constantes decladas:

const

 // Usada apenas para passar para as DLLs. Valor não precisa ser válido, o próprio ACBrECF assinará o arquivo //

 cChavePublica = 'A499F300F731F6892F44B83A5DD9D97CFFFD0ABE96E29B4B4B4EB2F9E5BCFFCF0A52EAFDF05779F90B3A199BE5776B13373CB2E71D8AB67F4080CE27B226FFF032B6A7182C90C935EF2F4D343A743B60307EE4961F0C5EB02B1CEEF48D647C02E9BE164DC404B833F80C5B4268C04039547E7D5E242537B02360674B569208BD';

 cChavePrivada = 'D19598300478932ACFFE16CB6903552F15FDBD2D3B9659FAD79C3603C07B875919E9D8B28919B8F4C20C6AE23268A636D1206F5E6BC79D89B6152804B15A9781C90E0A2D5064FB5B7CC01048AD8C66768F76D71647E7D39F8EDD714044CEA68F2A40106849132B01D14DDEB3FBA6FC1A9FBE9EA71BAB9293707A4EAD29CB6F3D';

O erro é: String literals may have at most 255 elements Para resolver esse, tive que quebrar a string em pedaços menores:

const

 // Usada apenas para passar para as DLLs. Valor não precisa ser válido, o próprio ACBrECF assinará o arquivo //

 cChavePublica = 'A499F300F731F6892F44B83A5DD9D97CFFFD0ABE96E29B4B4B4EB2F9E5BCFF'+

                 'CF0A52EAFDF05779F90B3A199BE5776B13373CB2E71D8AB67F4080CE27B226'+

                 'FFF032B6A7182C90C935EF2F4D343A743B60307EE4961F0C5EB02B1CEEF48D'+

                 '647C02E9BE164DC404B833F80C5B4268C04039547E7D5E242537B02360674B569208BD';

 cChavePrivada = 'D19598300478932ACFFE16CB6903552F15FDBD2D3B9659FAD79C3603C07B87'+

                 '5919E9D8B28919B8F4C20C6AE23268A636D1206F5E6BC79D89B6152804B15A'+

                 '9781C90E0A2D5064FB5B7CC01048AD8C66768F76D71647E7D39F8EDD714044'+

                 'CEA68F2A40106849132B01D14DDEB3FBA6FC1A9FBE9EA71BAB9293707A4EAD29CB6F3D';

Estou usando Delphi 7 e MS Windows Vista/7

Abraços

Fabio Schunig

[Régys Silveira]

Correto, são restrições do delphi 7, vou acertar aqui.

[Régys Silveira]

O repositório foi atualizado, reporte qualquer problema.

Obrigado pela ajuda.

[fschunig]

Boa tarde Régys!

Baixei a atualização e voltou a compilar normalmente.

Agradeço a atenção e rapidez

Abraços

Fabio Schunig