Est-il possible de convertir ce code pour le faire fonctionner en 64 bits ?
ou est-ce lié à la lib qui n'est pas compatible ?
(je n'y connais pour l'instant pas grand chose dans les fonctions Importc etc)
Cela fonctionne parfaitement bien avec PB 5.72 LTS x86
mais pas avec la version x64
Code : Tout sélectionner
Attente du démarrage du programme...
Type d'exécutable: Windows - x64 (64bit, Unicode)
Exécutable démarré.
[ERREUR] QRCreator_GUI.pb (Ligne: 24)
[ERREUR] Accès mémoire invalide. (erreur de lecture à l'adresse 18446744073709551615)
Le programme a été arrêté.
Ligne 24
*Qrcode = QRcode_encodeString8bit(content, 0, EC_Level)
Le deuxième programme du package fonctionne aussi bien en 32 bits mais pas en 64
Code : Tout sélectionner
---------------------------
PureBasic_Compilation1.exe - Erreur système
---------------------------
Impossible d’exécuter le code, car ÁG.DLL est introuvable. La réinstallation du programme peut corriger ce problème.
---------------------------
OK
L'exécutable de débogage se ferme de façon inattendue.
Code d'origine de Dige qui fonctionne en 5.72 LTS x86
https://www.purebasic.fr/english/viewto ... 12&t=47938
j'a juste ajouté un CompilerIf et changé l'emplacement de la lib
Code : Tout sélectionner
; by Dige 10/2011
; http://www.purebasic.fr/english/viewtopic.php?f=12&t=47938
; Create 2D Barcodes (QRCode) based on qrencode-win32
; Requires: qrcodelib.lib, qrcodelib.dll
; http://code.google.com/p/qrencode-win32/downloads/list
; --- Ajouté
CompilerIf #PB_Compiler_Processor = #PB_Processor_x64
CompilerError "Désolé, Ce programme ne fonctionne pas en 64 bits, sélectionnez le compilateur x86"
CompilerEndIf
Structure QRCode
Version.l
Width.l
pSymbolData.l
EndStructure
Enumeration
#QR_ECLEVEL_L = 0 ; lowest
#QR_ECLEVEL_M
#QR_ECLEVEL_Q
#QR_ECLEVEL_H ; highest
EndEnumeration
; ImportC "..\Lib\qrcodelib.lib"
; --- Emplacement de la lib
ImportC "qrcodelib.lib"
QRcode_encodeString8bit(Text.p-ascii, Version.l, QRecLevel.l) As "_QRcode_encodeString8bit"
QRcode_free(*Qrcode.QRCode) As "_QRcode_free"
EndImport
Procedure CreateQRCode (content.s, ImgID = #PB_Any, EC_Level = #QR_ECLEVEL_L, Size=4 )
Protected *Qrcode.QRCode, QRImg
*Qrcode = QRcode_encodeString8bit(content, 0, EC_Level)
With *Qrcode
If *Qrcode = 0 Or \Width = 0
ProcedureReturn #Null
Else
*mem = \pSymbolData
w = \Width
EndIf
EndWith
QRImg = CreateImage(ImgID, w, w)
If QRImg
If ImgID = #PB_Any
ImgID = QRImg
EndIf
EndIf
If StartDrawing(ImageOutput(ImgID))
; White Background
Box (0, 0, ImageWidth(ImgID), ImageHeight(ImgID), #White)
; Draw Black Dots
For y = 0 To w - 1
For x = 0 To w - 1
b = PeekB(*mem) & $FF
If b & 1
Plot( x, y, #Black)
EndIf
*mem + 1
Next
Next
StopDrawing()
w * Size
ResizeImage( ImgID, w, w, #PB_Image_Raw)
EndIf
QRcode_free(*Qrcode)
ProcedureReturn ImgID
EndProcedure
; Example, how to use it:
CreateImage(0, 200, 200)
OpenWindow(#Null, 0, 0, 450, 400, "2D Barcode Creator", #WS_OVERLAPPEDWINDOW|#PB_Window_ScreenCentered )
TextGadget(#PB_Any, 10, 4, 50, 16, "Text" )
StringGadget(0, 10, 20, 200, 20, "Feel the Pure Power!" )
TextGadget(#PB_Any, 10, 44, 50, 16, "EC_Level" )
TrackBarGadget(1, 10, 60, 100, 20, #QR_ECLEVEL_L, #QR_ECLEVEL_H, #PB_TrackBar_Ticks)
TextGadget(#PB_Any, 110, 44, 50, 16, "Size" )
TrackBarGadget(2, 110, 60, 100, 20, 1, 10, #PB_TrackBar_Ticks)
ImageGadget (3, 10, 90, 430, 550, ImageID(0), #PB_Image_Border)
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget
Select EventGadget()
Case 0, 1, 2
ImgID = CreateQRCode(GetGadgetText(0), #Null, GetGadgetState(1), GetGadgetState(2))
If IsImage(ImgID)
SetGadgetState(3, ImageID(ImgID))
EndIf
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
Download QRCodeCreator.zip (Source, Lib, DLL)
