gerar valor do c�digo de barras

Question

Ol�, tudo bem ? Espero que sim.Estou precisando saber como fa�o para gerar o valor do c�digo de barras para os produtos no padr�o EAN-13 e outros padr�es tb. Ser� que alguem tem alguma fun��o que fa�a...

Nasguone · Answer

Geralmente eu uso um componente Chamado TserialCom pq utilizo uma impressora termica pela com.
Os valores do codigo de barra geralmente e uma sequencia e dados tipo 789 pais 1000 cod empresa 100 cod produto 103 ref do prod.

segue abaixo um exemplo onde a linguagem que aparece na serialcom.WriteString e do tipo ZPL II propria para impressoras termicas, e esta recebendo os dados do produto do meu banco de dados.
Se este for seu caso espero que te ajude

procedure TfrmMain.btImprimirClick(Sender: TObject);
var x , numEtq :integer;
begin
// entItem ... generator //

serialcom.Open;

for x := 1 to StrToInt(edQtd.Text) do
begin
dm.cdEtiq.Execute;

numEtq := dm.cdEtiq.Params[0].AsInteger;

serialcom.WriteString(�^XA�);

//^FX Quadro negro ^FS
serialcom.WriteString(�FO0,0�);
serialcom.WriteString(�^GB 600,250,250 ^FS�);

serialcom.WriteString(�^LH0,0�);
serialcom.WriteString(�^FO20,260�); // Posi��o X , Y
serialcom.WriteString(�^A0N,20,20�); // Texto Altura , Largura
serialcom.WriteString(�^FR�);
serialcom.WriteString(�^FD Texto cabe�alho ^FS�); // O que vai ser impresso //

// Numero da Etiqueta ... o mesmo que o codigo de Barras //
serialcom.WriteString(�^LH0,0�);
serialcom.WriteString(�^FO50,50�); // Posi��o X , Y
serialcom.WriteString(�^A0N,150,130�); // Texto Altura , Largura
serialcom.WriteString(�^FR�);
serialcom.WriteString(�^FD�+ IntToStr(numEtq)+�^FS�); // O que vai ser impresso //

// Codigo de Barras //
serialcom.WriteString(�^FO630,40�); // x , y
serialcom.WriteString(�^BY2�);
serialcom.WriteString(�^BCR,150,N�);
serialcom.WriteString(�^FR�);
serialcom.WriteString(�^FD�+ IntToStr(numEtq)+�^FS�);

serialcom.WriteString(�^XZ�);

Sleep(1200);
end;