Installation du paquet ZXING (QRCODE)

**dennler** · 18/03/2021, 10h00

Bonjour,

J'aimerais bien installer le paquet ZXING dans mon Lazarus 2.0.12.
Mais je me heurte à deux problèmes que je n'arrive pas à résoudre. Je manque de connaissances en Lazarus.

Adresse internet :
https://github.com/cutec-chris/ZXing.Lazarus
pour télécharger :
ZXing.Lazarus-master.zip
----

1) Problème 1 : un problème de compilation

Dans EDI de Lazarus :
"Fichier ouvrir" :
l:\Lazarus\Compo_Inst\ZXing\laz_zxing.lpk
"Fichier/Ouvrir le paquet" puis "Compiler"

Ereur avertissement ligne 50 : function GetHashCode: Integer; override;
Constructor should be public
Le constructeur doit être public
Bitmatrix Error : There is no method in an ancestor class to be overridden: "GetHashCode:Longint;"
Il n'y a aucune méthode dans une classe ancêtre à remplacer: "GetHashCode:Longint;"

2) Problème 2 : "Register" absent mais peut-être ceci est lié au premier problème

Dans EDI de Lazarus :
"Utiliser" puis "Installer" le paquet
Le paquet laz_zwing n'a aucune procédure "Register", ce qui signifie qu'il ne fournit aucune fonctionnalité nouvelle à l'EDI.
L'installation va probablement augmenter la taille de l'EDIT et pourrait même le rendre instable.
Conseil : si vous voulez utiliser un paquet dans votre projet, utilisez l'élément du menu intitulé "Ajouter au projet"

Si quelqu'un pouvait m'aider, d'avance merci.

**Jipété** · 18/03/2021, 11h14

Bonjour,

Envoyé par dennler

Adresse internet :
https://github.com/cutec-chris/ZXing.Lazarus

Si quelqu'un ~~pourrait~~ pouvait m'aider, d'avance merci.

1) je ne sais pas pourquoi il y a "Lazarus" dans l'adresse, mais suivre le lien amène à une page où c'est écrit en gros "Delphi",

Je n'ai pas creusé plus loin.

2) faudrait poser tes questions à l'auteur de l'outil car pas sûr qu'ici quelqu'un connaisse.

**der§en** · 18/03/2021, 16h56

Ha mince, notre Jipété préféré, est d'humeur chafouine aujourd'hui

Si tu regarde bien sur la page (du lien) en fait il y a les 2, pour Delphi et Lazarus...

J'ai télécharger les sources, et je vais regarder de mon coté, si je comprend un peu le bousin !

**der§en** · 18/03/2021, 17h12

Première tentative de compilation:

Même erreur dans la classe TBitMatrix sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function GetHashCode: Integer; override;

Ce qui me semble normal si on regarde la classe parent, soit TObject :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function GetHashCode: PtrInt;virtual;

**dennler** · 19/03/2021, 10h26

Merci pour cette première réponse.
Questions :
1) Le paquet est-il tout de même compilé ?
2) Ou et comment rajouter la partie "Register"
D'avance merci

**jurassic pork** · 19/03/2021, 10h29

hello,
il y a une version plus récente de Zxing.Delphi pour Lazarus chez LongDirtyAnimAlf/ZXing.Delphi
en particulier il y a ce commentaire dans le dernier commit qui date d'il y a 8 mois : Restore FPC and Lazarus compilation
LongDirtyAnimAlf est le créateur de fpcupdeluxe.
Le souci avec ce projet c'est qu'il n'y a pas de package mais l'ensemble des fichiers.
Il y a un autre souci à la compilation voir ici : generic TList not working with Enumerated type with constant assignment
Une fois tout résolu le projet qui se trouve dans le répertoire Lazarus/UnitTest fonctionne (windows 10 lazarus 2.0.12 fpc 3.2)
Ami calmant, J.P

**der§en** · 19/03/2021, 14h02

Merci pour le lien.

**jurassic pork** · 19/03/2021, 15h23

j'ai rajouté à la fin du projet de test, un test du QR code généré dans l'attestation COVID à télécharger

pour voir si cela fonctionnait.
voici ce que cela donne :

Nom : LazZxing.png
Affichages : 702
Taille : 65,7 Ko

Je retrouve bien ce que j'avais rempli pour l'attestation

Ami calmant, J.P

**der§en** · 19/03/2021, 16h51

Encore merci du retour, je vais surement trouvé des trucs amusant a faire avec ceci

**tourlourou** · 19/03/2021, 17h09

Top, l'attestation jurassique !

**dennler** · 20/03/2021, 06h09

Merci pour toutes ces réponses.
Mon niveau en lazarus est encore trop faible pour obtenir avec vos réponses le même résultat.
J’ai téléchargé la version plus récente LongDirtyAnimAlf/ZXing.Delphi avec des fichiers du 17/7/2020.
Mais je tombe toujours sur l’erreur de compilation TBitMatrix
Pouvez-vous me donner les modifications à apporter pour contourner cet obstacle ?
Deuxième question : pour transformer ces fichiers et obtenir un paquet , comment faire ? Rajouter à la main la procédure Register dans chaque fichier, ou existe-t-il une solution automatique du type "conversion Delphi vers Lazarus" ?
Encore merci pour tout.

**jurassic pork** · 20/03/2021, 09h09

hello,
c'est bizarre ce problème de TBitMatrix car j'utilise la même version de Lazarus que toi. As-tu désinstallé le paquet laz_zxing avant de compiler les fichiers de cette mouture de zxing.
[EDIT] Pour le problème de compilation que j'ai eu LongDirtyAnimAlf m'a répondu dans le forum anglais : il faut compiler deux fois (compile not build) ! Pas besoin de modifier le code !
Ami calmant, J.P

**JP CASSOU** · 22/03/2021, 02h10

https://wiki.lazarus.freepascal.org/LazBarcodes

**dennler** · 23/03/2021, 09h56

Bonjour,
Grâce à vos aides j’ai pu compiler le programme vfwscanner .
En réalité je cherche un composant gratuit capable de « décoder » un QRCode (BMP ou PNG vers du texte). Il me semblait que ZXing possède cette fonctionnalité mais peut-être que pour la version DX d’Enbarcadero.
En tant que programmeur amateur le DX est hors de prix pour moi, c’est pourquoi je me contente de Delphi 7 et Lazarus.

**jurassic pork** · 23/03/2021, 11h04

hello,
regarde bien mon message du post #8 : La version zxing de LongDirtyAnimAlf décode bien le QR code présent dans des images. Le projet que j'ai utilisé se trouve dans le répertoire Lazarus\UnitTest du zxing de LongDirtyAnimAlf et s'appelle dUnitXTestGUI.lpi.

Ami calmant,J.P

**dennler** · 23/03/2021, 13h44

Super, grand merci à vous Jurassic pork, tout fonctionne.
Il suffisait de bien lire vos recommandations.

**dennler** · 24/03/2021, 11h49

C’est encore moi, avec toujours des questions.
1) Lors de l’exécution du programme dUnitXTestGUI-x86_64-win64.exe compilé avec Lazarus sous Windows 10 j’ai sur la plus part des fichiers .png fournis, souvent 4 gros points rouges ou verts d’une manière aléatoire sur l’image. Alors qu’avec le même programme récupéré dans le fichier TEST.ZIP du 7/7/2018 compilé je suppose sur DX, cela n’est pas visible. Pourquoi ?
2) Je croyais être capable de modifier la source du bouton de test pour le remplacer par OpenPictureDialog qui chargerait un fichier image pour l’afficher et surtout le décoder.
Mais je bute sur la compréhension du fichier Test.pas
D'avance merci.

**jurassic pork** · 24/03/2021, 14h08

hello,

Envoyé par dennler

C’est encore moi, avec toujours des questions.
1) Lors de l’exécution du programme dUnitXTestGUI-x86_64-win64.exe compilé avec Lazarus sous Windows 10 j’ai sur la plus part des fichiers .png fournis, souvent 4 gros points rouges ou verts d’une manière aléatoire sur l’image. Alors qu’avec le même programme récupéré dans le fichier TEST.ZIP du 7/7/2018 compilé je suppose sur DX, cela n’est pas visible. Pourquoi ?
2) Je croyais être capable de modifier la source du bouton de test pour le remplacer par OpenPictureDialog qui chargerait un fichier image pour l’afficher et surtout le décoder.
Mais je bute sur la compréhension du fichier Test.pas
D'avance merci.

pour le point 1 c'est normal car comme c'est un module de test il y a des points rouges et verts qui s'affichent suivant qu'il y a des problèmes avec les QR codes de test qui peuvent contenir des erreurs.
Dans la fonction TZXingLazarusTest.Decode de Test.pas c'est ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
          {$ifdef Debug}
          if (aResult.rawBytes=nil) AND ((aResult.BarcodeFormat=TBarcodeFormat.DATA_MATRIX) OR (aResult.BarcodeFormat=TBarcodeFormat.QR_CODE))  then
          {$else}
          if false then
          {$endif}
          bmp.Canvas.Brush.Color := clRed else
          begin
            bmp.Canvas.Brush.Color := clLime;
          end;
          bmp.Canvas.Brush.Style := bsSolid;
          bmp.Canvas.Pen.Width   := 1;
          bmp.Canvas.Pen.Color   := clBlack;
          for ResultPoint in aResult.ResultPoints do
          bmp.Canvas.Ellipse(TRect.Create(Round(ResultPoint.x - 5),
                                             Round(ResultPoint.y - 5),
                                             Round(ResultPoint.x + 5),
                                           Round(ResultPoint.y + 5)));
        end;

Pour le point 2 Avec ce code cela devrait fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
uses testutils,
  ZXing.ReadResult,
  ZXing.ResultPoint,
  ZXing.BarCodeFormat,
  ZXing.DecodeHintType,
  ZXing.ScanManager;
 
{ TForm1 }            
....
procedure TForm1.Button2Click(Sender: TObject);
var
  Filename: string;
  aScanresult: TReadResult;
  ScanManager: TScanManager;
begin
if OpenDialog1.Execute then
begin
  Filename := OpenDialog1.Filename;
  Edit1.Text := ExtractFileName(FileName);  
  Image1.Picture.LoadFromFile(Filename);
   try
      ScanManager := TScanManager.Create(TBarcodeFormat.QR_CODE, nil);
      aScanResult := ScanManager.Scan(Image1.Picture.Bitmap);
        if Assigned(aScanResult) then
        begin
          Memo1.Lines.Append(aScanResult.text);
          Memo1.Invalidate;
        end;
   finally
      FreeAndNil(ScanManager);
   end;
end;
 
end;