【文件属性】:
文件名称:二维码生成算法单元
文件大小:102KB
文件格式:PAS
更新时间:2019-07-21 12:12:11
delphi、XE
换点资源分,二维码生成单元,已用于实际项目,安全、无bug。使用场景可用于各种文本信息转二维码图片中,如微信、支付宝主扫账单支付生成二维码等。
调用方法如下:
procedure TMainSweep.LoadQrCode(AQRCode: string; Img: TImage);
var
QRCode: TDelphiZXingQRCode;
Row, Column: Integer;
l, t, r, b: integer;
Scale : integer ;
begin
QRCode := TDelphiZXingQRCode.Create;
try
QRCode.Data := AQRCode;
QRCode.Encoding := TQRCodeEncoding(0);
QRCode.QuietZone := 5;
Scale := 5;
QRCodeBitmap.SetSize( Scale * QRCode.Rows, Scale * QRCode.Columns);
QRCodeBitmap.Clear( TAlphaColorRec.White);
QRCodeBitmap.Canvas.BeginScene();
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.Fill.Color := TAlphaColorRec.Black ;
l := Row * Scale ;
r := ( Row + 1 ) * Scale ;
t := Column * Scale ;
b := ( Column + 1 ) * Scale ;
QRCodeBitmap.Canvas.FillRect(TRectF.Create(l,t,r,b), 0, 100, AllCorners, 1);
end;
end;
end;
QRCodeBitmap.Canvas.EndScene;
finally
QRCode.Free;
end;
img.Bitmap.Assign(QRCodeBitmap);
end;
网友评论
- 很不错,确定有用