[Erro ao compilar. Help!]

Boa tarde Igor! Procedi na re-instalação do componente e o problema - aparentemente - sumiu. Os path's estão setados corretamente. De qualquer forma agradeço a atenção. vamos ver como se comporta para os próximos dias...

[Erro ao compilar. Help!]

Boa noite! Estou iniciando um novo projeto e ao tentar compilar o 'demo' da NF-e do Projeto ACBR meu ambiente acusa o erro que está 'printado' na tela anexa. Alguém já passou por esse 'abençoado' erro ? Se sim, qual a solução proposta ? Existe algum .PAS corrigido ? Help!

[Erro na instalação - Ajuda]

Boa noite Régis! Obrigado pela ajuda! Foi de grande valia...

[Erro na instalação - Ajuda]

Boa noite! Estou tentando instalar o componente ACBR Boleto mas recebo erro conforme a tela anexo. Acredito que seja eu que esteja instalando de modo errado o componente. Já sincronizei os arquivos via Tortoise mas continuo recebendo esse erro do Delphi ( versão 2010 ). Agradeço se alguém puder opinar sobre o que estou fazendo errado.

[Função para validar EAN 13]

Sei que o tópico foi praticamente resolvido mas gostaria de deixar minha contribuição; eu uso a rotina abaixo; em um Form coloque 1 Edit, 1 Button, 1 Label e 1 ACBrBarCode. No evento OnClick do botão o código abaixo:

procedure TForm1.Button1Click(Sender: TObject);

var

Vvalor, Vinicial : string;

v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,vcalc,varl,vres,vpar,vimp: Integer;

begin

Vvalor := Edit1.Text;

Vinicial := Vvalor;

varl := (Length(Vvalor));

if varl < 12 then

begin

ShowMessage('Número deve conter 12 dígitos');

Edit1.SetFocus;

end

else

begin

v1 := StrToInt(Copy(Vvalor,1,1));

v2 := StrToInt(Copy(Vvalor,2,1));

v3 := StrToInt(Copy(Vvalor,3,1));

v4 := StrToInt(Copy(Vvalor,4,1));

v5 := StrToInt(Copy(Vvalor,5,1));

v6 := StrToInt(Copy(Vvalor,6,1));

v7 := StrToInt(Copy(Vvalor,7,1));

v8 := StrToInt(Copy(Vvalor,8,1));

v9 := StrToInt(Copy(Vvalor,9,1));

v10 := StrToInt(Copy(Vvalor,10,1));

v11 := StrToInt(Copy(Vvalor,11,1));

v12 := StrToInt(Copy(Vvalor,12,1));

vimp := v1 + v3 + v5 + v7 + v9 + v11;

vpar := (v2 + v4 + v6 + v8 + v10 + v12) * 3;

vcalc := (vimp) + (vpar);

vres := 100000000 - vcalc;

Vvalor := IntToStr(vres);

vres := StrToInt(Copy(Vvalor,8,1));

Label1.Caption := Vinicial + '-' + IntToStr(vres);

ACBrBarCode1.Text := Vinicial + IntToStr(vres);

end;

end;

O código-fonte completo é:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ACBrBarCode;

type

TForm1 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

ACBrBarCode1: TACBrBarCode;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

Vvalor, Vinicial : string;

v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,vcalc,varl,vres,vpar,vimp: Integer;

begin

Vvalor := Edit1.Text;

Vinicial := Vvalor;

varl := (Length(Vvalor));

if varl < 12 then

begin

ShowMessage('Número deve conter 12 dígitos');

Edit1.SetFocus;

end

else

begin

v1 := StrToInt(Copy(Vvalor,1,1));

v2 := StrToInt(Copy(Vvalor,2,1));

v3 := StrToInt(Copy(Vvalor,3,1));

v4 := StrToInt(Copy(Vvalor,4,1));

v5 := StrToInt(Copy(Vvalor,5,1));

v6 := StrToInt(Copy(Vvalor,6,1));

v7 := StrToInt(Copy(Vvalor,7,1));

v8 := StrToInt(Copy(Vvalor,8,1));

v9 := StrToInt(Copy(Vvalor,9,1));

v10 := StrToInt(Copy(Vvalor,10,1));

v11 := StrToInt(Copy(Vvalor,11,1));

v12 := StrToInt(Copy(Vvalor,12,1));

vimp := v1 + v3 + v5 + v7 + v9 + v11;

vpar := (v2 + v4 + v6 + v8 + v10 + v12) * 3;

vcalc := (vimp) + (vpar);

vres := 100000000 - vcalc;

Vvalor := IntToStr(vres);

vres := StrToInt(Copy(Vvalor,8,1));

Label1.Caption := Vinicial + '-' + IntToStr(vres);

ACBrBarCode1.Text := Vinicial + IntToStr(vres);

end;

end;

end.

Espero ter ajudado em algo.