elphi生成二维码函数procedureGenerate2DCode(AStr:string;ASize:Integer;ABmp:TBitmap);vars:TByteArray;m:TByteArray;i,j:Integer;w,h:integer;cc:Integer;beginifnotAssigned(ABmp)thenExit;SetLength(s,Length(AStr));fori:=1toLength(AStr)dobegins[i-1]:=Ord(AStr[i]);end;CalcECC200(s,ecc200_Autosize,ec