二维码动态链接库

时间:2021-04-30 05:56:16
【文件属性】:

文件名称:二维码动态链接库

文件大小: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;


网友评论