#include "fivewin.ch"
Function u_Teste()
Local cStr := "QRCODE text"
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
// link download qrcodelib.dll =>
http://www.emotta.com.br/qrcode/qrcode.rar DLL32 STATIC FUNCTION QRCode(cStr As STRING, cFile As STRING) AS LONG PASCAL FROM "FastQRCode" LIB "QRCodelib.Dll"
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)