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?
Pergunta
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;
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.