Delphi7 Report Machine5.5が二次元コードを表示しない問題

2年 ago
結衣, 春花
1 minute

Delphi 7でReport Machine 5.5を使用してQRコードを表示する方法は以下の手順に従って操作することができます。

  1. Delphi 7とReport Machine 5.5がインストール済みであることを確認してください。
  2. Delphi 7 で新しいレポートプロジェクトを作成し、QRコードを表示する場所に TQRImage コントロールを追加してください。
  3. TQRImageコントロールのOnPrintイベントに次のコードを追加してください。
procedure TForm1.QRImage1Print(sender: TObject; var Value: string);
var
  QRCode: TDelphiZXingQRCode;
  QRBitmap: TBitmap;
begin
  QRCode := TDelphiZXingQRCode.Create;
  try
    QRCode.Data := 'Hello, World!'; // 设置二维码的数据
    QRCode.Encoding := TQRCodeEncoding.qrAuto; // 设置二维码的编码方式，可根据需要修改
    QRBitmap := QRCode.GetBitmap;
    try
      QRImage1.Picture.Assign(QRBitmap);
    finally
      QRBitmap.Free;
    end;
  finally
    QRCode.Free;
  end;
end;
  1. プログラムを実行すると、レポートのTQRImageコントロールには「Hello, World!」データを含むQRコードが表示されます。

上記のコードでは第三者のライブラリであるDelphiZXingを使用してQRコードを生成しています。DelphiZXingのGitHubページ（https://github.com/spksoft/DelphiZXingQRCode）からダウンロードしてライブラリをインストールすることができます。インストールが完了したら、DelphiZXingQRCodeユニットをレポートプロジェクトに追加する必要があります。

その他に、必要に応じてコード内のQRコードデータやエンコード方法を変更することができます。

bannerAds