Search the Community

Um amigo me pediu um exemplo para gerar QRCODE em xHarbour/Fivewin. Procurei no forum achei alguns exemplos mas faltava a DLL, em outros exemplos tinha um codigo fonte gigante, enfim, achei bem complicado. Então consegui a DLL (vlw Luis Batata - MicroFly) analisando alguns fontes montei um exemplo bem prático que gera o QRCODE em bitmap e até exibe ele. Espero que ajude outros obs: neste link tem o codigo fonte e a dll http://www.emotta.com.br/qrcode/qrcode.rar #include "fivewin.ch" Function u_Teste() Local cStr := "AQUI DEVE SER COLOCADO O CONTEUDO DO QRCODE" Local cFile := "arq.bmp" Local oDlg Local oBmp1 QRCode(cStr,cFile) // aqui vc chama a funcao passando como parametro o conteudo do QRCODE e o arquivo BMP que será gerado DEFINE DIALOG oDlg FROM 0,0 TO 300,300 TITLE "Exibir QRCODE" PIXEL @ 10,10 BITMAP oBmp1 FILE cFile OF oDlg Size 200,200 Pixel NOBORDER ACTIVATE DIALOG oDlg CENTERED Return DLL32 STATIC FUNCTION QRCode(cStr As STRING, cFile As STRING) AS LONG PASCAL FROM "FastQRCode" LIB "QRCodelib.Dll"

Alguem sabe como criar um QRCODE do tipo URL usando a QRCodelib.Dll. Eu só to conseguindo gerar do tipo TEXT

Pelo amor dos meus filhinhos, alguém consegue traduzir isto pra mim? Original de: http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=15693&p=111906#p111906 // // SDK para QRCode // Proposito: Gerar código modelo QR para uso em aplicativos diversos // Necessário: QRCodeLib.dll // Linguagem: Foi utilizada Harbour, mas pode ser portada a qualquer outra. // Data: 7 de Dezembro de 2014 // Autor: Jose Carlos da Rocha - Rochinha // #define ForFivewin #IFDEF ForFivewin #include "fivewin.ch" #ENDIF // Niveis de Correcao(correctionLevel) #define LEVEL_L 0 // 7% #define LEVEL_M 1 // 15% #define LEVEL_Q 2 // 25% #define LEVEL_H 3 // 30% // Nivel de codificacao(encoding) #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 #IFDEF ForFivewin //----------------------------------------------------------------------------// // Copyright FiveTech 1993-2011 #ifndef _C_TYPES #define _C_TYPES #define VOID 0 #define BYTE 1 #define CHAR 2 #define WORD 3 #define _INT 7 #define BOOL 5 #define BOOLEAN 5 #define HDC 6 #define LONG 7 #define STRING 8 #define LPSTR 9 #define PTR 10 #define _DOUBLE 11 // conflicts with BORDER DOUBLE #define DWORD 12 #endif #translate NOREF([@]<x>) => <x> #xcommand DLL32 [<static:STATIC>] FUNCTION <FuncName>( [ <uParam1> AS <type1> ] ; [, <uParamN> AS <typeN> ] ) ; AS <return> [<pascal:PASCAL>] [ FROM <SymName> ] LIB <*DllName*> ; => ; [<static>] function <FuncName>( [NOREF(<uParam1>)] [,NOREF(<uParamN>)] ) ;; local _hDLL := If( ValType( <DllName> ) == "N", <DllName>, LoadLib32( <(DllName)> ) ) ;; local uResult ;; local cFarProc ;; if Abs( _hDLL ) <= 32 ;; MsgAlert( "Error code: " + LTrim( Str( _hDLL ) ) + " loading " + <DllName> ) ;; else ;; cFarProc = GetProc32( _hDLL,; If( [ Empty( <SymName> ) == ] .t., <(FuncName)>, <SymName> ),; [<.pascal.>], <return> [,<type1>] [,<typeN>] ) ;; uResult = FWCallDLL32( cFarProc [,<uParam1>] [,<uParamN>] ) ;; If( ValType( <DllName> ) == "N",, FreeLib32( _hDLL ) ) ;; end ;; return uResult //----------------------------------------------------------------------------// #ENDIF FUNCTION Main() hDLL = LoadLib32( "QRCodeLib.dll" ) Principal() FreeLibrary( hDLL ) return nil FUNCTION Principal() LOCAL cStr, cFile cStr:="http://www.5volution.com.br/mobile" //cFile:=".\QRCode.bmp" //FastQRCode(cStr,cFile) cFile:=".\QRCodeF.bmp" FullQRCode( .T., .F., nRGB(055,155,255), nRGB(0,0,0), cStr, LEVEL_M, ENC_AUTO, 5, 5, 300, 300, cFile ) RETURN NIL #IFNDEF ForFivewin FUNCTION FastQRCode( cStr, cFile ) #Define DC_CALL_STD 0x0020 LOCAL nResp LOCAL qrDLL qrDLL := LoadLibrary( "QRCodelib.Dll" ) nResp := CallDll( qrDLL, DC_CALL_STD, "FastQRCode", cStr, cFile ) FreeLibrary( qrDLL ) RETURN NIL FUNCTION FullQRCode( cStr, cFile ) #Define DC_CALL_STD 0x0020 LOCAL nResp LOCAL qrDLL qrDLL := LoadLibrary( "QRCodelib.Dll" ) nResp := CallDll( qrDLL, DC_CALL_STD, "FullQRCode", autoConfigurate, AutoFit, backColor AS _INT, barColor, Texto, correctionLevel, encoding, marginpixels AS, moduleWidth, Height, Width, FileName ) FreeLibrary( qrDLL ) RETURN NIL #ENDIF #IFDEF ForFivewin DLL32 Function QRCodeLibVer() AS LPSTR FROM "QRCodeLibVer" LIB hDLL DLL32 Function FastQRCode( Texto AS LPSTR, FileName AS LPSTR ) AS LPSTR FROM "FastQRCode" LIB hDLL DLL32 Function FullQRCode( 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 LPSTR FROM "FullQRCode" LIB hDLL #ENDIF FUNCTION nRGB( nRed, nGreen, nBlue ) RETURN ( nRed + ( nGreen * 256 ) + ( nBlue * 65536 ) )