Génération et impression de QR Code sous Delphi 7

Bonjour à toutes et à tous;

Je travaille actuellement sur une application (sous Delphi 7) qui a pour but de permettre la gestion de produits, l'application doit (entre autre) permettre de générer un QR Code pour chaque code produit et aussi l'imprimer. Seulement voilà, sous Delphi 7, il y a plusieurs moyens de générer des codes barres classiques, notamment en utilisant rave report. Mais je n'ai rien trouvé pour les QR Codes ou du moins rien qui ne soit gratuit, exemple : http://www.han-soft.com/barcode2d.php . J'ai aussi télécharger ce projet : http://www.debenu.com/open-source/delphizxingqrcode/ mais il me semble qu'il fait appel à des bibliothèque postérieures à Delphi 7.

Alors, est-ce qu'à votre connaissance, il y aurait un outil gratuit et compatible avec Delphi 7 qui permette de réaliser ce que je veux ?

Bonjour,
Perso j'utilise Zint Barcode Encoding library que tu peux trouver à cette adresse :
http://theunknownones.googlecode.com...ts/ZintBarcode

Je pense qu'il doit tourner sous D7

Bernard

Bonjour;

Je te remercie, mais j'aimerai te demander encore quelque chose, en cliquant sur le lien, j'ai trouvé une page qui contient un ensemble de dossiers et de fichiers, en cliquant sur les fichiers .pas, leur sources s'affichent directement sur le navigateur, en fait ma question est la suivante : je fais comment pour intégrer le composant à Delphi 7, je télécharge et copie le tout ? Si oui, je le copie où ? J'ai plus l'habitude d'installer les composants via leurs exécutables, c'est pour ça que je demande. Et puis en cliquant sur le dossier Projects, un ensemble de sous dossiers est apparu le premier a pour nom D10, c'est peut être la version de Delphi la moins récente qui peut le supporter, non ? Mais dis moi juste comment je dois intégrer ce composant et merci beaucoup pour ton aide.

Moi je fais comme ça : c'est un peu fastidieux mais ça fonctionne.
Tu fais un clique droit et "Enregistrer la cible du lien sous..." pour tous ces fichiers

Zint@TuoLogo.bmp
frxZint.res
uZintBarcode.pas
uZintInterface.pas
ufrxZintBarcode.pas
zint.dll
zint.dll.license.txt

Tu les enregistres où tu veux.

Tu fais la même chose pour uRegZintBarcode.pas qui est dans le répertoire design et que tu mets aussi dans un répertoire design par rapport aux fichiers ci-dessus

Tu récupere le package DXE2 par exemple et tu supprimes la ligne {$LIBSUFFIX '140'} et ensuite tu ouvre le package et tu l'installes ça doit fonctionner.

J'ai suivi les étapes, j'ai mis tous les fichiers du dossier D10, dans un sous dossier du même nom, il y a trois fichier .dpk, j'ai essayé de les installer après avoir supprimé la ligne dont tu m'as parlé mais à chaque fois j'ai ce message "Required package 'frx10' not found", j'ai cherché ce package, pour l'instant en vain mais tu es sure que celà ne vient pas de ma version de Delphi, je suis sur delphi 7 et D10 c'est delphi 10, non ?

J'ai téléchargé FastReport pour delphi 7, il n'y a plus le message frx10 not found mais il y a plein d'autres erreurs, des 'Internal errors' et puis il y a toujours Undeclared identifier SetSize, SetSize est une procedure de ABitMap.

J'ai trouvé des instructions détaillées sur ce forum : https://code.google.com/p/theunknown...es/detail?id=3 je les ai suivi, mais après la compilation, il n'y a pas moyen d'installer, le bouton 'Install' ne se dégrise pas, je bloque donc à cette dernière étape. Merci beaucoup pour l'aide que tu m'as déjà fourni, et merci d'avance pour un futur coup de main.

c'est peut-être pas un paquet de conception mais uniquement d'exécution ? les options, elles disent quoi ?

C'est bon, ça fonctionne, merci infiniment à tous, en particulier à Bernard, dernière question, est-ce que le composant permet l'impression du QR Code généré, ou sinon est-ce qu'il est possible de le copier sur un TImage, merci encore.

Je ne trouve pas la propriété qui désigne l'image du code barre en elle même.

De mémoire, il est possible d'enregistrer l'image du code barre et peut être même de la coller dans le presse-papier. Mais ce sont de lointain souvenirs il faudrait que je relance l'application que j'avais faite à l'époque.

Je pense à redessiner le composant en entier dans un bitmap, et ensuite utiliser la librairie Printer pour l'impression, mais je ne maitrise pas encore le procédé, je fais des recherches.

Bonjour à tous, avant de clôturer la discussion et de la mettre en résolue, j'ai voulu mettre la solution, peut être qu'un visiteur en bénéficiera: J'ai récupéré tout simplement l'image du "barcode" dans un bitmap que j'ai ensuite assigné à un "TImage" et j'ai utilisé la librairie "Printer" pour imprimer le tout, et voilà, c'est aussi simple que ça. Je pense qu'il n'y a pas besoin de mettre de commentaire dans le code en plus de cette explication, voici le code source :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TImprEtiquette.Button1Click(Sender: TObject); begin if PrintDialog1.Execute then begin printer.BeginDoc; bmp:= TBitmap.Create; ZintBarcodeComponent1.Barcode.GetBarcode( bmp ); Image1.Picture.Bitmap:=bmp; printer.Canvas.Draw(X,Y, Image1.Picture.Graphic); printer.EndDoc; end; end;

---

Encore merci à tous pour toute l'aide que vous m'avez fourni, à la prochaine.