Qrcodelib.dll

[wanderso]

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)

 

[kapiaba]

Tente com LoadLibrary() please.

 

Regards, saludos.

[wanderso]

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" )

[emotta]

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

[wanderso]

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.

[emotta]

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?

[wanderso]

16 minutos atrás, emotta disse:

e o qrDLL tem algum valor? se sim qual?

Tem sim, 39780352

[joao]

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"

 

[wanderso]

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é?

[emotta]

6 minutos atrás, wanderso disse:

Obrigado João, assim deu certo, vai entender né?

que loucura... muito bem Joao