[delphi-br] código de barras na Impressora PIMACO Smartlabel Printer 440
Bom dia pessoal, estamos com uma impressora PIMACO SmartLabel Printer 440 para configurar em nosso sistema com a etiqueta SLIDE 35 mm (SLP-35L)(38x11mm), utilizamos o FastReport, mas estamos abertos à utilização de outro, esgotamos nossas tentativas e até então não conseguimos gerar o código de barras a não ser pelo próprio software fornecido pela Pimaco. Já tentamos com FastReport, ACBR, BarCode e Fontes TrueType e nada! Se alguém tiver uma possível solução agradecemos! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] código de barras na Impressora PIMACO Smartlabel Printer 440
Bom dia pessoal, estamos com uma impressora PIMACO SmartLabel Printer 440 para configurar em nosso sistema com a etiqueta SLIDE 35 mm (SLP-35L)(38x11mm), utilizamos o FastReport, mas estamos abertos à utilização de outro, esgotamos nossas tentativas e até então não conseguimos gerar o código de barras a não ser pelo próprio software fornecido pela Pimaco. Já tentamos com FastReport, ACBR, BarCode e Fontes TrueType e nada! Se alguém tiver uma possível solução agradecemos! Rômulo MaywormFocus Automação - RJ [As partes desta mensagem que não continham texto foram removidas]
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
[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]
RES: [delphi-br] Código de Barras QuickReport
Bom dia, eu estou utilizando o componente em anexo no Delphi 7 não sei se roda no 2007. Att Rodrigo Alex Marchiori De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Evaldo Enviada em: terça-feira, 1 de junho de 2010 09:31 Para: delphi-br@yahoogrupos.com.br 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]
Res: [delphi-br] Código de Barras QuickRepor t
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 Para: delphi-br@yahoogrupos.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]
Re: RES: [delphi-br] Código de Barras QuickR eport
Testei aqui e funcionou perfeitamente com o delphi 2007. Obrigado! From: Rodrigo Alex Marchiori r.marchi...@uol.com.br To: delphi-br@yahoogrupos.com.br Sent: Tue, June 1, 2010 9:33:04 AM Subject: RES: [delphi-br] Código de Barras QuickReport Bom dia, eu estou utilizando o componente em anexo no Delphi 7 não sei se roda no 2007. Att Rodrigo Alex Marchiori De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Evaldo Enviada em: terça-feira, 1 de junho de 2010 09:31 Para: delphi-br@yahoogrupos.com.br 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]
RES: RES: [delphi-br] Código de Barras QuickReport
Maravilha! De nada cara. Att Rodrigo Alex Marchiori De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Evaldo Enviada em: terça-feira, 1 de junho de 2010 16:40 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Código de Barras QuickReport Testei aqui e funcionou perfeitamente com o delphi 2007. Obrigado! From: Rodrigo Alex Marchiori r.marchi...@uol.com.br mailto:r.marchiori%40uol.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tue, June 1, 2010 9:33:04 AM Subject: RES: [delphi-br] Código de Barras QuickReport Bom dia, eu estou utilizando o componente em anexo no Delphi 7 não sei se roda no 2007. Att Rodrigo Alex Marchiori De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Evaldo Enviada em: terça-feira, 1 de junho de 2010 09:31 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 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] [As partes desta mensagem que não continham texto foram removidas]
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]
[delphi-br] Código de Barras 2D
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
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]
[delphi-br] Código de Barras Boleto Quick Report
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
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]
[delphi-br] Código de Barras
Pessoal estou desenvolvendo um pequeno programa de biblioteca e agora estou com dificuldades em termina-lo, pois nao estou conseguindo emitir etiquetas com codigo de barras. A escola ja tem uma impressora de etiquetas de codigo de barras Marca SEAL , modelo TLP2642PSA. Tenho uma tabela chamada Itens que tem um campo chamado cod_barras de seis algarismos como eu poderia resolver este problema ? alguem ja tem algo pronto ou dicas que possa me ajudar, pois a primeira vez que estou trabalhando com isso. Valeu
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/
[delphi-br] Código de barras
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, 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]
[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
[delphi-br] Código de barras sem componente
Boa tarde a todos, Gostaria de saber se alguém tem um exemplo, rotina ou opinão sobre imprimir e gerar um código de barras sem componente, somente com fontes ou outro meio?
[delphi-br] Código de barras sem componente
Criar Código de Barras 2x5i
Procedure 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 := 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;
Como Usar:
procedure TForm1.Button1Click(Sender: TObject);
begin
CriaCodigo('03213213241',Image1.Canvas);
end;
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Código de barras sem componente
Gerar Código de Barras Ean13
unit UnCriaCodBarras;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Printers;
type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
procedure GeraBarrasEAN13(CodBarras: string; Imagem: TCanvas);
procedure DesenhaBarras(SequenciaHexa: string; Imagem: TCanvas);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses UnCriaCodBarrasImpressao;
{$R *.dfm}
//--
//
// ..
// | | Tabela A | Tabela B | Tabela C |
// |---+--+--+--|
// | 0 | 0001101 | 0100111 | 1110010 |
// | 1 | 0011001 | 0110011 | 1100110 |
// | 2 | 0010011 | 0011011 | 1101100 |
// | 3 | 001 | 0011011 | 110 |
// | 4 | 0100011 | 0011101 | 1011100 |
// | 5 | 0110001 | 0111001 | 1001110 |
// | 6 | 010 | 101 | 101 |
// | 7 | 0111011 | 0010001 | 1000100 |
// | 8 | 0110111 | 0001001 | 1001000 |
// | 9 | 0001011 | 0010111 | 1110100 |
// ..
// Tabela Auxiliar
// .---.
// | Algarismo | Seqüência |
// |---+---|
// | 0 | AA |
// | 1 | AABABB |
// | 2 | AABBAB |
// | 3 | AABBBA |
// | 4 | ABAABB |
// | 5 | ABBAAB |
// | 6 | ABBBAA |
// | 7 | ABABAB |
// | 8 | ABABBA |
// | 9 | ABBABA |
// .---.
//
// Gerae código de barras padrão EAN13
procedure TForm1.GeraBarrasEAN13(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
Formato := '';
Codigo := CodBarras;
DecimoTerceiroDig := StrToIntDef(CodBarras[1], 0);
{}
{ Tendo o 13º dígito definido, posso definir o padrão de impressão das barras}
{ no primeiro conjunto de 6 dígitos baseado na tabela Auxiliar. }
{}
PegaDaTabela := TabAux[DecimoTerceiroDig] + 'CC';
Formato := Formato + '101'; //-- Barra Auxiliar de Guarda 'Esquerda'
for Cont := 1 to Length(PegaDaTabela) do
begin
case PegaDaTabela[Cont] of
'A': Formato := Formato + TabelaA[StrToInt(Codigo[Cont + 1])];
'B': Formato := Formato + TabelaB[StrToInt(Codigo[Cont + 1])];
'C': Formato := Formato + TabelaC[StrToInt(Codigo[Cont + 1])];
end;
if Cont = 6 then
Formato := Formato + '01010'; //-- Barra Auxiliar de Guarda 'Central'
end;
Formato := Formato + '101'; //-- Barra Auxiliar de Guarda 'Direita'
//-- Desenha o código alfa-numérico na imagem
Imagem.Font.Size := 10;
Imagem.Brush.Color := ClWhite;
Imagem.Pen.Color := ClBlack;
Imagem.TextOut(02, 51, Copy(CodBarras, 01, 01));
Imagem.TextOut(13, 51, Copy(CodBarras, 02, 06));
Imagem.TextOut(60, 51, Copy(CodBarras, 08, 06));
//-- Desenha as barras na imagem
DesenhaBarras(Formato, Imagem);
end;
procedure TForm1.DesenhaBarras(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 TForm1.Button1Click(Sender: TObject);
begin
GeraBarrasEAN13('7891089060350', Image1.Canvas);
end;
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Código de barras para inventário de estoque
Pessoal, preciso de uma ajuda. Vamos desenvolver uma rotina pra gerar código de barras referente aos produtos do meu cliente. É pra inventário de estoque. O cara vai comprar um leitor de código de barras e o sistema vai ler e/ou emitir os códigos de barras de cada produto. Alguém tem algum componente pra isso? Ainda nem definimos qual o tipo de código de barras. Não tô afim de criar e desenhar o código de barras no braço entendem? Vlw. -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi.
[delphi-br] Código de barras
O código de barras sai de cena A substituição do popular código de barras, hoje presente nas embalagens e rótulos de produtos, é só uma questão de tempo. Seu sucessor deve ser uma etiqueta inteligente, equipada com um microchip, capaz de armazenar até seis vezes mais informações. Leia mais http://empresas.globo.com/Empresasenegocios/0,19125,ERA1297619- 2672,00.html
[delphi-br] Código de Barras
http://www.moked.com.br/ Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ Grau de Sigilo: Confidencial Reservado Interno Amplo Nível de Prioridade: Alto Médio Baixo Destinatário/s: Lista de divulgação - Bom dia, Preciso criar um módulo do sistema que faça leitura de código de barras de crachás. A leitora irá ler o código barras, e o software precisa identificar esse código no ato de leitura e realizar operações de cadastramento ou alteração de dados. Gostaria de obter informações de como fazer isso. Muito obrigado. Tamara A Moked é a Única Empresa do ramo certificada pelo ISO9000:2000 O emitente da mensagem é o responsável por seu conteúdo e divulgação, proibindo sua reprodução sem a prévia autorização do mesmo. Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o comprometimento com os Custo envolvidos! [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
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
[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 * 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
RES: [delphi-br] Código de Barras
Fabrício,
Gostei do seu código de barras, mas estou com um problema:
Uso o qr406 pro, ele exibe o código de barras no qrimage, mas na hora de
imprimir não sai nada.
Já viu isso acontecer?
Sabe como resolver?
Obrigado.
Levi
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fabrício Pinheiro França
Enviada em: terça-feira, 8 de novembro de 2005 21:51
Para: delphi-br@yahoogrupos.com.br
Assunto: 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
RES: [delphi-br] Código de Barras
Achei esse código de barras bem legal, era isso o que eu estava procurando,
gostaria de saber algumas coisas:
- Porque ele sempre começa com o 7 na frente?
- Ele não faz nenhuma rotina para verificar se o número é maior que 12 (para
gerar o 13º automaticamente), seria interessante colocar isso
- Essa rotina esta realmente certa?
Quem poderia confirmar essas informações e nos ajudar?
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Levi Ribeiro de Freitas
Enviada em: segunda-feira, 21 de novembro de 2005 14:41
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Código de Barras
Fabrício,
Gostei do seu código de barras, mas estou com um problema:
Uso o qr406 pro, ele exibe o código de barras no qrimage, mas na hora de
imprimir não sai nada.
Já viu isso acontecer?
Sabe como resolver?
Obrigado.
Levi
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fabrício Pinheiro França
Enviada em: terça-feira, 8 de novembro de 2005 21:51
Para: delphi-br@yahoogrupos.com.br
Assunto: 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
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
[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 * 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
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
CodBarras := '7' + EAN13Calculadv(CodBarras);
Formato := '';
Codigo := CodBarras;
DecimoTerceiroDig := StrToIntDef(CodBarras[1], 0);
{}
{ Tendo o 13º dígito definido, posso definir o padrão de impressão das barras}
{ no primeiro conjunto de 6 dígitos baseado na tabela Auxiliar. }
{}
PegaDaTabela := TabAux[DecimoTerceiroDig] + 'CC';
Formato := Formato + '101'; //-- Barra Auxiliar de Guarda 'Esquerda'
for Cont := 1 to Length(PegaDaTabela) do
begin
case PegaDaTabela[Cont] of
'A': Formato := Formato + TabelaA[StrToInt(Codigo[Cont + 1])];
'B': Formato := Formato + TabelaB[StrToInt(Codigo[Cont + 1])];
'C': Formato := Formato + TabelaC[StrToInt(Codigo[Cont + 1])];
end;
if Cont = 6 then
Formato := Formato + '01010' //-- Barra Auxiliar de Guarda 'Central'
;
end
;
Formato := Formato + '101'; //-- Barra Auxiliar de Guarda 'Direita'
//-- Desenha o código alfa-numérico na imagem
Imagem.Font.Size := 10;
Imagem.Brush.Color := ClWhite;
Imagem.Pen.Color := ClBlack;
Imagem.TextOut(02, 51, Copy(CodBarras, 01, 01));
Imagem.TextOut(13, 51, Copy(CodBarras, 02, 06));
Imagem.TextOut(60, 51, Copy(CodBarras, 08, 06));
//-- Desenha as barras na imagem
EAN13DesenhaBarras(Formato, Imagem);
end;
Espero ter ajudado
Fabrício Pinheiro França
- 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
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
[delphi-br] Código de Barras no rave
Pessoal. Alguém sabe como gerar código de barra 2de5 somente via rave programado?No help do Rave não tem nada muito explicativo. Grato Tiago -- 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
RES: [delphi-br] Código de barras
Olá Fernando. Não sei se você já resolveu o problema de impressão de código de barras mas vai uma dica. Eu utilizo o Delphi7 e no componente Rave tem uma paleta de código de barras. Funciona perfeitamente. REDE VIRTUAL Internet Paulo Roberto Vieira Jr Programador Web E-mail: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fernando Enviada em: quarta-feira, 20 de abril de 2005 16:50 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Código de barras 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12avrppip/M=264379.5078783.6203979.1588051/D=brclubs /S=2137111264:HM/EXP=1114097513/A=2332652/R=0/id=noscript/SIG=119058f8i/*http:/b r.download.yahoo.com/messenger/ _ 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 http://br.yahoo.com/info/utos.html 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] 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
[delphi-br] Código de barras
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 * 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
[delphi-br] código de barras para bloqueto bancário - delphi 7 URGENTE
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] 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
[delphi-br] Código de Barras
Olá. Preciso inserir um sistema de Código de Barras no meu software (impressão/leitura). Fiz uma busca no grupo, mas não encontrei esta informação. Qual a melhor forma, via fonte ou há componentes bons? E como faço se quiser trabalhar com o código de barras que já vem nos produtos? Há um problema que são os produtos que vem sem código de barras. No caso teria que gerar um código para eles, e como fica isto? Obrigado. Moacir. -- 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
[delphi-br] código de barras
Componente código de barras para Delphi 5,6,7 Padrão de barras permitidos: EAN8 EAN13 UPC-A code2e5 code39 code128A code128B code128C http://www.veloso.adm.br/pacotecjv.asp -- 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
RES: [delphi-br] Código de Barras no QReport
Eu utilizo o componente barcode funciona muito bem Otavio -Mensagem original- De: Rodrigo Othavio Farias [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 23 de fevereiro de 2005 09:27 Para: delphi-br@yahoogrupos.com.br Assunto: 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 -- 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
[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] 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
[delphi-br] Código de barras
Gostaria de saber como se cria uma leitura para código de barras tbm -- 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
RES: [delphi-br] Código de Barras
Grato Walter. -Mensagem original- De: Walter Chagas (Desenvolvimento) [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 24 de setembro de 2004 10:47 Para: [EMAIL PROTECTED] Assunto: 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] Yahoo! Grupos, um serviço oferecido por: -- 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] 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
RES: [delphi-br] Código de Barras
Vc quer gerar o código ou ler? -Mensagem original- De: mjpessi_27 [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 17 de setembro de 2004 12:24 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Código de Barras Por Favor como faço para usar codigos de barra nos meus sistemas em delphi Obrigado Marius -- 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 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!. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.764 / Virus Database: 511 - Release Date: 15/09/2004 [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
RES: RES: [delphi-br] Código de Barras
Eu utilizo o componente Duck Barcode para gerar o codigo de barras e com relacao a leitura, existem leitoras de leitora de buffer de teclado, serial ou atraves de um coletor de dados, catracas em fim há inumeros metodos de leitura. se não for isto que vc quer especifique mais OK. -Mensagem original- De: Otavio Gasparovic do Nascimento [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 17 de setembro de 2004 13:00 Para: [EMAIL PROTECTED] Assunto: RES: RES: [delphi-br] Código de Barras Eu utilizo o componente Duck Barcode para gerar o codigo de barras e com relacao a leitura, existem leitoras de leitora de buffer, serial ou atraves de um coletor de dados, catracas em fim há inumeros metodos de leitura. se não for isto que vc quer especifique mais OK. -Mensagem original- De: mjpessi_27 [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 17 de setembro de 2004 12:38 Para: [EMAIL PROTECTED] Assunto: Re: RES: [delphi-br] Código de Barras Queria saber como gerar e ler Marius -- 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 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!. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.764 / Virus Database: 511 - Release Date: 15/09/2004 [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] Yahoo! Grupos, um serviço oferecido por: -- 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!. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.764 / Virus Database: 511 - Release Date: 15/09/2004 [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
