如何使用 Delphi/Lazarus 代码在 FastReport VCL 中生成二维码？

近年来，二维码已成为我们日常生活的一部分。它们是一种二维条码，可以通过数字设备轻松读取，并将信息存储为一系列像素。它们已广泛应用于贸易、物流和生产领域。

与简单的条码不同，二维码是水平和垂直读取的。因此，它们存储更多数据。二维码的易识别性和易用性决定了它们的受欢迎程度。使用 FastReport VCL，您可以轻松地在 告中使用 QR 码。让我们更仔细地看看这种可能性。

启动 告生成器设计器。从“条码对象”工具的弹出菜单中选择“QRCode”组件。

添加到页面后，QRCode 将如下所示：

让我们详细看看它的主要功能：

1. 在“常规”选项卡中，您可以更改条码的大小、添加签名或旋转条码。
2. 在“其他选项”选项卡上：

• 如果 CodePage <> 0 – 使用 ECI 模式；
• 您可以在 Encoding 属性中选择文本编码；
• ErrorLevels 属性确保正确读取具有部分损坏的代码图像的数据的冗余；
• QuietZone 检测二维码是否有白框。

• 访问数据源字段；
• 使用系统变量；
• 使用各种功能

在“ExpressionPreset”对象属性中，您可以根据瑞士代码的规范选择生成收据的预设 ：

您可以生成自己的各种类型的二维码，为此您需要指定一个特定格式的字符串并在 Text 属性中进行设置。

让我们通过条形码和数据的示例仔细看看这些类型：

URI是统一资源标识符。它是一个字符串，用于标识各种文件、文档、图像、电子邮件、Web 服务等：

电子邮件 地址 – 电子邮件地址：

EmailMessage – 电子邮件文本：

地理位置 ——真实地理位置的坐标：

短信 – 短信：

致电- 电话 码：

Wi -fi – 连接到 wi-fi 的信息：

从 Delphi/Lazarus 代码创建一个 QR 代码：

uses frxBarcode2D;procedure TForm1.Button1Click(Sender: TObject);var bcQR: TfrxBarcode2DView;begin bcQR := TfrxBarcode2DView(frxReport1.FindObject('Barcode2D1')); { Set the barcode type } bcQR.BarType := bcCodeQR; { Depending on the type you want to use, you need to } { leave one line that assigns the text of a certain format } { If you want to set url type: } bcQR.Text := 'https://www.fast-report.com/en/'; { If you want to set EmailAddress type: } bcQR.Text := 'support@fast-report.com'; { If you want to set EmailMessage type: } bcQR.Text := 'MATMSG:TO:support@fast-report.com;SUB:FastReport VCL question;BODY:Hello, I have a question about FastReport VCL.;'; { If you want to set Geolocation type: } bcQR.Text := 'geo:-50.737563,-79.490016,120'; { If you want to set SMS type: } bcQR.Text := 'SMSTO:(71) 555-4444:Hello, Dolly! I'' m fine ! '; { If you want to set Call type: } bcQR.Text := 'tel:(71) 555-4444'; { If you want to set Wi-Fi type: } bcQR.Text := 'WIFI:T:WPA;S:Honeypot;P:youarewelcome;H:true;'; frxReport1.ShowReport();end;

了解更多产品授权信息，请点击FastReport VCL查看，或咨询在线客服。

标签：