说明: 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]))
<xu529650136> 上传 | 大小:144kb