Boa tarde parceiros, como vão ?
Como imprimo código de barras usando o Harbour 3.2 ?
Agradeço a todos.
MaurÃcio.
Como Imprimir Cód.Barras no Harbour 3.2 ?
Moderador: Moderadores
19 Mensagens • Página 1 de 2 • 1, 2
Como Imprimir Cód.Barras no Harbour 3.2 ?
por MaurÃcio Elias » 08 Set 2017 15:33
Abraços.
_______
MaurÃcio
_______
MaurÃcio
-
MaurÃcio Elias Usuário NÃvel 3 
- Mensagens: 302
- Data de registro: 12 Mai 2005 08:48
- Curtiu: 0 vez
- Mens.Curtidas: 2 vezes
Como Imprimir Cód.Barras no Harbour 3.2 ?
por Toledo » 08 Set 2017 22:49
Amigo, veja estes exemplos:
C:\hb32\contrib\hbgd\tests\barcode.prg
C:\hb32\contrib\hbgd\tests\barcode2.prg
C:\hb32\contrib\hbtip\hbzebra\tests\cairo.prg
C:\hb32\contrib\hbtip\hbzebra\tests\harupdf.prg
C:\hb32\contrib\hbtip\hbzebra\tests\wingdi.prg
C:\hb32\contrib\hbwin\tests\prn1.prg
C:\hb32\extras\ps32\TPSCRIPT.PRG
Nos arquivos acima, procure por barcode.
Abraços
C:\hb32\contrib\hbgd\tests\barcode.prg
C:\hb32\contrib\hbgd\tests\barcode2.prg
C:\hb32\contrib\hbtip\hbzebra\tests\cairo.prg
C:\hb32\contrib\hbtip\hbzebra\tests\harupdf.prg
C:\hb32\contrib\hbtip\hbzebra\tests\wingdi.prg
C:\hb32\contrib\hbwin\tests\prn1.prg
C:\hb32\extras\ps32\TPSCRIPT.PRG
Nos arquivos acima, procure por barcode.
Abraços
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
-
Toledo Administrador 
- Mensagens: 3038
- Data de registro: 22 Jul 2003 18:39
- Cidade/Estado: Araçatuba - SP
- Curtiu: 263 vezes
- Mens.Curtidas: 258 vezes
Como Imprimir Cód.Barras no Harbour 3.2 ?
por Linguagemclipper » 31 Ago 2020 22:31
Amigos, preciso da HBGD para imprimir código de barras, mas parece que não veio pronta com o Harbour 3.2.
Já fazia isso com o xHarbour, o problema é compilar com o Harbour 3.2.
Se eu faço isso:
Dá erro para a HBGD, mas a FreeImage passa.
Como é que eu resolvo essa parada?
Já fazia isso com o xHarbour, o problema é compilar com o Harbour 3.2.
Se eu faço isso:
#BGD e FreeImage
hbgd.hbc
hbfimage.hbc
Dá erro para a HBGD, mas a FreeImage passa.
I:/hb32/comp/mingw/bin/../lib/gcc/i686-w64-mingw32/7.3.0/../../../../i686-w64-mingw32/bin/ld.exe: cannot find -lhbgd
Como é que eu resolvo essa parada?
Usando xHarbour v1.2.3 Rev. 10264 + BCC 5.8, Elchs' LetoDBf, DBFCDX e SIBRA para imprimir relatórios.
-
Linguagemclipper Usuário NÃvel 3 - Mensagens: 214
- Data de registro: 16 Abr 2016 17:33
- Cidade/Estado: Maceió/AL
- Curtiu: 38 vezes
- Mens.Curtidas: 12 vezes
Como Imprimir Cód.Barras no Harbour 3.2 ?
por asimoes » 01 Set 2020 09:51
Olá,
Vai ter que gerar o harbour compilando a lib exemplo:
SET HB_WITH_GD=C:\gd\include
O problema é achar o projeto da lib pra compilar.
Agora se é somente para gerar o CB tem exemplo na Minigui, pode usar também Win_Prn() usando fonte para código de barras.
Vai ter que gerar o harbour compilando a lib exemplo:
SET HB_WITH_GD=C:\gd\include
O problema é achar o projeto da lib pra compilar.
Agora se é somente para gerar o CB tem exemplo na Minigui, pode usar também Win_Prn() usando fonte para código de barras.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
-
asimoes Colaborador 
- Mensagens: 4919
- Data de registro: 26 Abr 2007 16:48
- Cidade/Estado: RIO DE JANEIRO-RJ
- Curtiu: 341 vezes
- Mens.Curtidas: 258 vezes
Como Imprimir Cód.Barras no Harbour 3.2 ?
por JoséQuintas » 01 Set 2020 10:17
asimoes escreveu:pode usar também Win_Prn() usando fonte para código de barras.
Só pra ajudar:
Existe fonte arial, courier, etc. e também fonte pra código de barras.
Usa como se fosse um tipo de letra, mas é código de barras.
E, lógico, precisa distribuir com o aplicativo.
O ideal é usar a hbzebra, que tem tudo que é código de barras, inclusive QRCode, e faz parte do Harbour sem precisar baixar nada adicional.
A hbzebra é uma rotina de "desenho", onde se passa o código e um codeblock.
Se o codeblock vai desenhar pra impressora, pra PDF, pra tela, pra arquivo de imagem.... tanto faz...
Acaba sendo bem flexÃvel, porque dá pra usar pra qualquer coisa.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
JoséQuintas Membro Master 
- Mensagens: 18151
- Data de registro: 26 Fev 2007 11:59
- Cidade/Estado: São Paulo-SP
- Curtiu: 15 vezes
- Mens.Curtidas: 1215 vezes
Como Imprimir Cód.Barras no Harbour 3.2 ?
por asimoes » 01 Set 2020 10:25
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
-
asimoes Colaborador - Mensagens: 4919
- Data de registro: 26 Abr 2007 16:48
- Cidade/Estado: RIO DE JANEIRO-RJ
- Curtiu: 341 vezes
- Mens.Curtidas: 258 vezes
Como Imprimir Cód.Barras no Harbour 3.2 ?
por asimoes » 01 Set 2020 10:26
Quintas,
Tinha esquecido da Hbzebra, é melhor usar ela.
Tinha esquecido da Hbzebra, é melhor usar ela.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
-
asimoes Colaborador - Mensagens: 4919
- Data de registro: 26 Abr 2007 16:48
- Cidade/Estado: RIO DE JANEIRO-RJ
- Curtiu: 341 vezes
- Mens.Curtidas: 258 vezes
Como Imprimir Cód.Barras no Harbour 3.2 ?
por asimoes » 01 Set 2020 10:29
Na pasta tests da hbzebra, boa diversão
PROCEDURE Main()
LOCAL hSurface := cairo_pdf_surface_create( hb_FNameExtSet( __FILE__, ".pdf" ), 567, 794 ) // A4
LOCAL hCairo := cairo_create( hSurface )
cairo_set_source_rgb( hCairo, 1.0, 1.0, 1.0 )
cairo_paint( hCairo )
cairo_select_font_face( hCairo, "sans-serif", CAIRO_FONT_SLANT_NORMAL, CAIRO_FONT_WEIGHT_NORMAL )
cairo_set_font_size( hCairo, 10 )
cairo_set_source_rgb( hCairo, 0, 0, 0 )
DrawBarcode( hCairo, 20, 1, "EAN13", "477012345678" )
DrawBarcode( hCairo, 40, 1, "EAN8", "1234567" )
DrawBarcode( hCairo, 60, 1, "UPCA", "01234567891" )
DrawBarcode( hCairo, 80, 1, "UPCE", "123456" )
DrawBarcode( hCairo, 100, 1, "CODE39", "ABC123" )
DrawBarcode( hCairo, 120, 1, "CODE39", "ABC123", HB_ZEBRA_FLAG_CHECKSUM )
DrawBarcode( hCairo, 140, 0.5, "CODE39", "ABC123", HB_ZEBRA_FLAG_CHECKSUM + HB_ZEBRA_FLAG_WIDE2_5 )
DrawBarcode( hCairo, 160, 1, "CODE39", "ABC123", HB_ZEBRA_FLAG_CHECKSUM + HB_ZEBRA_FLAG_WIDE3 )
DrawBarcode( hCairo, 180, 1, "ITF", "1234", HB_ZEBRA_FLAG_WIDE3 )
DrawBarcode( hCairo, 200, 1, "ITF", "12345678901", HB_ZEBRA_FLAG_CHECKSUM )
DrawBarcode( hCairo, 220, 1, "MSI", "1234" )
DrawBarcode( hCairo, 240, 1, "MSI", "1234", HB_ZEBRA_FLAG_CHECKSUM + HB_ZEBRA_FLAG_WIDE3 )
DrawBarcode( hCairo, 260, 1, "MSI", "1234567", HB_ZEBRA_FLAG_CHECKSUM )
DrawBarcode( hCairo, 280, 1, "CODABAR", "40156", HB_ZEBRA_FLAG_WIDE3 )
DrawBarcode( hCairo, 300, 1, "CODABAR", "-1234", HB_ZEBRA_FLAG_WIDE3 )
DrawBarcode( hCairo, 320, 1, "CODE93", "ABC-123" )
DrawBarcode( hCairo, 340, 1, "CODE93", "TEST93" )
DrawBarcode( hCairo, 360, 1, "CODE11", "12", HB_ZEBRA_FLAG_WIDE3 )
DrawBarcode( hCairo, 380, 1, "CODE11", "1234567890", HB_ZEBRA_FLAG_CHECKSUM + HB_ZEBRA_FLAG_WIDE3 )
DrawBarcode( hCairo, 400, 1, "CODE128", "Code 128" )
DrawBarcode( hCairo, 420, 1, "CODE128", "61300073570004616" )
DrawBarcode( hCairo, 440, 1, "CODE128", "Wikipedia" )
DrawBarcode( hCairo, 460, 1, "PDF417", "Hello, World of Harbour!!! It's 2D barcode PDF417 :)" )
DrawBarcode( hCairo, 540, 1, "DATAMATRIX", "Hello, World of Harbour!!! It's 2D barcode DataMatrix :)" )
DrawBarcode( hCairo, 580, 1, "QRCODE", "https://en.wikipedia.org/wiki/QR_Code" )
cairo_destroy( hCairo )
cairo_surface_write_to_png( hSurface, hb_FNameExtSet( __FILE__, ".png" ) )
cairo_surface_destroy( hSurface )
RETURN
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
-
asimoes Colaborador - Mensagens: 4919
- Data de registro: 26 Abr 2007 16:48
- Cidade/Estado: RIO DE JANEIRO-RJ
- Curtiu: 341 vezes
- Mens.Curtidas: 258 vezes
Como Imprimir Cód.Barras no Harbour 3.2 ?
por asimoes » 01 Set 2020 10:45
Exemplo usando HbZebra:
demo.pdf- (41.23 KiB) Baixado 169 vezes
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
-
asimoes Colaborador - Mensagens: 4919
- Data de registro: 26 Abr 2007 16:48
- Cidade/Estado: RIO DE JANEIRO-RJ
- Curtiu: 341 vezes
- Mens.Curtidas: 258 vezes
Como Imprimir Cód.Barras no Harbour 3.2 ?
por Linguagemclipper » 01 Set 2020 13:08
Simões, eu já tinha conseguido baixar o projeto da GD, mas não consigo compilar. Falta algo.
Meu sistema já funciona com a GD para código de barras bonitinho no xHarbour, mas quero compilar no Harbour agora, mas não consigo.
Essa Zebra tem no xHarbour também? Preciso de uma solução que funcione em ambos, tanto no xHarbour quanto no Harbour.
Meu sistema já funciona com a GD para código de barras bonitinho no xHarbour, mas quero compilar no Harbour agora, mas não consigo.
Essa Zebra tem no xHarbour também? Preciso de uma solução que funcione em ambos, tanto no xHarbour quanto no Harbour.
Usando xHarbour v1.2.3 Rev. 10264 + BCC 5.8, Elchs' LetoDBf, DBFCDX e SIBRA para imprimir relatórios.
-
Linguagemclipper Usuário NÃvel 3 - Mensagens: 214
- Data de registro: 16 Abr 2016 17:33
- Cidade/Estado: Maceió/AL
- Curtiu: 38 vezes
- Mens.Curtidas: 12 vezes
Como Imprimir Cód.Barras no Harbour 3.2 ?
por asimoes » 01 Set 2020 13:21
xHarbour eu não uso então fica difÃcil dizer, xHarbour não recomendo o uso.
Qualquer exemplo aqui na maioria é para harbour 3.2 ou 3.4
Qualquer exemplo aqui na maioria é para harbour 3.2 ou 3.4
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
-
asimoes Colaborador - Mensagens: 4919
- Data de registro: 26 Abr 2007 16:48
- Cidade/Estado: RIO DE JANEIRO-RJ
- Curtiu: 341 vezes
- Mens.Curtidas: 258 vezes
Como Imprimir Cód.Barras no Harbour 3.2 ?
por Linguagemclipper » 01 Set 2020 13:53
Entendo. Meu problema é arrumar essa HBGD.
O resto é só compilar porque está tudo pronto.
O resto é só compilar porque está tudo pronto.
Usando xHarbour v1.2.3 Rev. 10264 + BCC 5.8, Elchs' LetoDBf, DBFCDX e SIBRA para imprimir relatórios.
-
Linguagemclipper Usuário NÃvel 3 - Mensagens: 214
- Data de registro: 16 Abr 2016 17:33
- Cidade/Estado: Maceió/AL
- Curtiu: 38 vezes
- Mens.Curtidas: 12 vezes
Como Imprimir Cód.Barras no Harbour 3.2 ?
por fogueira » 11 Dez 2021 17:34
Asimoes, como compilar o exemplo que referiu que está no cairo.prg da pasta tests?
Obrigado
Obrigado
-
fogueira Usuário NÃvel 1 
- Mensagens: 10
- Data de registro: 02 Dez 2021 17:14
- Cidade/Estado: Portugal
- Curtiu: 0 vez
- Mens.Curtidas: 1 vez
Como Imprimir Cód.Barras no Harbour 3.2 ?
por alxsts » 12 Dez 2021 14:48
Olá!
Infelizmente o colega Alexandre Simões é falecido. Vejamos se outro colega pode te ajudar. Sucesso!
Infelizmente o colega Alexandre Simões é falecido. Vejamos se outro colega pode te ajudar. Sucesso!
[]´s
Alexandre Santos (AlxSts)
Alexandre Santos (AlxSts)
-
alxsts Colaborador - Mensagens: 2945
- Data de registro: 12 Ago 2008 15:50
- Cidade/Estado: São Paulo-SP-Brasil
- Curtiu: 21 vezes
- Mens.Curtidas: 248 vezes
Como Imprimir Cód.Barras no Harbour 3.2 ?
por JoséQuintas » 13 Dez 2021 06:08
Basicamente, a hbzebra gera o código de barras, e chama uma rotina que VOCÊ define pra fazer o desenho.
Se vai ser PDF, impressora, tela, etc. tanto faz, VOCÊ é que coloca a rotina.
Essa rotina é um codeblock.
Como é comum no Harbour:
- na pasta hbzebra tem exemplos de uso da lib hbzebra
- na pasta hbcairo tem exemplos de uso da lib hbcairo
Se não tiver no Harbour 3.2, dá uma olhada no Harbour 3.4.
Se vai ser PDF, impressora, tela, etc. tanto faz, VOCÊ é que coloca a rotina.
Essa rotina é um codeblock.
Como é comum no Harbour:
- na pasta hbzebra tem exemplos de uso da lib hbzebra
- na pasta hbcairo tem exemplos de uso da lib hbcairo
Se não tiver no Harbour 3.2, dá uma olhada no Harbour 3.4.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
JoséQuintas Membro Master - Mensagens: 18151
- Data de registro: 26 Fev 2007 11:59
- Cidade/Estado: São Paulo-SP
- Curtiu: 15 vezes
- Mens.Curtidas: 1215 vezes
Quem está online
Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
