利用FastReport直接生成条码

procedure TForm1.Button1Click(Sender: TObject);
var
   x:TfrxbarCodeView;
begin

     x:=TfrxbarCodeView.Create(Self);
     x.BarType:=bcCode128;
     x.Expression:='111';
     x.Width:=20;
     x.Height:=20;
     x.Draw(Canvas,3,6,15,15);
     x.Free;

end;

 需要引用单元：frxBarcode,frxBarcod

感谢群里的朋友LWWVB分享！