1.开发中用到二维码生成单元DelphiZXIngQRCode.pas，编写二维码生成函数，代码如下：
function CreateQRcode(sData, sPath: string; sEncoding, sQuietZone: Integer): Boolean;
//创建二维码图片 sData二维码内容 sPath是图片的保存路径 sEncoding文档编码方式 sQuietZone二维码大小
var
QRCode: TDelphiZXingQRCode;
Row, Column: Integer;
QRCodeBitmap: TBitmap;
begin
try
Result := False;
if Trim(sPath) = '' then
sPath := 'C:\qrcode\txid.bmp';
if not DirectoryExists('C:\qrcode') then
begin
if not CreateDirectory(PChar('C:\qrcode'), nil) the
