本文主要介紹如何使用 Delphi/Lazarus 代碼在FastReport VCLL中生成二維碼。

FastReport VCL官方版下載

近年來，二維碼已成為我們?nèi)粘Ｉ畹囊徊糠?。它們是一種二維條碼，可以通過數(shù)字設(shè)備輕松讀取，并將信息存儲(chǔ)為一系列像素。它們已廣泛應(yīng)用于貿(mào)易、物流和生產(chǎn)領(lǐng)域。

與簡(jiǎn)單的條碼不同，二維碼是水平和垂直讀取的。因此，它們存儲(chǔ)更多數(shù)據(jù)。二維碼的易識(shí)別性和易用性決定了它們的受歡迎程度。使用 FastReport VCL，您可以輕松地在報(bào)告中使用 QR 碼。讓我們更仔細(xì)地看看這種可能性。

啟動(dòng)報(bào)告生成器設(shè)計(jì)器。從“條碼對(duì)象”工具的彈出菜單中選擇“QRCode”組件。

添加到頁面后，QRCode 將如下所示：

雙擊它打開二維條碼編輯器。這也可以通過選擇“編輯”項(xiàng)從上下文菜單中完成：

這是條形碼編輯器的樣子：

讓我們?cè)敿?xì)看看它的主要功能：

1. 在“常規(guī)”選項(xiàng)卡中，您可以更改條碼的大小、添加簽名或旋轉(zhuǎn)條碼。
2. 在“其他選項(xiàng)”選項(xiàng)卡上：
• 如果 CodePage <> 0 - 使用 ECI 模式；
• 您可以在 Encoding 屬性中選擇文本編碼；
• ErrorLevels 屬性確保正確讀取具有部分損壞的代碼圖像的數(shù)據(jù)的冗余；
• QuietZone 檢測(cè)二維碼是否有白框。
3. 在表達(dá)式編輯器的“代碼”行中，您可以：
• 訪問數(shù)據(jù)源字段；
• 使用系統(tǒng)變量；
• 使用各種功能

在“ExpressionPreset”對(duì)象屬性中，您可以根據(jù)瑞士代碼的規(guī)范選擇生成收據(jù)的預(yù)設(shè) ：

您可以生成自己的各種類型的二維碼，為此您需要指定一個(gè)特定格式的字符串并在 Text 屬性中進(jìn)行設(shè)置。

讓我們通過條形碼和數(shù)據(jù)的示例仔細(xì)看看這些類型：

URI是統(tǒng)一資源標(biāo)識(shí)符。它是一個(gè)字符串，用于標(biāo)識(shí)各種文件、文檔、圖像、電子郵件、Web 服務(wù)等：

電子郵件 地址 - 電子郵件地址：

EmailMessage – 電子郵件文本：

地理位置 ——真實(shí)地理位置的坐標(biāo)：

短信 - 短信：

致電- 電話號(hào)碼：

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

從 Delphi/Lazarus 代碼創(chuàng)建一個(gè) 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 := '//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 中使用二維碼。該組件為在現(xiàn)代工作流程中使用此報(bào)告生成器帶來了更多可能性。

了解更多產(chǎn)品授權(quán)信息，請(qǐng)點(diǎn)擊FastReport VCL查看，或咨詢慧都。