Gerando o QRCode (se possivel direto em JPG = tamanho menor), com tamanho variável, seria o IDEAL...JoséQuintas escreveu: Sei lá se essa opção resolveria, mas depende da LIB permitir alterar.
De repente só vai complicar, pode estar tentando resolver um problema arrumando um maior ainda.
Código: Selecionar todos
METHOD DrawBarcodeQRCode( nX, nY, nLineWidth, cCode, nFlags )
LOCAL nLineHeight, hZebra
hZebra := hb_Zebra_Create_QRCode( cCode, nFlags )
nLineHeight := nLineWidth
IF hb_Zebra_GetError( hZebra ) == 0
hb_Zebra_Draw( hZebra, { | x, y, w, h | HPDF_Page_Rectangle( ::oPDFPage, x, y, w, h ) }, nX, nY, nLineWidth, -nLineHeight )
HPDF_Page_Fill( ::oPDFPage )
hb_Zebra_Destroy( hZebra )
ENDIF
RETURN NIL
Código: Selecionar todos
hb_Zebra_Draw( hZebra, { | x, y, w, h | HPDF_Page_Rectangle( ::oPDFPage, x, y, w, h ) }, nX, nY, nLineWidth, -nLineHeight )
Parece que ele pegou da HMG pra HWGUI.QRCode usando HMG_CreateBarCode portada da Minigui Ex, usando funções BT_* Bostaurus (Dr. Claudio)
Quintas, resolvido com a sua indicação (caminho das pedras): O Rochinha já havia se debruçado sobre isso. A questão é o encoding e o correctionLevel do QRCode (na função FullQrCode da QRCodeLib).JoséQuintas escreveu:aqui
https://pctoledo.org/forum/viewto ... ..........Parece que ele pegou da HMG pra HWGUI.QRCode usando HMG_CreateBarCode portada da Minigui Ex, usando funções BT_* Bostaurus (Dr. Claudio)
Mas só tem a imagem e esse comentário.
Código: Selecionar todos
FUNCTION QRCode( cStr, cFile )
hLib := hb_libLoad( "QRCodeLib.dll" )
/*Function FullQRCode( autoConfigurate AS BOOL, AutoFit AS BOOL, ;
backColor AS _INT, barColor AS _INT, ;
Texto AS LPSTR, ;
correctionLevel AS _INT, ;
encoding AS _INT, ;
marginpixels AS _INT, ;
moduleWidth AS _INT, ;
Height AS _INT, Width AS _INT, ;
FileName AS LPSTR ) AS LPSTR FROM "FullQRCode" LIB hDLL
// Niveis de Correcao(correctionLevel)
LEVEL_L 0 // 7%
LEVEL_M 1 // 15%
LEVEL_Q 2 // 25%
LEVEL_H 3 // 30%
// Nivel de codificacao(encoding)
ENC_ALPHA 0 // encodes alphanumeric characters (digits 0 - 9; upper case letters A -Z; nine other characters: space, $ % * + - . / : ); )
ENC_BYTE 1 // encodes binary values ( 8-bit data)
ENC_NUMERIC 2 // encodes numeric values only (digits 0-9)
ENC_KANJI 3 // encodes Kanji characters. Kanji characters in QR Code can have values 8140 -9FFC and E040 - EBBF
ENC_AUTO 4 // automatic seleccion of the encoding algorithm
*/
hb_DynCall( { "FullQRCode", hLib, HB_DYN_CALLCONV_STDCALL }, .t., .t.,;
RGBCor(255,255,255), RGBCor(0,0,0), ;
cStr, ;
1, ;
4, ;
10, ;
5, ;
300, 300, cFile )
hb_libFree( hLib )
RETURN file(cFile)
FUNCTION RGBCor( nRed, nGreen, nBlue )
RETURN ( nRed + ( nGreen * 256 ) + ( nBlue * 65536 ) )
Código: Selecionar todos
hBitmap := HMG_Zebra_CreateBitmapBarCode