条形码问题,请高手指点

Question

1.我用Barcode控件能产生条形码,但不知道如何保存为图形文件.
2.在文本框中将字体设为条形码后,看到变化的条形码,但不知道如何打印和保存.
在线等待,感谢您的帮助!

Answer 1

用Label代替Edit来做条形码显示。
然后写下以下代码：
procedure TForm1.Button1Click(Sender: TObject);
var
  Bt : TBitmap;
  ScrRct, DestRct : TRect;
begin
  ScrRct := Label1.ClientRect;
  DestRct := ScrRct;
  bt :=  TBitmap.Create;
  Bt.Width :=  DestRct.Right - DestRct.Left;
  Bt.Height := DestRct.Bottom - DestRct.Top ;
  Try
    bt.Canvas.CopyRect(DestRct,label1.Canvas,ScrRct);
    Bt.SaveToFile ('C:\a.bmp');
  Finally
    bt.free;
  end;end;