DelphiZXingQRCode 库：轻松集成二维码生成功能到 Delphi 项目中

最新推荐文章于 2025-10-28 10:08:44 发布

原创

最新推荐文章于 2025-10-28 10:08:44 发布 · 1.7k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#QRCode #delphi #单元

文章介绍了如何利用GitHub上的DelphiZXIngQRCode库在Delphi中生成二维码，包括引用单元、定义生成二维码的函数以及具体调用示例，生成的二维码保存在TBitmap对象中并显示在界面上。

一、下载地址：GitHub - foxitsoftware/DelphiZXingQRCode: Delphi port of QR Code functionality from ZXing, a barcode image processing library.

二、使用步骤：

1）引用单元文件。

//引用单元
uses
   DelphiZXIngQRCode

2）编写函数。


//生成qrcode函数
procedure GenerateQRCodeBitmap(const SourceText: string; const Encoding: TQRCodeEncoding;
  const QuietZone: Integer; const Bitmap: TBitmap);
var
  QRCode: TDelphiZXingQRCode;
  Row, Column: Integer;
begin
  QRCode := TDelphiZXingQRCode.Create;
  try
    QRCode.Data := SourceText;
    QRCode.Encoding := Encoding;
    QRCode.QuietZone := QuietZone;
    Bitmap.SetSize(QRCode.Rows, QRCode.Columns);
    for Row := 0 to QRCode.Rows - 1 do
    begin