文件名称:二维码动态链接库
文件大小:144KB
文件格式:DLL
更新时间:2021-04-30 05:56:16
QRcode 二维码 delphi
procedure qr(const AStr, AOut: AnsiString; AMargin, ASize, AEightBit,ACasesens, AStructured, ALevel, ACode: Integer; AFore, ABack: TColor); stdcall; external 'QRcode.dll'; //生成二维码图片 try qr( AnsiString(StringReplace(URLA, #13#10, '', [rfReplaceAll])), AnsiString(ExtractFilePath(ParamStr(0)) + '1.bmp'), //输出地址 StrtoIntDef('2', 2), //边界 StrToIntDef('5', 3), //大小 0, 1, 0, 0, 0, clBlack, //颜色 clWhite //底色 ); except MessageDlg('生成失败!', mtInformation, [mbOK], -1); end;