wanderso

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"  

Pessoal qual é a dúvida? Se for para porto eu desenvolvi e está averbando perfeitamente.

Matou a charada camarada! Valeu demais!

Bom Dia,
Tente fazer assim esta atribuição do Alias e usar refresh(.t.) se não der certo.
oBrw:cAlias:=" TEMP072"

está confuso sua programação, vc usa database? é um arquivo temporario? nunca usei desta maneira oBrw:cAlias("TEMP072") sempre usei da maneira do Gilmer