DELPHI7中Fastreport插件如何将一维码转换成图片啊？然后再将图片放到条码上。

Posted 2023-05-15

直接输出条码不就成了，如果转化成图片，输出的时候就会出现失真，模糊的情况追问

一维码信息过多，导致一维码长度超出打印纸的范围，修改ZOOM属性条码又扫描不了，这种情况有什么办法吗？

追答

设置条码大小，不让超出打印宽度

追问

但是这样就无法扫描出数据咯。

追答

你的条码很大吗？

参考技术A 切换到 canvas上，然后保存到图片？

不使用fastreport自带的条码组件打印快递单（一款很不错的条码组件下载）

由于没有正确安装fastreport组件，导致没法使用fastreport中的条码组件，如何解决：

思路：

1、虽然条码组件不能使用，但有fastreport中picture组件可用。

2、查找可以生成一维码图片的组件。通过寻找找到了Barcode（下载）

3、利用picture的filelink属性，在报表中加载第二步产生的条码bmp图片。

步骤如下：

一、设计报表

1、在fastreport设计器中加入picture组件

2、设置picture的FileLink属性：c:\barcode.bmp；

二、编写代码，利用Barcode组件，产生一维码：

var
  Barcode1: TAsBarcode;
begin
  Barcode1 := TAsBarcode.Create(self);
  Barcode1.Top := 0;
  Barcode1.Left := 0;
  Barcode1.Modul := 1;
  Barcode1.Ratio := 2.0;
  Barcode1.Height := 75;
  Barcode1.Text := ‘012345678’;
  Barcode1.ShowText := bcoCode;
  Barcode1.Typ := TBarcodeType(5);
  Barcode1.ShowTextPosition := TShowTextPosition(5);
  Barcode1.Modul := 3;
  try
        Barcode1.Angle := 90;
    except
        Barcode1.Angle := 0.0;
    end;
  Image1.Picture := nil;
  Barcode1.DrawBarcode(Image1.Canvas);
  Image1.Picture.BITMAP.SaveToFile(‘c:\barcode.bmp‘);//(同FileLink属性一致)
  frxReport1.LoadFromFile(‘xxx.fr3‘);
  frxReport1.PrepareReport;

  frxReport1.PrintOptions.ShowDialog := False;
  frxReport1.Print;