生成二维码的 Delphi 代码

在 Delphi 中生成二维码是一项常见的需求。以下是一个简单的示例代码，可以帮助你快速上手。 首先，我们需要引入必要的库文件。你可以从官方网站下载并安装 Delphi QR Code Generator。 接下来，我们可以使用 TQRCode 组件来生成二维码。下面是一个基本的示例： ```delphi uses TQRCode; procedure TForm1.Button1Click(Sender: TObject); begin // 设置二维码的内容和大小 var QRContent : string := 'https://www.example.com'; // 二维码内容 QRWidth, QRHeight : Integer = 300; // 二维码宽度和高度 end; // 创建二维码对象并生成二维码图片 var QRCode : TQRCode; QRImage : TJPEGImage; begin QRCode := TQRCode.Create(TQRCode.QRCodeType.QR); // 创建 QRCode 对象，指定类型为 QR QRCode.QRData := EncodeQRCoder(QRContent, nil); // 设置二维码内容为 URL QRCode.QRSize := QRWidth; // 设置二维码宽度和高度 QRImage := TJPEGImage.Create; // 创建 JPEG 图片对象 QRImage.Assign(QRCode.GetBitmap); // 将 QRCode 对象的位图赋值给 JPEG 图片对象 QRImage.SaveToFile('qrcode.jpg'); // 保存为 JPEG 图片文件 end;