Tạo mã vạch QR, một thành phần không hiển thị, cho phép bạn tạo ra các loại mã vạch khác nhau, bao gồm cả QR Code. Cách sử dụng rất đơn giản.

Dưới đây là danh sách các thuộc tính chính:

• Màu sắc mã vạch: Màu của mã vạch được tạo.
• Định dạng mã vạch: Loại mã vạch (ví dụ: QR Code).
• Văn bản phía dưới: Nội dung văn bản hiển thị bên dưới mã vạch.
• Màu văn bản phía dưới: Màu sắc của văn bản dưới mã vạch.
• Kích thước văn bản: Kích thước của văn bản.
• Nội dung mã vạch: Dữ liệu cần mã hóa trong mã vạch.
• Chiều rộng và chiều cao hình ảnh: Kích thước của hình ảnh đầu ra.
• Logo tùy chỉnh: Thêm logo vào mã vạch.
• Hiển thị văn bản phía dưới: Bật hoặc tắt hiển thị văn bản dưới mã vạch.

Dưới đây là đoạn mã để tạo một mã vạch QR:

procedure CreateQRCode;
var
  QRGenerator: TCustomQRGenerator;
  QRBitmap: TBitmap;
begin
  QRGenerator := TCustomQRGenerator.Create(nil);
  try
    QRGenerator.Format := TQRFormat.QR_CODE;
    QRGenerator.Content := edtQRContent.Text;
    QRGenerator.Color := cbxQRColor.SelectedColor;
    QRGenerator.ImageWidth := 300;
    QRGenerator.ImageHeight := 300;
    if chxIncludeLogo.IsChecked then
      QRGenerator.Logo := imgLogo.Bitmap;

    QRGenerator.ShowBottomText := chxShowBottomText.IsChecked;
    QRGenerator.BottomText := edtBottomText.Text;
    QRGenerator.BottomTextColor := TAlphaColors.Blue;
    QRGenerator.BottomTextSize := 16;
    QRGenerator.BottomPadding := 15;
    QRGenerator.LinePadding := 8;

    QRBitmap := QRGenerator.Generate;
    imgQRCode.Bitmap.Assign(QRBitmap);
  finally
    QRGenerator.Free;
  end;
end;

Trong ví dụ thực tế, tôi đã sử dụng ứng dụng này để chuyển đổi đường dẫn tải xuống ứng dụng thành mã QR.

Lưu ý rằng khi sử dụng Delphi 10.3.3, có thể xảy ra lỗi "flash crash" khi khởi động ứng dụng. Để giải quyết vấn đề này, bạn cần thêm tệp google-core-3.3.1.jar vào dự án.

Dưới đây là nhật ký lỗi khi ứng dụng bị sập:

W System.err: java.lang.NoClassDefFoundError: Failed resolution of: Lcom/google/zxing/MultiFormatWriter;
W System.err: Caused by: java.lang.ClassNotFoundException: Didn't find class "com.google.zxing.MultiFormatWriter"

Hướng dẫn tích hợp google-core-3.3.1.jar:

1. Trong cửa sổ Project Manager, nhấn chuột phải vào thư mục Libraries của dự án.
2. Chọn Add và chọn file google-core-3.3.1.jar từ thư mục: \ChinaCock\FMX\sdk.

Sau khi hoàn tất, tái biên dịch và triển khai lại ứng dụng.