delphi 绘制二维码

Posted 2020-10-15 伯通心智

uses
   vcl.Graphics, DelphiZXingQRCode;

procedure CreateQRCode(AImg: vcl.Graphics.TBitMap; const ACode: String);
const
  IMG_SCALE = 25; //放大倍数
var
  QRCode: TDelphiZXingQRCode;
  Row, Column: Integer;
begin
  if (AImg = nil) or (Trim(ACode) = ‘‘) then Exit;

  QRCode := TDelphiZXingQRCode.Create;
  try
    QRCode.Data := ACode;
    QRCode.Encoding := TQRCodeEncoding(qrUTF8BOM);
    QRCode.QuietZone := 1;
    AImg.Assign(nil);
    AImg.Height := QRCode.Rows * IMG_SCALE;
    AImg.Width := QRCode.Columns * IMG_SCALE;

    AImg.Canvas.Lock;
    for Row := 0 to QRCode.Rows - 1 do
      for Column := 0 to QRCode.Columns - 1 do
      begin
        if QRCode.IsBlack[Row, Column] then
          AImg.Canvas.Brush.Color := clBlack
        else
          AImg.Canvas.Brush.Color := clWhite;

        AImg.Canvas.FillRect(Rect(Column * IMG_SCALE,  Row * IMG_SCALE,
          Column * IMG_SCALE + IMG_SCALE, Row * IMG_SCALE + IMG_SCALE));

      end;
    AImg.Canvas.Unlock;
  finally
    QRCode.Free;
  end;
end;