需要用到 DelphiZXingQRCode 单元，这个单元可以到作者的官网去下载。这个函数只是一个简单的封装： function GenerateQRCode(AData: String):TBitmap; var AQRCode: TDelphiZXingQRCode; R: Integer; C: Integer