Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) TBarCode


Limas

Pergunta

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

  • 0
Link para o comentário
Compartilhar em outros sites

  • 0

Ok!!!!

Muito obrigado pela dica,

Um abraço.

Valdir

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...