Como utilizar código de barras aleatório no Delphi XE7?
Criei um projeto no delphi XE7 que utiliza código de barras. A intenção é o seguinte, ao fazer um cadastro, crio um código de barras aleatório e mostro em uma TImage. Consegui fazer até a parte do código aleatório mas não estou conseguindo fazer a imagem aparecer corretamente.
E como há mais pessoas nesse projeto, baixar um componente não é viável. Alguém sabe como resolver?
Meu código está abaixo:
E como há mais pessoas nesse projeto, baixar um componente não é viável. Alguém sabe como resolver?
Meu código está abaixo:
procedure TForm4.GerarClick(Sender: TObject); begin GerarCodigo(LabeledEdit1.Text, Image1.Canvas); end; procedure TForm4.GerarCodigo(Codigo: String; Canvas : TCanvas); var s : string; i : Integer; begin // Gerar o valor para desenhar o código de barras // Caracter de início s := '790'; for i := 4 to 13 do s := s + IntToStr(Random(10)); LabeledEdit1.Text := s; end;
![Maria Elisa Maria Elisa](http://www.devmedia.com.br/imagens/fotoscolunistas/963129_20240228075606.jpg)
Maria Elisa
Curtidas 0
Respostas
![Arthur Heinrich Arthur Heinrich](https://www.devmedia.com.br/imagens/fotoscolunistas/avatar/avatar-6.png)
Arthur Heinrich
16/05/2024
Existem vários tipos de códigos de barras. Para cada tipo, a codificação varia.
Dê uma olhada em https://codigosdebarrasbrasil.com.br/tipos-de-codigos-de-barras/
Dê uma olhada em https://codigosdebarrasbrasil.com.br/tipos-de-codigos-de-barras/
GOSTEI 0