直接FastReportの生成されたバーコードを使用します

手順TForm1.Button1Click（送信者：TObjectを）;
var 
   X：TfrxbarCodeView。
開始

     X： = TfrxbarCodeView。作成（セルフ）; 
     x.BarType： = bcCode128。
     x.Expression： = ' 111 ' ; 
     x.Width： = 20 ; 
     x.Height： = 20 ; 
     x.Draw（キャンバス、3、6、15、15 ）。
     x.Free; 

エンド ;

 

 ユニットを参照する必要があります。frxBarcode、frxBarcod

おかげLWWVB共有する友人のグループ！