在delphi下生成二维码

最新推荐文章于 2025-09-11 13:12:21 发布

原创

最新推荐文章于 2025-09-11 13:12:21 发布 · 3.2k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #matrix

本文介绍了如何在Delphi环境下利用开源库TDelphiZXingQRCode生成二维码。该库提供了一种高效的方法，通过TBitmap直接绘制点来创建二维码，避免了额外的内存消耗和文件生成。示例代码展示了创建二维码的步骤，并提到了针对不同编码类型的选择，如使用UTF8无BOM编码避免错误码的生成。

在delphi下生成二维码，可以使用TDelphiZXingQRCode，该开源代码地址为：https://github.com/foxitsoftware/DelphiZXingQRCode/tree/master/Source

如果下载不了可以在https://download.youkuaiyun.com/download/csaaa2005/13704055下载

使用方法：

procedure CreateQrcode(code:string;img:TImage);
var
QRCode: TDelphiZXingQRCode;
Row, Column: Integer;
begin
QRCode := TDelphiZXingQRCode.Create;
try
QRCode.Data := code;
QRCode.Encoding := TQRCodeEncoding(0); //参加例子0-5 0：auto 4: utf-8
QRCode.QuietZone := 4;//0-100 边缘空白像素值
QRCodeBitmap.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
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clBlack;
        end else
        begin
          QRCodeBitmap.Canvas.Pixels[Column