PJINFO Posted October 28, 2022 Report Share Posted October 28, 2022 Olá pessoal, preciso de ajuda. Estou com problema em exibir alguns arquivos de QRCODE como o exemplo do o arquivo anexo. Quando gero uma chave pix dinâmica a dll gera a imagem eu consigo imprimir, mas não consigo exibir. QRCODE.bmp Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 28, 2022 Report Share Posted October 28, 2022 Que link? Regards, saludos. Quote Link to comment Share on other sites More sharing options...
PJINFO Posted October 28, 2022 Author Report Share Posted October 28, 2022 4 horas atrás, kapiaba disse: Que link? Regards, saludos. Atualizei o post. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 28, 2022 Report Share Posted October 28, 2022 Como você gera, assim? http://forums.fivetechsupport.com/viewtopic.php?f=3&t=41633&p=249457&hilit=qrcode&sid=12d8ddd6e19765c579357baeb3258cbf#p249457 Regards, saludos. Quote Link to comment Share on other sites More sharing options...
PJINFO Posted October 31, 2022 Author Report Share Posted October 31, 2022 Em 28/10/2022 at 17:32, kapiaba disse: Como você gera, assim? http://forums.fivetechsupport.com/viewtopic.php?f=3&t=41633&p=249457&hilit=qrcode&sid=12d8ddd6e19765c579357baeb3258cbf#p249457 Regards, saludos. Olá Kapi! Obrigado pela resposta. Eu uso a QRCodelib.Dll Conforme o link. Quote Link to comment Share on other sites More sharing options...
PJINFO Posted October 31, 2022 Author Report Share Posted October 31, 2022 8 minutos atrás, PJINFO disse: Olá Kapi! Obrigado pela resposta. Eu uso a QRCodelib.Dll Conforme o link. Quando eu gero o QRcode.bmp e visualizando usando o windows está perfeito a exibição. Quando mando imprimir o QRcode.bmp com tprint() vai normal, mas quando exib com a timage() não aparece, fica em branco a imagem. Percebi que quando o conteudo do QRcode tem mais que 130/140 caractere fica normal mais que isso acontece isso. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 31, 2022 Report Share Posted October 31, 2022 Eu recomendo você usar a HBZEBRA, não é difícil e de fácil controle. Regards, saludos. Quote Link to comment Share on other sites More sharing options...
giovanyvecchi Posted October 31, 2022 Report Share Posted October 31, 2022 Ola. Testa estas funções aqui #define LEVEL_L 0 // 7% #define LEVEL_M 1 // 15% #define LEVEL_Q 2 // 25% #define LEVEL_H 3 // 30% #define ENC_ALPHA 0 // encodes alphanumeric characters (digits 0 - 9; upper case letters A -Z; nine other characters: space, $ % * + - . / : ); ) #define ENC_BYTE 1 // encodes binary values ( 8-bit data) #define ENC_NUMERIC 2 // encodes numeric values only (digits 0-9) #define ENC_KANJI 3 // encodes Kanji characters. Kanji characters in QR Code can have values 8140 -9FFC and E040 - EBBF #define ENC_AUTO 4 // automatic seleccion of the encoding algorithm /////////////////////////////////////////////////////////////////////////////// FUNCTION QR_CODE_FULL_PNG(f_cString, f_cFileRoot, f_nSizePixel, f_nLevel) Local lc_cFileOut := "", lc_oImage Default f_nSizePixel := 180, f_nLevel := 0 if File(f_cFileRoot) fErase(f_cFileRoot) EndIf lc_cFileOut := TXT_CHAR_CLEAN(f_cFileRoot,{".bmp",".BMP","Bmp"})+".png" FullQRCodeMy(.T.,; .f.,; CLR_WHITE,; // backColor CLR_BLACK,; // barColor f_cString,; // Texto f_nLevel,; // correctionLevel ENC_AUTO,; // encoding 2,; // marginpixels 2,; // moduleWidth f_nSizePixel ,; // Height f_nSizePixel ,; // Witdh f_cFileRoot) lc_oImage := tImage():Define(,f_cFileRoot) lc_oImage:SaveImage( lc_cFileOut, 13,0 ) lc_oImage:End() fErase(f_cFileRoot) RETURN lc_cFileOut /////////////////////////////////////////////////////////////////////////////// DLL32 Function FullQRCodeMy(autoConfigurate AS BOOL,; AutoFit AS BOOL ,; backColor AS _INT ,; barColor AS _INT ,; Texto AS LPSTR ,; correctionLevel AS _INT,; // Pode ser Low, Medium, High e VeryHigh encoding AS _INT, ; marginpixels AS _INT,; moduleWidth AS _INT,; Height AS _INT,; Width AS _INT,; FileName AS LPSTR ) AS LONG PASCAL FROM "FullQRCode" LIB "QRCodelib.dll" /////////////////////////////////////////////////////////////////////////////// FUNCTION TXT_CHAR_CLEAN(f_cTxt,f_aCaracteresRetira) Local cTxtRetorno := f_cTxt, iFor := 0 For iFor := 1 To Len(f_aCaracteresRetira) cTxtRetorno := StrTran(cTxtRetorno,f_aCaracteresRetira[iFor],"") Next RETURN cTxtRetorno Quote Link to comment Share on other sites More sharing options...
PJINFO Posted October 31, 2022 Author Report Share Posted October 31, 2022 2 horas atrás, giovanyvecchi disse: Ola. Testa estas funções aqui #define LEVEL_L 0 // 7% #define LEVEL_M 1 // 15% #define LEVEL_Q 2 // 25% #define LEVEL_H 3 // 30% #define ENC_ALPHA 0 // encodes alphanumeric characters (digits 0 - 9; upper case letters A -Z; nine other characters: space, $ % * + - . / : ); ) #define ENC_BYTE 1 // encodes binary values ( 8-bit data) #define ENC_NUMERIC 2 // encodes numeric values only (digits 0-9) #define ENC_KANJI 3 // encodes Kanji characters. Kanji characters in QR Code can have values 8140 -9FFC and E040 - EBBF #define ENC_AUTO 4 // automatic seleccion of the encoding algorithm /////////////////////////////////////////////////////////////////////////////// FUNCTION QR_CODE_FULL_PNG(f_cString, f_cFileRoot, f_nSizePixel, f_nLevel) Local lc_cFileOut := "", lc_oImage Default f_nSizePixel := 180, f_nLevel := 0 if File(f_cFileRoot) fErase(f_cFileRoot) EndIf lc_cFileOut := TXT_CHAR_CLEAN(f_cFileRoot,{".bmp",".BMP","Bmp"})+".png" FullQRCodeMy(.T.,; .f.,; CLR_WHITE,; // backColor CLR_BLACK,; // barColor f_cString,; // Texto f_nLevel,; // correctionLevel ENC_AUTO,; // encoding 2,; // marginpixels 2,; // moduleWidth f_nSizePixel ,; // Height f_nSizePixel ,; // Witdh f_cFileRoot) lc_oImage := tImage():Define(,f_cFileRoot) lc_oImage:SaveImage( lc_cFileOut, 13,0 ) lc_oImage:End() fErase(f_cFileRoot) RETURN lc_cFileOut /////////////////////////////////////////////////////////////////////////////// DLL32 Function FullQRCodeMy(autoConfigurate AS BOOL,; AutoFit AS BOOL ,; backColor AS _INT ,; barColor AS _INT ,; Texto AS LPSTR ,; correctionLevel AS _INT,; // Pode ser Low, Medium, High e VeryHigh encoding AS _INT, ; marginpixels AS _INT,; moduleWidth AS _INT,; Height AS _INT,; Width AS _INT,; FileName AS LPSTR ) AS LONG PASCAL FROM "FullQRCode" LIB "QRCodelib.dll" /////////////////////////////////////////////////////////////////////////////// FUNCTION TXT_CHAR_CLEAN(f_cTxt,f_aCaracteresRetira) Local cTxtRetorno := f_cTxt, iFor := 0 For iFor := 1 To Len(f_aCaracteresRetira) cTxtRetorno := StrTran(cTxtRetorno,f_aCaracteresRetira[iFor],"") Next RETURN cTxtRetorno Opa!!! Obrigado!!! Vou testar sim. Já já dou notícias. Quote Link to comment Share on other sites More sharing options...
PJINFO Posted October 31, 2022 Author Report Share Posted October 31, 2022 18 minutos atrás, PJINFO disse: Opa!!! Obrigado!!! Vou testar sim. Já já dou notícias. Obrigado!!! Deu certo sim Muito obrigado mesmo. Quote Link to comment Share on other sites More sharing options...
marcioe Posted August 12, 2023 Report Share Posted August 12, 2023 Olá, estou tendo o mesmo problema, para exibir, teria como postar o que fez Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 12, 2023 Report Share Posted August 12, 2023 https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43100&p=259693&hilit=QRCODE&sid=25f71d3b7b1e648ad4ea6f3e65c0417c#p259693 https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43100&p=259558&hilit=QRCODE&sid=25f71d3b7b1e648ad4ea6f3e65c0417c#p259558 https://forums.fivetechsupport.com/viewtopic.php?f=3&t=41943&p=251543&hilit=QRCODE&sid=25f71d3b7b1e648ad4ea6f3e65c0417c#p251543 https://forums.fivetechsupport.com/viewtopic.php?f=3&t=41633&p=249529&hilit=QRCODE&sid=25f71d3b7b1e648ad4ea6f3e65c0417c#p249529 https://forums.fivetechsupport.com/viewtopic.php?f=6&t=40744&p=243637&hilit=QRCODE&sid=25f71d3b7b1e648ad4ea6f3e65c0417c#p243637 https://forums.fivetechsupport.com/viewtopic.php?f=6&t=40392&p=241386&hilit=QRCODE&sid=25f71d3b7b1e648ad4ea6f3e65c0417c#p241386 https://forums.fivetechsupport.com/viewtopic.php?f=6&t=40409&p=241282&hilit=qrcode&sid=25f71d3b7b1e648ad4ea6f3e65c0417c#p241282 https://forums.fivetechsupport.com/viewtopic.php?f=6&t=40111&p=239345&hilit=qrcode&sid=25f71d3b7b1e648ad4ea6f3e65c0417c#p239345 Y mucho más... Regards, saludos. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.