Saludos
que version de xharbour estas usando...?
Gracias Daniel por contestar. Uso xHarbour build 1.1.0 Intl. (Simplex)
horacio wrote:Gracias Daniel por contestar. Uso xHarbour build 1.1.0 Intl. (Simplex)
Uso fwh 7.12
Saludos
Hello
sorry i'm not work with xharbour builder... i cant not test...
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.
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
Daniel Garcia-Gil wrote:Saludos
...los codebar que usa la ZEBRA, EAN13, EAN8, UPCA, UPCE, CODE39, ITF, MSI, CODABAR, CODE93, CODE11, CODE128, PDF417, DATAMATRIX
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 nilDrawBitmap( hDC, oCode:hCodeBar, 0, 0 )
SelectObject( hDC, hOldBmp )
hDib := DibFromBitmap( hBmp )
DibWrite( "file.bmp" , hDib )
GloBalFree( hDib )
DeleteObject( hBmp )
DeleteDC( hDC )
ovent:ReleaseDC()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 nilDaniel
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 )