wanderso Posted April 7, 2022 Report Share Posted April 7, 2022 Olá pessoal. Alguém esta usando essa dll para gerar qrcode? O exemplo abaixo não cria o arquivo bitmap do qr. Valeu! #include "Fivewin.ch" Static Function Main() cStr:="conteúdo do_qrcode" cFile:="c:\teste\arq.bmp" QRcode(cStr,cFile) quit **----------------------------------------------------------** FUNCTION QRcode(cStr,cFile) **----------------------------------------------------------** #Define DC_CALL_STD 0x0020 LOCAL qrDLL Generar_QR(cStr,cFile) RETURN(NIL) FUNC Generar_QR(cStr,cFile) LOCAL nResp LOCAL qrDLL qrDLL:=LoadLibrary("QRCodelib.Dll" ) nResp:=DllCall(qrDLL,DC_CALL_STD,"FastQRCode",cStr,cFile) FreeLibrary(qrDLL) RETURN (NIL) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 7, 2022 Report Share Posted April 7, 2022 Tente com LoadLibrary() please. Regards, saludos. Quote Link to comment Share on other sites More sharing options...
wanderso Posted April 7, 2022 Author Report Share Posted April 7, 2022 30 minutos atrás, kapiaba disse: Tente com LoadLibrary() please. Regards, saludos. Não entendi Kapiaba, na linha abaixo já faz o carregamento. qrDLL:=LoadLibrary("QRCodelib.Dll" ) Quote Link to comment Share on other sites More sharing options...
emotta Posted April 7, 2022 Report Share Posted April 7, 2022 1 hora atrás, wanderso disse: Olá pessoal. Alguém esta usando essa dll para gerar qrcode? O exemplo abaixo não cria o arquivo bitmap do qr. Valeu! #include "Fivewin.ch" Static Function Main() cStr:="conteúdo do_qrcode" cFile:="c:\teste\arq.bmp" QRcode(cStr,cFile) quit **----------------------------------------------------------** FUNCTION QRcode(cStr,cFile) **----------------------------------------------------------** #Define DC_CALL_STD 0x0020 LOCAL qrDLL Generar_QR(cStr,cFile) RETURN(NIL) FUNC Generar_QR(cStr,cFile) LOCAL nResp LOCAL qrDLL qrDLL:=LoadLibrary("QRCodelib.Dll" ) nResp:=DllCall(qrDLL,DC_CALL_STD,"FastQRCode",cStr,cFile) FreeLibrary(qrDLL) RETURN (NIL) eu fiz esse exemplo e funciona normal. Veja que o arquivo criado neste exemplo direciona para a pasta C:\TESTE Minha pergunta é: vc tem essa pasta TESTE criada no seu crive C: ? Acredito que o ideal é vc direcionar para a pasta da sua aplicação, deixando só: cFile := "arq.bmp" Outra coisa, a dll QRCODELIB.DLL tem que estar na mesma pasta do seu executavel Quote Link to comment Share on other sites More sharing options...
wanderso Posted April 7, 2022 Author Report Share Posted April 7, 2022 Agora, emotta disse: eu fiz esse exemplo e funciona normal. Veja que o arquivo criado neste exemplo direciona para a pasta C:\TESTE Minha pergunta é: vc tem essa pasta TESTE criada no seu crive C: ? Acredito que o ideal é vc direcionar para a pasta da sua aplicação, deixando só: cFile := "arq.bmp" Outra coisa, a dll QRCODELIB.DLL tem que estar na mesma pasta do seu executavel Então tenho sim, e não é criado nenhum bmp dentro dela, e já tentei também utilizando cFile := "arq.bmp" para ver se cria na pasta do executável e nada. Interessante que o resultado do nResp é nil. Sem entender o porque. Quote Link to comment Share on other sites More sharing options...
emotta Posted April 7, 2022 Report Share Posted April 7, 2022 4 minutos atrás, wanderso disse: Então tenho sim, e não é criado nenhum bmp dentro dela, e já tentei também utilizando cFile := "arq.bmp" para ver se cria na pasta do executável e nada. Interessante que o resultado do nResp é nil. Sem entender o porque. e o qrDLL tem algum valor? se sim qual? Quote Link to comment Share on other sites More sharing options...
wanderso Posted April 7, 2022 Author Report Share Posted April 7, 2022 16 minutos atrás, emotta disse: e o qrDLL tem algum valor? se sim qual? Tem sim, 39780352 Quote Link to comment Share on other sites More sharing options...
joao Posted April 7, 2022 Report Share Posted April 7, 2022 Boa tarde , Tenta assim : cFile:="c:\teste\arq.bmp" cStr:="conteúdo do_qrcode" Generar_QR(cStr,cFile) No final do prg coloca a seguinte chamada da dll e retire sua função Generar_QR DLL Function Generar_QR(cStr AS STRING ,cFile AS STRING ) AS LONG PASCAL FROM "FastQRCode" LIB ".\QRCodelib.dll" Quote Link to comment Share on other sites More sharing options...
wanderso Posted April 7, 2022 Author Report Share Posted April 7, 2022 7 minutos atrás, joao disse: Boa tarde , Tenta assim : cFile:="c:\teste\arq.bmp" cStr:="conteúdo do_qrcode" Generar_QR(cStr,cFile) No final do prg coloca a seguinte chamada da dll e retire sua função Generar_QR DLL Function Generar_QR(cStr AS STRING ,cFile AS STRING ) AS LONG PASCAL FROM "FastQRCode" LIB ".\QRCodelib.dll" Obrigado João, assim deu certo, vai entender né? Quote Link to comment Share on other sites More sharing options...
emotta Posted April 7, 2022 Report Share Posted April 7, 2022 6 minutos atrás, wanderso disse: Obrigado João, assim deu certo, vai entender né? que loucura... muito bem Joao 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.