delphi7新鲜出炉就一个pas的 二维码qrcode for d7 无需dpk无需dll

专用delphi7，1个pas的 二维码qrcode for d7 无需dpk无需dll 解释一下：dx10有个zxing，改成可以d7使用的pas ，引用一个pas即可用。 附赠调用例子，包括生成二维码和保存成图片的函数，物超所值。 procedure TForm4.PaintBox1Paint(Sender: TObject); var Scale: Double; begin PaintBox1.Canvas.Brush.Color := clWhite; PaintBox1.Canvas.FillRect(Rect(0, 0, PaintBox1.Width, PaintBox1.Height)); if ((QRCodeBitmap.Width > 0) and (QRCodeBitmap.Height > 0)) then begin if (PaintBox1.Width < PaintBox1.Height) then begin Scale := PaintBox1.Width / QRCodeBitmap.Width