Code Bar PDF417 ó QR Code

[horacio]

Me he bajado las fuentes del link que dejó Daniel. Al compilar me echa este error
Error E2451 codabar.c 180: Undefined Symbol "HB_ERR_FUNCNAME" in function HB_FUN_HB_ZEBRA_CREATE_CODABAR
Estoy compilando con xHarbour. Algo estaré haciendo Mal ??? Gracias

[Daniel Garcia-Gil]

Saludos

que version de xharbour estas usando...?

[horacio]

Gracias Daniel por contestar. Uso xHarbour build 1.1.0 Intl. (Simplex)

[Daniel Garcia-Gil]

Gracias Daniel por contestar. Uso xHarbour build 1.1.0 Intl. (Simplex)

me atrevo a decir que es la version de xharbour... al parecer es algo antigua...

que version de fivewin usas??

[horacio]

Uso fwh 7.12
Saludos

[toya]

Daniel, gerei o teste que postastes e gerou tudo ok...
Fui tentar gerar uma lib e me deparei com o seguinte erro:

can't spill register variable: esi (1) pEC
c:\tools\xZebra\source\c\pdf417.c(1230): fatal error: Internal error: best_spillee.

Estou utilizando:
fwh 11.01
xHarbour Comercial 1.2.1 (Rev. 6633)
bcc55

[Daniel Garcia-Gil]

Hello


sorry i'm not work with xharbour builder... i cant not test...

[ochacon]

Estimados compadres.
Exelente aportacion , he complilado, y de maravillas. pero

He impreso una pruebas , pero cuando le metes datos de 50 caracateres o mas, el mismo codigo se desarma, ademas por alguna raxon que no entiendo el "PDF417" no funciona en el lector de 2d no logra leerlo, pero el DATAMATRIX que creas, si funciona pero ,

Observacion .. EL datamatrix generado yo lo utilizo en un appliacion lo conozco bien , el que genera la libreria Zebra se asemeja mas aun "PDF417" que al mismo dataamtrix,

Pero funciona, como se puede cambiar el ancho y el largo, en que escala se incrementa el largo y ancho, y por ultimo como porias eliminar HR el txto que contiene el codigo,
Gracias

Ochacon
Busmatic de CR.

[ochacon]

Me podrian decir que es este error y com lo corrijo no me deja continuar tengo

incluido los .c
la libreria .lib
la clase .prg
y noy manera

Proyecto: boleteria, Entorno: xHar109:
[1]:Bcc32.Exe -DHB_API_MACROS -M -c -O2 -e -tWM -DHB_STACK_MACROS -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF -IC:\FWH109\include -IC:\XHARBO~2\Include;C:\bcc582\Include -nC:\PROYEC~1\TRALAPA\Obj zebra\source\c\core.c
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
zebra\source\c\core.c:
Error E2451 zebra\source\c\core.c 199: Undefined symbol 'hb_stackST' in function hb_zebra_ret
Error E2451 zebra\source\c\core.c 236: Undefined symbol 'hb_stackST' in function HB_FUN_HB_ZEBRA_GETERROR
Error E2451 zebra\source\c\core.c 245: Undefined symbol 'hb_stackST' in function HB_FUN_HB_ZEBRA_GETCODE
*** 3 errors in Compile ***


Elguna Idea que tengais por ahi o posible solucion

Gracias

[Andrés González]

Perdona que insista Daniel, pero alguien ha hecho algo ya en QR code. Veo que el ejemplo es de codigo de barras pero no de QR Code o me pierdo algo?
http://es.wikipedia.org/wiki/C%C3%B3digo_QR

[Daniel Garcia-Gil]

Saludos
...los codebar que usa la ZEBRA, EAN13, EAN8, UPCA, UPCE, CODE39, ITF, MSI, CODABAR, CODE93, CODE11, CODE128, PDF417, DATAMATRIX

hasta donde se solo trabaja con eso tipos de codebar

[elmoiquique]

Hola Daniel

Necesito tu ayuda, estoy tratando de pasar la imagen que se forma del codigo de barra en la pantalla , he seguido tus consejos de otros post, pero me ha sido imposible, me crea un archivo FILE.BMP, pero que no se puede leer, no se que estoy haciendo mal, te dejo parte del codigo, a ver si me puedes hechar una manito o por ultimo pasarlo directamente a un archivo .BMP o JPG

gracias

Code: Select all  Expand view

function BuildCode( nCode, cCode, nFlags )

   LOCAL hDC1 := ovent:GetDC( )
   LOCAL hDC := CreateCompatibleDC( hDC1 )
   LOCAL hDib
   LOCAL hBmp := CreateCompatibleBitmap( hDC1, 150, 50 )
   LOCAL hOldBmp := SelectObject( hDC, hBmp )

   default nFlags := 0
   
   oCode:Reset()
   if nCode < CODEBAR_PDF417
      oCode:nHeightCode = oCode:nHeight - 50
      oCode:nWidthCode  = 1.5
   else
      oCode:nHeightCode = 3
      oCode:nWidthCode =  1
   endif
   oCode:SetType( nCode )
   oCode:SetCode( cCode )
   oCode:SetFlags( nFlags )
   oCode:Build()

   DrawBitmap( hDC, oCode:hCodeBar, 0, 0 )

   hDib := DibFromBitmap( hBmp )
   DibWrite( "file.bmp" , hDib )
   GloBalFree( hDib )
 
   ovent:ReleaseDC()
   
return nil  

 

[Daniel Garcia-Gil]

Hola

Ten pendiente de eliminar los Objetos GDI que estes creando, sino te comeras la memoria bastabte rapido

1) Deselecciona y elimina el handle del bitmap que estas creando hBmp
SelectObject( hDC, hOldBmp )
DeleteObject( hBmp )
2) eliminar el hDC que ya no usas con DeleteDC( hDC )

ahora prueba esta secuencia

Code: Select all  Expand view

DrawBitmap( hDC, oCode:hCodeBar, 0, 0 )
SelectObject( hDC, hOldBmp )
hDib := DibFromBitmap( hBmp )
DibWrite( "file.bmp" , hDib )
GloBalFree( hDib )

DeleteObject( hBmp )
DeleteDC( hDC )
ovent:ReleaseDC()
 

[elmoiquique]

Hola Daniel

Hice lo que me indicaste, pero aun asi sigue creando el Archivo bmp sin poder leerlo

Code: Select all  Expand view

function BuildCode( nCode, cCode, nFlags )

   local hDC := oWnd:GetDC()
   LOCAL hDC1 := CreateCompatibleDC( hDC1 )
   LOCAL hDib
   LOCAL hBmp := CreateCompatibleBitmap( hDC, 150, 50 )
   LOCAL hOldBmp := SelectObject( hDC1, hBmp )

   default nFlags := 0
   
   oCode:Reset()
   if nCode < CODEBAR_PDF417
      oCode:nHeightCode = oCode:nHeight - 50
      oCode:nWidthCode  = 1.5
   else
      oCode:nHeightCode = 3
      oCode:nWidthCode =  1
   endif
   oCode:SetType( nCode )
   oCode:SetCode( cCode )
   oCode:SetFlags( nFlags )
   oCode:Build()

   DrawBitmap( hDC, oCode:hCodeBar, 0, 0 )

   selectObject( hdc,hOldbmp )
   hDib := DibFromBitmap( hBmp )
   DibWrite( "file.bmp" , hDib )
   GloBalFree( hDib )
 
   DeleteObject( hbmp )
   DeleteDc ( hDC )
   oWnd:ReleaseDC()
   
return nil  


 

[elmoiquique]

Daniel

Estuve leyendo el Email, que enviaste y despues de las pruebas que he hecho y llego al mismo resultado, el bmp se crea pero con un formato desconocido...

Habra alguna solucion como por ejemplo pasarlo directamente a un archivo, sin pasar por una ventana, hice este ejemplo aunque igual uso el DIBWRITE, que otro comando se puede usar


oCode:SetType( nCode )
oCode:SetCode( cCode )
oCode:SetFlags( nFlags )
oCode:Build()

// DrawBitmap( hDC, oCode:hCodeBar, 0, 0 )
hDib:=( oCode:hCodeBar )
DibWrite( "file.bmp" , hDib )
GloBalFree( hDib )