Could you tell me how to print ZIntQRCode control under Delphi7, qr code? Thank you very much!-CodePudding

Could you tell me how to print ZIntQRCode control under Delphi7, qr code? Thank you very much!

CodePudding user response:

Generated image, and then model with pictures, not just can print

CodePudding user response:

https://github.com/chaosben/theunknownones/tree/008e179efedb99dd2ec1e40b83ef2b15ec62e18e/Libraries/Zint

CodePudding user response:

Display on form1

againForm1. Print;

CodePudding user response:

refer to the second floor fhfanxin response:

https://github.com/chaosben/theunknownones/tree/008e179efedb99dd2ec1e40b83ef2b15ec62e18e/Libraries/Zint

Can you send a dome, [email protected], thank you!

CodePudding user response:

Qr code is a black and white and matrix, to draw an image is his most of wouldn't be too hard.

CodePudding user response:

Input_mode:=KANJI_MODE

Thus support Chinese the

I don't know whether your control DLL version of the

If so, you can use ZBarcodeToBitmap to transform;

If it is a lot of source code version, then use the following function is converted to bitmap

 
Procedure GraphicToBitmap (const Src: Graphics. TGraphic; 
Const Dest: Graphics. TBitmap; 
Const TransparentColor: Graphics. TColor=Graphics. ClNone); 
The begin 
//Do nothing if either the source or destination are nil 
If not Assigned or not Assigned (Src) (Dest) then 
The Exit; 
//the Size of the bitmap 
Dest. Width:=Src. Width; 
Dest. Height:=Src. Height; 
If the Src. Transparent then 
The begin 
//Source graphic is transparent, make bitmap concerns transparently 
Dest. Transparent:=True; 
If (TransparentColor & lt;> Graphics. ClNone) then 
The begin 
//Set destination as transparent using required see colour key 
Dest. TransparentColor:=TransparentColor; 
Dest. TransparentMode:=Graphics. TmFixed; 
//Set the background to see colour of bitmap to transparent see 
Dest. Canvas. Brush. Color:=TransparentColor; 
End 
The else 
//No transparent see colour: set the transparency to automatic 
Dest. TransparentMode:=Graphics. TmAuto; 
end; 
//the Clear bitmap to the required background see colour and the draw bitmap 
Dest. Canvas. FillRect (Classes. The Rect (0, 0, Dest. Width, Dest, Height)); 
Dest. Canvas. The Draw (0, 0, Src); 
end;

Information:
Delphi call function of qr code Zint
Delphi Graphic converted to Bitmap
(reproduced) Delphi print bar code method