Re: [delphi-br] Código de Barras QuickReport
Olá Evaldo, Estou usando um componente de código de barras pois uso a imagem... veja se ajuda... Este é o site http://www.han-soft.com Espero que ajude!!! Um grande abraço, Rogério Bolanho Vai Arrebentar!!! Acessou??? Arrebentou!!! - Original Message - From: Evaldo evaldoave...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 01, 2010 9:30 AM Subject: [delphi-br] Código de Barras QuickReport O QuickReport tem componente para impressão de código de barras nativo? ou preciso instalar outro? Delphi 2007 QuickReport 4 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Código de Barras QuickReport
Você pode instalar uma fonte de código de barras e imprimir isso em um QRLabel ou DBQRLabel. Júlio César Santiago Guiótti Em 1 de junho de 2010 09:50, Marcelo leite_rom...@yahoo.com.br escreveu: Que eu saiba não tem, mas tem como voce desenhar o codigo de barras no canvas de um qrImage e imprimi-lo. De: Evaldo evaldoave...@yahoo.com.br evaldoavelar%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 1 de Junho de 2010 9:30:37 Assunto: [delphi-br] Código de Barras QuickReport O QuickReport tem componente para impressão de código de barras nativo? ou preciso instalar outro? Delphi 2007 QuickReport 4 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Código de Barras 2D
Aqui tem uma solução: http://www.easesoft.net/Default.html Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/10/5 gbfastbr gbf...@gmail.com Bom dia a todos, Preciso gerar um código de barras 2D do tipo PDF417 ou QrCode no Delphi, alguém já trabalhou com esse formato? ou conhece algum componente ou biblioteca? Se eu conseguir gerar e salvar como JPG ou algum outro formato. ^^ = No meu caso vou pegar os dados de um contrato (valor do contrato, dados pessoais) e transformar em um código 2D e imprimir no contrato. É difícil achar esse tipo de material. Desde já agradeço. Att: Gabriel Rocha Barcelos [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Código de Barras Boleto Quick Report
Alguém tem o boleto bancario em ReportBuider ? Sei que pode ser preguiça minha, pois preciso entregar um projeto pra ontem, e se alguem me disponibiliza-lo, me adiantaria um grande lado, agradecendo por enquanto. Paulo Santana O2 Tecnologia em Sistemas Adriano Santos escreveu: Duas suspeitas: 1. Layout de página da impressora; 2. Driver da impressora laser; Adriano Santos Editor Chefe Revista ClubeDelphi 2009/5/12 nunesfelipe nunesfel...@yahoo.com.br mailto:nunesfelipe%40yahoo.com.br Ola Senhores, Esta acontecendo uma coisa muito estranha...tenho cliente que usam o boleto pelo sistema que trabalho...todos meus clientes imprime os boletos normalmente, exceto umele visualiza o boleto na tela e qndo manda imprimir, a impressão sai sem o código de barra...todos os dados sai corretamente, somente o codigo de barra sai em branco, mas na tela aparece o codigo de barra, mas não sai na impressão...ja tentei todas as posibilidades...mas pensei se seria alguma fonte que existe nos outros clientes que não existe nesse...pode ser alguma coisa parecido com isso? Ou alguém tem alguma ideia do que pode ser? Obrigado Felipe -- Adriano Santos Director X-35 Consulting and Development IT Manager SoftPark Chief Editor Magazines ClubeDelphi WebMobile www.delphitodelphi.blogspot.com www.adrianosantos.pro.br www.devmedia.com.br www.dug-sp.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 4070 (20090513) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com __ Information from ESET NOD32 Antivirus, version of virus signature database 4070 (20090513) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Código de Barras Boleto Quick Repor t
Duas suspeitas: 1. Layout de página da impressora; 2. Driver da impressora laser; Adriano Santos Editor Chefe Revista ClubeDelphi 2009/5/12 nunesfelipe nunesfel...@yahoo.com.br Ola Senhores, Esta acontecendo uma coisa muito estranha...tenho cliente que usam o boleto pelo sistema que trabalho...todos meus clientes imprime os boletos normalmente, exceto umele visualiza o boleto na tela e qndo manda imprimir, a impressão sai sem o código de barra...todos os dados sai corretamente, somente o codigo de barra sai em branco, mas na tela aparece o codigo de barra, mas não sai na impressão...ja tentei todas as posibilidades...mas pensei se seria alguma fonte que existe nos outros clientes que não existe nesse...pode ser alguma coisa parecido com isso? Ou alguém tem alguma ideia do que pode ser? Obrigado Felipe -- Adriano Santos Director X-35 Consulting and Development IT Manager SoftPark Chief Editor Magazines ClubeDelphi WebMobile www.delphitodelphi.blogspot.com www.adrianosantos.pro.br www.devmedia.com.br www.dug-sp.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Código de barras
Cara, não me lembro, mas acho que sim. Porém a maioria dos componentes que implementam esse tipo de código já o fazem. Jader Ricardo escreveu: Alexandre Rodrigues escreveu: Jader, nunca imprimi, mas já trabalhei com código de barras 2 de 5, e em alguns casos, eu tive que habilitar o leitor para realizar a leitura desses códigos. Derrepente o problema não esteja no seu código, mas sim no leitor, que não está configurado para ler esse tipo de código. Outra coisa, não recomendo para esse tipo de aplicação a utilização de código EAN13, já que o mesmo se destina a listagem de produtos produzidos. Porque tu não utiliza CODE128? --- Acho que o problema não é o leitor, no livro que eu estava lendo tem uma figura de um codigo de barras 2 de 5, dai passei o leitor sobre ele e leu blz (rsrsrs) ... vou testar essa dica do CODE128. Tenho que fazer algum calculo especial pra imprimir as barras ? Jader ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Código de barras
Ah, esqueci. Tem inúmeras fontes também, que para impressão de código de barras. Jader Ricardo escreveu: Alexandre Rodrigues escreveu: Jader, nunca imprimi, mas já trabalhei com código de barras 2 de 5, e em alguns casos, eu tive que habilitar o leitor para realizar a leitura desses códigos. Derrepente o problema não esteja no seu código, mas sim no leitor, que não está configurado para ler esse tipo de código. Outra coisa, não recomendo para esse tipo de aplicação a utilização de código EAN13, já que o mesmo se destina a listagem de produtos produzidos. Porque tu não utiliza CODE128? --- Acho que o problema não é o leitor, no livro que eu estava lendo tem uma figura de um codigo de barras 2 de 5, dai passei o leitor sobre ele e leu blz (rsrsrs) ... vou testar essa dica do CODE128. Tenho que fazer algum calculo especial pra imprimir as barras ? Jader ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Código de barras
Jader, Alguns leitores precisam de delimitadores para lerem o código corretamente. Tente imprimir concatenando um asterisco antes e outro depois do código Ex.: *123456789* []'s Malomar Alex Seminotti Erechim - RS Jader Ricardo escreveu: Bom dia amigos ! Uso o BDS2006 + FortesReport 3.23 *** Estou com dúvidas sobre usar código de barras. Antes de colocar minha dúvida aqui eu já coloquei na lista do fortesreport e na lista automação total mas ninguém me respondeu. *** Tenho um sistema que gera carnês de contas a receber. Meu cliente precisa que este carnê seja impresso com codigo de barras para que ele entregue este carnê ao cliente dele. Quando o cliente dele for ao estabelecimento pagar ele irá passar o leitor óptico no código de barras e o meu sistema irá buscar esta divida no banco de dados. Eu pensei que bastaria eu ligar o componente RLDBBarcode (configurado com o tipo de codigo de barras bcEAN13 ou bcCode2OF5Interleaved) ao meu campo que tem o número do carnê e pronto, tudo funcionaria. Mas, após eu imprimir o carnê o leitor não lê este código de barras. Estou com algumas dúvidas : 1 - Alguém sabe se existe algum bug no RLDBBarcode ? 2 - Vou ter que gerar uma codificação especial para o leitor óptico enteder as barras geradas ? Se sim como faz isso ? Estou pergunando isso porque eu estava lendo em um livro onde o autor diz que para o codigo de barras OF5Interleaved eu teria que pegar um codigo binario que representa o start + meu codigo do carne em binario + o stop binario, depois passar tudo pras barras ai sim ele entenderia. Se alguém tiver um tempinho pra me ajudar ficarei grato ... Agradeço a atenção de todos ... Jader Ricardo
Re: [delphi-br] Código de barras
Jader, nunca imprimi, mas já trabalhei com código de barras 2 de 5, e em alguns casos, eu tive que habilitar o leitor para realizar a leitura desses códigos. Derrepente o problema não esteja no seu código, mas sim no leitor, que não está configurado para ler esse tipo de código. Outra coisa, não recomendo para esse tipo de aplicação a utilização de código EAN13, já que o mesmo se destina a listagem de produtos produzidos. Porque tu não utiliza CODE128? Jader Ricardo escreveu: Bom dia amigos ! Uso o BDS2006 + FortesReport 3.23 *** Estou com dúvidas sobre usar código de barras. Antes de colocar minha dúvida aqui eu já coloquei na lista do fortesreport e na lista automação total mas ninguém me respondeu. *** Tenho um sistema que gera carnês de contas a receber. Meu cliente precisa que este carnê seja impresso com codigo de barras para que ele entregue este carnê ao cliente dele. Quando o cliente dele for ao estabelecimento pagar ele irá passar o leitor óptico no código de barras e o meu sistema irá buscar esta divida no banco de dados. Eu pensei que bastaria eu ligar o componente RLDBBarcode (configurado com o tipo de codigo de barras bcEAN13 ou bcCode2OF5Interleaved) ao meu campo que tem o número do carnê e pronto, tudo funcionaria. Mas, após eu imprimir o carnê o leitor não lê este código de barras. Estou com algumas dúvidas : 1 - Alguém sabe se existe algum bug no RLDBBarcode ? 2 - Vou ter que gerar uma codificação especial para o leitor óptico enteder as barras geradas ? Se sim como faz isso ? Estou pergunando isso porque eu estava lendo em um livro onde o autor diz que para o codigo de barras OF5Interleaved eu teria que pegar um codigo binario que representa o start + meu codigo do carne em binario + o stop binario, depois passar tudo pras barras ai sim ele entenderia. Se alguém tiver um tempinho pra me ajudar ficarei grato ... Agradeço a atenção de todos ... Jader Ricardo ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Código de barras
Malomar Alex Seminotti escreveu: Jader, Alguns leitores precisam de delimitadores para lerem o código corretamente. Tente imprimir concatenando um asterisco antes e outro depois do código Ex.: *123456789* []'s Malomar Alex Seminotti Erechim - RS -- Ok, vou testar esta dica ... Jader
Re: [delphi-br] Código de barras
Alexandre Rodrigues escreveu: Jader, nunca imprimi, mas já trabalhei com código de barras 2 de 5, e em alguns casos, eu tive que habilitar o leitor para realizar a leitura desses códigos. Derrepente o problema não esteja no seu código, mas sim no leitor, que não está configurado para ler esse tipo de código. Outra coisa, não recomendo para esse tipo de aplicação a utilização de código EAN13, já que o mesmo se destina a listagem de produtos produzidos. Porque tu não utiliza CODE128? --- Acho que o problema não é o leitor, no livro que eu estava lendo tem uma figura de um codigo de barras 2 de 5, dai passei o leitor sobre ele e leu blz (rsrsrs) ... vou testar essa dica do CODE128. Tenho que fazer algum calculo especial pra imprimir as barras ? Jader
Re: [delphi-br] Código de Barras - Postnet
Galvão, Você já possui a fonte do código de barras correio? Se não possui terá que comprar, o site www.stsprint.com.br vende a fonte e explica como utiliza-la. Leonardo - Original Message - From: galvao_em To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 01, 2007 5:22 PM Subject: [delphi-br] Código de Barras - Postnet Olá, preciso imprimir envelopes na minha aplicação, o cliente quer que saia com o código de barras do correio, já procurei na net mas não consegui entender o que eu achei, alguém tem algum exemplo, uso mdo e Fortes report. Desde já agradeço a ajuda -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.11.0/929 - Release Date: 31/7/2007 17:26 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Código de Barras - Postnet
Amigo, é só instalar e utilizar uma fonte de código de barras, se quiser, manda um email e lhe envio uma att. Rodrigo - Original Message - From: galvao_em To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 01, 2007 5:22 PM Subject: [delphi-br] Código de Barras - Postnet Olá, preciso imprimir envelopes na minha aplicação, o cliente quer que saia com o código de barras do correio, já procurei na net mas não consegui entender o que eu achei, alguém tem algum exemplo, uso mdo e Fortes report. Desde já agradeço a ajuda -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.11.0/929 - Release Date: 31/7/2007 17:26 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Código De Barras
Cara eu ja trabalhei com leitura de código em dois sistemas, o código na realidade vem pro sistema em números e letras quando vc for gerar o código ai vc usa um componente para tal ja foi até postado na lista. para os teste peguei o leitor do meu cliente mesmo. espero ter ajudado, Fabiano - Original Message - From: Cleiton [EMAIL PROTECTED] To: Delhpi delphi-br@yahoogrupos.com.br Sent: Friday, December 02, 2005 8:22 AM Subject: [delphi-br] Código De Barras Olá pessoal Tenho um sistema do qual necessito implementar leitura de código de barras. Acontece que nunca trabalhei com código de barras antes. Alguém poderia fornecer algum material de apoio que me orientasse com esse problema? Se possível dizer onde posso encontrar componentes pra leitura de código de barras. obrigado a todos -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Código De Barras
Em 02/12/05, Cleiton[EMAIL PROTECTED] escreveu: Tenho um sistema do qual necessito implementar leitura de código de barras. A leitura é feita por leitores q ficam ligados a entrada de dados do computador, em geral no teclado. Para o sistema que esta recebendo os dados, é transparente a leitura. Ele simplesmente recebe o valor lido e pronto. Tipo assim: Vc coloca um TEdit e, qdo parado nele, passa o leitor em algum codigo de barras. No edit aparecera o valor correspondente ao codigo. Alencar --- Philler Informatica Ltda Jose Alencar Philereno ICQ 13458351 Messenger/Skype (voz): alencar Feliz aquele que transfere o que sabe e aprende o que ensina Cora Coralina -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Código de Barras
Tenho esse componente mas é para delphi 5.
Vê se serve
- Original Message -
From: Fabrício Pinheiro França
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, November 08, 2005 10:50 PM
Subject: Re: [delphi-br] Código de Barras
Tem dois tipos de funções que eu tenho. Para gerar código I25 e EAN13. As
duas utilizam um componente imagem
Procedure I25CriaCodBarra(Cod : String; Imagem : TCanvas);
Const
digitos : array['0'..'9'] of string[5]= ('00110', '10001',
'01001', '11000',
'00101', '10100',
'01100', '00011',
'10010', '01010');
Var
Numero : String;
Cod1 : Array[1..1000] Of Char;
Cod2 : Array[1..1000] Of Char;
Codigo : Array[1..1000] Of Char;
Digito : String;
c1,c2 : Integer;
x,y,z,h : LongInt;
a,b,c,d : TPoint;
I : Boolean;
Begin
Numero := Cod;
For x := 1 to 1000 Do
Begin
Cod1 [x] := #0;
Cod2 [x] := #0;
Codigo[x] := #0;
End
;
c1 := 1;
c2 := 1;
x := 1;
For y := 1 to Length(Numero) div 2 do
Begin
Digito := Digitos[Numero[x ]];
For z := 1 to 5 do
Begin
Cod1[c1] := Digito[z];
Inc(c1);
End
;
Digito := Digitos[Numero[x+1]];
For z := 1 to 5 do
Begin
Cod2[c2] := Digito[z];
Inc(c2);
End
;
Inc(x,2);
End
;
y := 5;
Codigo[1] := '0';
Codigo[2] := '0';
Codigo[3] := '0';
Codigo[4] := '0'; { Inicio do Codigo }
For x := 1 to c1-1 do
begin
Codigo[y] := Cod1[x]; Inc(y);
Codigo[y] := Cod2[x]; Inc(y);
end
;
Codigo[y] := '1'; Inc(y); { Final do Codigo }
Codigo[y] := '0'; Inc(y);
Codigo[y] := '0';
Imagem.Pen .Width := 1;
Imagem.Brush.Color := ClWhite;
Imagem.Pen .Color := ClWhite;
a.x := 1; a.y := 0;
b.x := 1; b.y := 79;
c.x := 2000; c.y := 79;
d.x := 2000; d.y := 0;
Imagem.Polygon([a,b,c,d]);
Imagem.Brush.Color := ClBlack;
Imagem.Pen .Color := ClBlack;
x := 0;
i := True;
for y:=1 to 1000 do
begin
If Codigo[y] #0 Then
Begin
If Codigo[y] = '0' then
h := 1
Else
h := 3
;
a.x := x; a.y := 0;
b.x := x; b.y := 79;
c.x := x+h-1; c.y := 79;
d.x := x+h-1; d.y := 0;
If i Then Imagem.Polygon([a,b,c,d]);
i := Not(i);
x := x + h;
End
;
end
;
end;
Function EAN13Calculadv(codigo:string):string;
var
i,sp,si,d,dv:word;
s:single;
begin
if length(codigo)12 then codigo:=copy(codigo,1,12);
sp:=0;
si:=0;
for i:=1 to length(codigo) do
begin
d:=strtoint( copy(codigo,i,1) );
if odd(length(codigo)+1-i) then si:=si+d*7 else sp:=sp+d*9;
end
;
s:=(sp+si)/10;
dv:=Trunc(10*frac(s));
if codigo='' then
EAN13Calculadv := ''
else
EAN13Calculadv := codigo+inttostr(dv)
;
end;
procedure EAN13DesenhaBarras(SequenciaHexa: string; Imagem: TCanvas);
var
X, Y, H: LongInt;
A, B, C, D: TPoint;
I: Boolean;
begin
Imagem.Brush.Color := ClWhite;
Imagem.Pen.Color := ClBlack;
x := 10;
i := True;
for y := 1 to Length(SequenciaHexa) do
begin
if SequenciaHexa[y] = '0' then
Imagem.Pen.Color := ClWhite
else
Imagem.Pen.Color := ClBlack
;
h := 1;
a.x := x;
a.y := 0;
b.x := x;
b.y := 50;
c.x := x + h - 1;
c.y := 50;
d.x := x + h - 1;
d.y := 0;
case Y of
1..3, 46..50, 93..95:
begin
b.y := 55;
c.y := 55;
end
;
end;
Imagem.Polygon([A, B, C, D]);
i := not (i);
x := x + h;
end
;
end;
procedure EAN13CriaCodBarra(CodBarras: string; Imagem: TCanvas);
const
TabelaA: array[0..9] of string[7] = ('0001101', '0011001',
'0010011', '001',
'0100011', '0110001',
'010', '0111011',
'0110111', '0001011');
TabelaB: array[0..9] of string[7] = ('0100111', '0110011',
'0011011', '0011011',
'0011101', '0111001',
'101', '0010001',
'0001001', '0010111');
TabelaC: array[0..9] of string[7] = ('1110010', '1100110',
'1101100', '110
Re: [delphi-br] Código de Barras
A lista não aceita anexos =]
[]'s
Atenciosamente,
---
Eric Roberto Darruiz - Desenvolvimento e Soluções de Tecnologia
Windows/Linux
[EMAIL PROTECTED]
---
ICQ: 78562726
MSN: [EMAIL PROTECTED]
---
Talk is cheap, show me the code...
---
- Original Message -
From: Denise [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Cc: Delphi delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 09, 2005 1:18 PM
Subject: Re: [delphi-br] Código de Barras
Tenho esse componente mas é para delphi 5.
Vê se serve
- Original Message -
From: Fabrício Pinheiro França
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, November 08, 2005 10:50 PM
Subject: Re: [delphi-br] Código de Barras
Tem dois tipos de funções que eu tenho. Para gerar código I25 e EAN13. As
duas utilizam um componente imagem
Procedure I25CriaCodBarra(Cod : String; Imagem : TCanvas);
Const
digitos : array['0'..'9'] of string[5]= ('00110', '10001',
'01001', '11000',
'00101', '10100',
'01100', '00011',
'10010', '01010');
Var
Numero : String;
Cod1 : Array[1..1000] Of Char;
Cod2 : Array[1..1000] Of Char;
Codigo : Array[1..1000] Of Char;
Digito : String;
c1,c2 : Integer;
x,y,z,h : LongInt;
a,b,c,d : TPoint;
I : Boolean;
Begin
Numero := Cod;
For x := 1 to 1000 Do
Begin
Cod1 [x] := #0;
Cod2 [x] := #0;
Codigo[x] := #0;
End
;
c1 := 1;
c2 := 1;
x := 1;
For y := 1 to Length(Numero) div 2 do
Begin
Digito := Digitos[Numero[x ]];
For z := 1 to 5 do
Begin
Cod1[c1] := Digito[z];
Inc(c1);
End
;
Digito := Digitos[Numero[x+1]];
For z := 1 to 5 do
Begin
Cod2[c2] := Digito[z];
Inc(c2);
End
;
Inc(x,2);
End
;
y := 5;
Codigo[1] := '0';
Codigo[2] := '0';
Codigo[3] := '0';
Codigo[4] := '0'; { Inicio do Codigo }
For x := 1 to c1-1 do
begin
Codigo[y] := Cod1[x]; Inc(y);
Codigo[y] := Cod2[x]; Inc(y);
end
;
Codigo[y] := '1'; Inc(y); { Final do Codigo }
Codigo[y] := '0'; Inc(y);
Codigo[y] := '0';
Imagem.Pen .Width := 1;
Imagem.Brush.Color := ClWhite;
Imagem.Pen .Color := ClWhite;
a.x := 1; a.y := 0;
b.x := 1; b.y := 79;
c.x := 2000; c.y := 79;
d.x := 2000; d.y := 0;
Imagem.Polygon([a,b,c,d]);
Imagem.Brush.Color := ClBlack;
Imagem.Pen .Color := ClBlack;
x := 0;
i := True;
for y:=1 to 1000 do
begin
If Codigo[y] #0 Then
Begin
If Codigo[y] = '0' then
h := 1
Else
h := 3
;
a.x := x; a.y := 0;
b.x := x; b.y := 79;
c.x := x+h-1; c.y := 79;
d.x := x+h-1; d.y := 0;
If i Then Imagem.Polygon([a,b,c,d]);
i := Not(i);
x := x + h;
End
;
end
;
end;
Function EAN13Calculadv(codigo:string):string;
var
i,sp,si,d,dv:word;
s:single;
begin
if length(codigo)12 then codigo:=copy(codigo,1,12);
sp:=0;
si:=0;
for i:=1 to length(codigo) do
begin
d:=strtoint( copy(codigo,i,1) );
if odd(length(codigo)+1-i) then si:=si+d*7 else sp:=sp+d*9;
end
;
s:=(sp+si)/10;
dv:=Trunc(10*frac(s));
if codigo='' then
EAN13Calculadv := ''
else
EAN13Calculadv := codigo+inttostr(dv)
;
end;
procedure EAN13DesenhaBarras(SequenciaHexa: string; Imagem: TCanvas);
var
X, Y, H: LongInt;
A, B, C, D: TPoint;
I: Boolean;
begin
Imagem.Brush.Color := ClWhite;
Imagem.Pen.Color := ClBlack;
x := 10;
i := True;
for y := 1 to Length(SequenciaHexa) do
begin
if SequenciaHexa[y] = '0' then
Imagem.Pen.Color := ClWhite
else
Imagem.Pen.Color := ClBlack
;
h := 1;
a.x := x;
a.y := 0;
b.x := x;
b.y := 50;
c.x := x + h - 1;
c.y := 50;
d.x := x + h - 1;
d.y := 0;
case Y of
1..3, 46..50, 93..95:
begin
b.y := 55;
c.y := 55;
end
;
end;
Imagem.Polygon([A, B, C, D]);
i := not (i);
x := x + h;
end
;
end;
procedure EAN13CriaCodBarra(CodBarras: string; Imagem: TCanvas);
const
TabelaA: array[0..9] of string[7] = ('0001101', '0011001',
'0010011', '001',
'0100011', '0110001',
'010', '0111011',
'0110111
Re: [delphi-br] Código de Barras
Tente o Fortes Report... ele tem componentes pra código de barras e também tem filtro pra impressão draft. Nunca usei pra isso que vc precisa, mas é bem prático. Acredito que resolva. E o melhor, é free. Não sei dizer se tem versão pro kylix. Dá uma olhada no site. http://www.fortesreport.com.br/index.br.htm - Original Message - From: fmansi2001 [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 08, 2005 12:02 PM Subject: [delphi-br] Código de Barras Galera; Estou precisando de um componente ou função que gere códigos de barras em Delphi/Kylix para impressões em modo texto. Ex.: Nota Fiscal Alguém sabe me informar onde posso encontrar, já procurei na net e não achei só encontrei para modo gráfico. Obrigado Francisco Mansi -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Código de Barras
Dá uma googlada com o termo codbar ou barcod! - Original Message - From: fmansi2001 To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 08, 2005 12:02 PM Subject: [delphi-br] Código de Barras Galera; Estou precisando de um componente ou função que gere códigos de barras em Delphi/Kylix para impressões em modo texto. Ex.: Nota Fiscal Alguém sabe me informar onde posso encontrar, já procurei na net e não achei só encontrei para modo gráfico. Obrigado Francisco Mansi -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Código de Barras
Francisco, Tenho um bom material sobre isso, passei 10 dias testando Me manda um email e pvt para falarmos sobre isso para não poluirmos a lista [EMAIL PROTECTED] []'s Marcio - Original Message - From: Denise [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Cc: Delphi delphi-br@yahoogrupos.com.br Sent: Tuesday, November 08, 2005 1:18 PM Subject: Re: [delphi-br] Código de Barras Dá uma googlada com o termo codbar ou barcod! - Original Message - From: fmansi2001 To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 08, 2005 12:02 PM Subject: [delphi-br] Código de Barras Galera; Estou precisando de um componente ou função que gere códigos de barras em Delphi/Kylix para impressões em modo texto. Ex.: Nota Fiscal Alguém sabe me informar onde posso encontrar, já procurei na net e não achei só encontrei para modo gráfico. Obrigado Francisco Mansi -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Código de Barras
Tem dois tipos de funções que eu tenho. Para gerar código I25 e EAN13. As duas
utilizam um componente imagem
Procedure I25CriaCodBarra(Cod : String; Imagem : TCanvas);
Const
digitos : array['0'..'9'] of string[5]= ('00110', '10001',
'01001', '11000',
'00101', '10100',
'01100', '00011',
'10010', '01010');
Var
Numero : String;
Cod1 : Array[1..1000] Of Char;
Cod2 : Array[1..1000] Of Char;
Codigo : Array[1..1000] Of Char;
Digito : String;
c1,c2 : Integer;
x,y,z,h : LongInt;
a,b,c,d : TPoint;
I : Boolean;
Begin
Numero := Cod;
For x := 1 to 1000 Do
Begin
Cod1 [x] := #0;
Cod2 [x] := #0;
Codigo[x] := #0;
End
;
c1 := 1;
c2 := 1;
x := 1;
For y := 1 to Length(Numero) div 2 do
Begin
Digito := Digitos[Numero[x ]];
For z := 1 to 5 do
Begin
Cod1[c1] := Digito[z];
Inc(c1);
End
;
Digito := Digitos[Numero[x+1]];
For z := 1 to 5 do
Begin
Cod2[c2] := Digito[z];
Inc(c2);
End
;
Inc(x,2);
End
;
y := 5;
Codigo[1] := '0';
Codigo[2] := '0';
Codigo[3] := '0';
Codigo[4] := '0'; { Inicio do Codigo }
For x := 1 to c1-1 do
begin
Codigo[y] := Cod1[x]; Inc(y);
Codigo[y] := Cod2[x]; Inc(y);
end
;
Codigo[y] := '1'; Inc(y); { Final do Codigo }
Codigo[y] := '0'; Inc(y);
Codigo[y] := '0';
Imagem.Pen .Width := 1;
Imagem.Brush.Color := ClWhite;
Imagem.Pen .Color := ClWhite;
a.x := 1; a.y := 0;
b.x := 1; b.y := 79;
c.x := 2000; c.y := 79;
d.x := 2000; d.y := 0;
Imagem.Polygon([a,b,c,d]);
Imagem.Brush.Color := ClBlack;
Imagem.Pen .Color := ClBlack;
x := 0;
i := True;
for y:=1 to 1000 do
begin
If Codigo[y] #0 Then
Begin
If Codigo[y] = '0' then
h := 1
Else
h := 3
;
a.x := x; a.y := 0;
b.x := x; b.y := 79;
c.x := x+h-1; c.y := 79;
d.x := x+h-1; d.y := 0;
If i Then Imagem.Polygon([a,b,c,d]);
i := Not(i);
x := x + h;
End
;
end
;
end;
Function EAN13Calculadv(codigo:string):string;
var
i,sp,si,d,dv:word;
s:single;
begin
if length(codigo)12 then codigo:=copy(codigo,1,12);
sp:=0;
si:=0;
for i:=1 to length(codigo) do
begin
d:=strtoint( copy(codigo,i,1) );
if odd(length(codigo)+1-i) then si:=si+d*7 else sp:=sp+d*9;
end
;
s:=(sp+si)/10;
dv:=Trunc(10*frac(s));
if codigo='' then
EAN13Calculadv := ''
else
EAN13Calculadv := codigo+inttostr(dv)
;
end;
procedure EAN13DesenhaBarras(SequenciaHexa: string; Imagem: TCanvas);
var
X, Y, H: LongInt;
A, B, C, D: TPoint;
I: Boolean;
begin
Imagem.Brush.Color := ClWhite;
Imagem.Pen.Color := ClBlack;
x := 10;
i := True;
for y := 1 to Length(SequenciaHexa) do
begin
if SequenciaHexa[y] = '0' then
Imagem.Pen.Color := ClWhite
else
Imagem.Pen.Color := ClBlack
;
h := 1;
a.x := x;
a.y := 0;
b.x := x;
b.y := 50;
c.x := x + h - 1;
c.y := 50;
d.x := x + h - 1;
d.y := 0;
case Y of
1..3, 46..50, 93..95:
begin
b.y := 55;
c.y := 55;
end
;
end;
Imagem.Polygon([A, B, C, D]);
i := not (i);
x := x + h;
end
;
end;
procedure EAN13CriaCodBarra(CodBarras: string; Imagem: TCanvas);
const
TabelaA: array[0..9] of string[7] = ('0001101', '0011001',
'0010011', '001',
'0100011', '0110001',
'010', '0111011',
'0110111', '0001011');
TabelaB: array[0..9] of string[7] = ('0100111', '0110011',
'0011011', '0011011',
'0011101', '0111001',
'101', '0010001',
'0001001', '0010111');
TabelaC: array[0..9] of string[7] = ('1110010', '1100110',
'1101100', '110',
'1011100', '1001110',
'101', '1000100',
'1001000', '1110100');
TabAux: array[0..9] of string[6] = ('AA', 'AABABB',
'AABBAB', 'AABBBA',
'ABAABB', 'ABBAAB',
'ABBBAA', 'ABABAB',
'ABABBA', 'ABBABA');
var
Codigo: string;
Formato: string;
PegaDaTabela: string;
DecimoTerceiroDig: Byte;
Cont: Byte;
begin
Re: [delphi-br] Código de Barras
Coloque isso aki logo embaixo de implementation
function Set_Darkness ( darkness:integer):integer;stdcall;external
'WINPPLA.DLL';
function CreatePrn(
selection:integer;FileName:String):integer;stdcall;external 'WINPPLA.DLL';
function Print_Out(
width,height,copies,amount:integer):integer;stdcall;external 'WINPPLA.DLL';
function Prn_Text (
x,y,ori,font,typee,hor_factor,ver_factor:integer;mode:char;numeric:integer;data:pchar):integer;stdcall;external
'WINPPLA.DLL';
function Prn_Barcode (
x,y,ori:integer;typee:char;narrow,width,height:integer;mode:char;numeric:integer;data:pchar):integer;stdcall;external
'WINPPLA.DLL';
Procedure ClosePrn ();stdcall;external 'WINPPLA.DLL';
function Set_Backfeed (back:integer):integer;stdcall;external
'WINPPLA.DLL';
Certiique-se de deixar a dll no mesmo local do executavel.
E esse é o exemplo de uso.
function
ImprimirEtqGondola(Fantasia,Descricao,Modelo,Marca,Barras:String;Preco:Double;Quant:Integer):Boolean;
begin
try
if Modelo = null then Modelo:='';
if Marca = null then Marca:='';
CreatePrn(1, 'ppla.txt'); {inicia o processo de impressao
1-lpt1,2-lpt2,3-lpt3,}
Set_Darkness(14);
Set_Backfeed(320);
{x, y, ori,tp, nar,wd,hei;mode,num;data}
Prn_Barcode(1, 14, 1, 'F', 2, 18, 21, 'N', 0,
pchar(COPY(CompletaCaracteres(Barras,12,'0','E'),1,12)));
{x, y, ori,f,tf,hor,vr,mod,num ;data}
Prn_Text(0, 75, 1, 2, 0, 2, 2, 'n', 0, pchar(UpperCase(Descricao)));
Prn_Text(0, 60, 1, 2, 0, 2, 1, 'n', 0, pchar(UpperCase(Modelo)));
Prn_Text(0, 45, 1, 2, 0, 2, 1, 'n', 0, pchar(UpperCase(Marca)));
Prn_Text(105,15, 1, 5, 0, 2, 1, 'n', 0, pchar('R$'));
Prn_Text(160,15, 1, 5, 0, 3, 2, 'n', 0, pchar(formatfloat('#,##0.00',
Preco)));
Prn_Text(50, 0, 1, 2, 0, 2, 1, 'n', 0, pchar(Fantasia));
Print_Out(1,1,Quant,1);
ClosePrn;
Result:=True;
except
Result:=False;
end;
end;
Marcio Carvalho escreveu:
Pessoal
Alguel já usou uma dll (free) de código de barras e tem ela e as intruções
de como usa?
estou tentando com a WINPPLA.DLL mas não estou obtendo sucesso
veleu
Marcio
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
*Yahoo! Grupos, um serviço oferecido por:*
PUBLICIDADE
*Links do Yahoo! Grupos*
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html.
___
Promoção Yahoo! Acesso Grátis: a cada hora navegada você
acumula cupons e concorre a mais de 500 prêmios! Participe!
http://yahoo.fbiz.com.br/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Código de barras
Qual delhpi vc usa ?? On 4/20/05, Fernando [EMAIL PROTECTED] wrote: Boa tarde pessoal. Estou precisando emitir umas etiquetas de produtos com código de barras (EAN-13 e/ou EAN-14). Gostaria de saber se alguém tem conhecimento de algum componente bom e FREE, que possa utilizar no QuickReport para implementar a emissão destas etiquetas. Grato pela atençao. Atenciosamente, Fernando. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.10.1 - Release Date: 20/04/05 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- Artur Rodrigo Guerra mail: [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Código de barras
Artur, Tenho dois componentes free mas, que eu saiba, o Gmail não recebe arquivos atachados zip, se você tiver outro e-mail te envio, Um destes componentes se chama fbarcode. Você também pode baixar no próprio site do clube do delphi ou no delphi-br achoque la também tem, esses componentes são bem comuns e tem de monte. At+ Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 - Original Message - From: Artur Guerra [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 21, 2005 3:40 PM Subject: Re: [delphi-br] Código de barras Qual delhpi vc usa ?? On 4/20/05, Fernando [EMAIL PROTECTED] wrote: Boa tarde pessoal. Estou precisando emitir umas etiquetas de produtos com código de barras (EAN-13 e/ou EAN-14). Gostaria de saber se alguém tem conhecimento de algum componente bom e FREE, que possa utilizar no QuickReport para implementar a emissão destas etiquetas. Grato pela atençao. Atenciosamente, Fernando. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.10.1 - Release Date: 20/04/05 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- Artur Rodrigo Guerra mail: [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.18 - Release Date: 19/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.18 - Release Date: 19/04/2005 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] código de barras para bloqueto bancário - delphi 7 URGENTE
Oi José, eu uso esse código aqui!!! Gera em um QrImage um código de barras
2de5intercalado Normalmente usado para bancos... Qualquer dúvida entre em
contato em PVT...
Procedure TImprimeCarteirinha.CriaCodigo(Cod : String; Imagem : TCanvas);
Const
digitos : array['0'..'9'] of string[5]= ('00110',
'10001',
'01001',
'11000',
'00101',
'10100',
'01100',
'00011',
'10010',
'01010');
Var
Numero : String;
Cod1 : Array[1..1000] Of Char;
Cod2 : Array[1..1000] Of Char;
Codigo : Array[1..1000] Of Char;
Digito : String;
c1,c2 : Integer;
x,y,z,h : LongInt;
a,b,c,d : TPoint;
I : Boolean;
Begin
Numero := Cod;
For x := 1 to 1000 Do
Begin
Cod1 [x] := #0;
Cod2 [x] := #0;
Codigo[x] := #0;
End;
c1 := 1;
c2 := 1;
x := 1;
For y := 1 to Length(Numero) div 2 do
Begin
Digito := Digitos[Numero[x ]];
For z := 1 to 5 do
Begin
Cod1[c1] := Digito[z];
Inc(c1);
End;
Digito := Digitos[Numero[x+1]];
For z := 1 to 5 do
Begin
Cod2[c2] := Digito[z];
Inc(c2);
End;
Inc(x,2);
End;
y := 5;
Codigo[1] := '0';
Codigo[2] := '0';
Codigo[3] := '0';
Codigo[4] := '0'; { Inicio do Codigo }
For x := 1 to c1-1 do
begin
Codigo[y] := Cod1[x]; Inc(y);
Codigo[y] := Cod2[x]; Inc(y);
end;
Codigo[y] := '1'; Inc(y); { Final do Codigo }
Codigo[y] := '0'; Inc(y);
Codigo[y] := '0';
Imagem.Pen .Width := 1;
Imagem.Brush.Color := ClWhite;
Imagem.Pen .Color := ClWhite;
a.x := 1; a.y := 0;
b.x := 1; b.y := 79;
c.x := 2000; c.y := 79;
d.x := 2000; d.y := 0;
Imagem.Polygon([a,b,c,d]);
Imagem.Brush.Color := ClBlack;
Imagem.Pen .Color := ClBlack;
x := 0;
i := True;
for y:=1 to 1000 do
begin
If Codigo[y] #0 Then
Begin
If Codigo[y] = '0' then
h := 2
Else
h := 4;
a.x := x; a.y := 0;
b.x := x; b.y := 79;
c.x := x+h-1; c.y := 79;
d.x := x+h-1; d.y := 0;
If i Then
Imagem.Polygon([a,b,c,d]);
i := Not(i);
x := x + h;
End;
end;
end;
José Maria [EMAIL PROTECTED] wrote:
Alguem conhece algum freeware? Uso o DuckBarcode mas ele só existe
até o Delphi 5. Se possível, me envie um exemplo em PVT.
Obrigado
Jose Maria
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
-
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
__
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Código de Barras no QReport
isso, vc vai ter que achar algum componente, ou usar a versao pró dele, que se nao me engano tem um componente de código de barras []´s Rodrigo O. Farias - Original Message - From: omarcosmhs To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 22, 2005 6:13 PM Subject: [delphi-br] Código de Barras no QReport Pessoal estou procurando por formas de gerar código de barras pelo QReport, alguem conhece uma forma? É um componente? Grato desde ja Marcos H. Silva -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Código de Barras
Isso varia muito. No segmento supermercadista (tanto atacado como varejo), usa-se o EAN13. Agora no comércio geral, dos mais popularmente usados são o Code39 e o 2 de 5. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas CABTEC - Soluções em Código de Barras Belo Horizonte - MG Fone: (31) 2125-9019 - Fax: (31) 2125-9030 http://www.cabtec.com.br [EMAIL PROTECTED] - Original Message - From: Otavio Gasparovic do Nascimento [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, September 24, 2004 10:42 AM Subject: [delphi-br] Código de Barras Pessoal, Alguem sabe informar que tipo de codigo de barras é utilizado no comercio em geral tipo EAN13 COD39,etc desde já agradeço. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
