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

 一、下载地址: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
      for Column := 0 to QRCode.Columns - 1 do
      begin
        if (QRCode.IsBlack[Row, Column]) then
        begin
          Bitmap.Canvas.Pixels[Column, Row] := clBlack;
        end else
        begin
          Bitmap.Canvas.Pixels[Column, Row] := clWhite;
        end;
      end;
    end;
  finally
    QRCode.Free;
  end;
end;

3)调用 


procedure TForm1.Button5Click(Sender: TObject);
begin
QRCodeBitmap:=TBitmap.Create;
GenerateQRCodeBitmap('http://www.example.com', TQRCodeEncoding.qrAuto, 4, QRCodeBitmap);
image1.Picture.Bitmap:=QRCodeBitmap;
QRCodeBitmap.free;
end;

三、代码解释:

该过程接受四个参数:SourceText 表示要编码成二维码的文本,Encoding 表示编码方式,QuietZone 表示安静区大小,Bitmap 是用于保存生成的二维码的 TBitmap 对象。

在过程中,我们首先创建一个 TDelphiZXingQRCode 对象,设置它的 Data、Encoding 和 QuietZone 属性。然后创建一个 TBitmap 对象,设置它的大小为 TDelphiZXingQRCode 对象的 Rows 和 Columns 属性。接下来,我们使用 for 循环遍历 TDelphiZXingQRCode 对象的 IsBlack 属性,并将相应的像素颜色设置为黑色或白色。最后,我们释放 TDelphiZXingQRCode 对象并重绘 PaintBox1。

四、效果如下:

DelphiZXingQRCode 库:轻松集成二维码生成功能到 Delphi 项目中_第1张图片

 

 

你可能感兴趣的:(QRCode,delphi,单元)