delphi 绘制二维码

最新推荐文章于 2024-08-08 07:45:50 发布

weixin_33796205

最新推荐文章于 2024-08-08 07:45:50 发布

阅读量231

点赞数

原文链接：https://my.oschina.net/u/2343604/blog/1933925

版权

2019独角兽企业重金招聘Python工程师标准>>>

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;
QRCode.Data := ACode;

AImg.Height := QRCode.Rows * IMG_SCALE;
AImg.Width := QRCode.Columns * IMG_SCALE;

AImg.Canvas.Lock;
AImg.Canvas.Brush.Color := clWhite;
AImg.Canvas.FillRect(Rect(0, 0, AImg.Width, AImg.Height));
AImg.Canvas.Brush.Color := clBlack;
for Row := 0 to QRCode.Rows - 1 do
for Column := 0 to QRCode.Columns - 1 do
if QRCode.IsBlack[Row, Column] then
begin
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;