(Resolvido) TBarCode

[Limas]

Bom dia a todos,

Estou desenvolvendo um programa que deve gerar e ler código de barra, e neste programa eu escrevi o código abaixo mas falta o componente TBarCode, como faço para instalar este componente e de acordo com o código como eu devo fazer para iniciar a geração de códigos de barra?

Aos que puderem me ajudar desde já eu agradeço.

Att.

Valdir Lima

procedure Tfproduto.SpeedButton9Click(Sender: TObject);

Var

I:Integer;

begin

BOK:=InputQuery ('Etiquetas', 'Digite o nº de etiquetas a ser impressa',st);

if BOK then begin

I:=0;

BarCode1.Digits:='789827287' + tbproduto['codbarra'];

tbcodbarra.close;

tbcodbarra.emptytable;

tbcodbarra.open;

While I < StrToInt(st) do Begin

tbcodbarra.Insert;

tbcodbarra['Codigo']:=tbproduto['codigo'];

fcodbarra.LProduto.Caption:=tbproduto['nome'];

fcodbarra.LIngrediente.Caption:=tbproduto['marca'];

I:=I + 1;

end;

BarCode1.BarcodeCopy;

fcodbarra.QRImage1.Picture.Assign (ClipBoard);

//FormEtiqueta.LData.Caption := MaskEdit1.Text;

// FormEtiqueta.LPeso.Caption := EditPeso.Text;

// FormEtiqueta.LMS.Caption := Edit1.Text;

fcodbarra.Preview;

clipboard.clear;

end;

[Jhonas]

falta o componente TBarCode, como faço para instalar este componente

Voce vai achar o componente e exemplos no primeiro endereço

http://www.tec-it.com/en/download/tbarcode...s/Download.aspx

http://www.brothersoft.com/tbarcode-for-delphi-9346.html

http://www.softpedia.com/progDownload/TBar...load-82123.html

http://superdownloads.uol.com.br/download/...barcode-delphi/

abraço

[Limas]

falta o componente TBarCode, como faço para instalar este componente

Voce vai achar o componente e exemplos no primeiro endereço

http://www.tec-it.com/en/download/tbarcode...s/Download.aspx

http://www.brothersoft.com/tbarcode-for-delphi-9346.html

http://www.softpedia.com/progDownload/TBar...load-82123.html

http://superdownloads.uol.com.br/download/...barcode-delphi/

abraço

Ok!!!!

Muito obrigado pela dica,

Um abraço.

Valdir