使用delphi生成二维码图像

由于项目需要,最近找了不少关于二维码生成的方法。有zxing,有一些dll,OCX之类的。最后在git上找到了pxQRcode这个项目。

下载pxQRcode.pas后使用demo中的方法,可以生成二维码,但是,手机不能识别。研究了半天,做如下改动:

第23行:

QR_DEFAULT_MASK = 2;

改为:

QR_DEFAULT_MASK = 0;  

就可以了。

 

我是用在打印里面的,使用的是QuickReport

使用方法:

新建一个QRimage1:TQRImage,QRLabel1:TQRLabel

procedure TFormPrint.FormShow(Sender: TObject);
var
ms: TMemoryStream;
s2: string;
i: Integer;
begin
ms := TMemoryStream.Create;
try

s2 := QRCode;
QRLabel1.Caption:=s2;
CreateQRCodeBMP(s2, ms, QR_ECLEVEL_H, 10);
ms.Position := 0;
QRImage1.Picture.Bitmap.LoadFromStream(ms);
finally
ms.Free;
end;

end;

 

使用delphi生成二维码图像

上一篇:win10安装msys2(转)


下一篇:android-软键盘-仅数字