电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

在Delphi中条码条码处理方法

在Delphi中条码条码处理方法_第1页
1/11
在Delphi中条码条码处理方法_第2页
2/11
在Delphi中条码条码处理方法_第3页
3/11
下载后可任意编辑在 Delphi 中打印条码的方法步骤如下1 通过菜单”Component”下的”Import ActiveX”将“Microsoft Access Barcode Control 9.0”控件引入。这个控件(msbcode9.occx)随同 Office 一起安装到系统中。2 在“ActiveX”下可以看到该控件,可以直接拖放到窗体上。通过属性设置,可以设置条码类型,内容,宽度、高度等等。 条码的数据是通过”Value”属性设置,也通过 Datasource 等设置引用数据库字段。高度和宽度通过控件的高度宽度设置,空白区域没有找到办法缩减。3 代码在已经插入一个控件后,可以通过以下的处理进行打印。我试过,打印、识读都没有问题。有关不显示在界面上就进行打印的方法,希望用户自己查询。procedure TForm1.Button1Click(Sender: TObject);var bmp:TBitmap; sR,tR:TRect;begin //记录图像 bmp := TBitmap.Create; sR := Rect(BarCodeCtrl1.Left,BarCodeCtrl1.Top,BarCodeCtrl1.Left + BarCodeCtrl1.Width, BarCodeCtrl1.Top + BarCodeCtrl1.Height); tR := Rect(0,0,BarCodeCtrl1.Width,BarCodeCtrl1.Height); bmp.Width := BarCodeCtrl1.Width; bmp.Height := BarCodeCtrl1.Height; bmp.Canvas.CopyRect(tR,Canvas,sR);// bmp.SaveToFile('c:\1.bmp'); //打印 printer.BeginDoc; printer.Canvas.Font.Size := 15; printer.Canvas.TextOut(10,10,'Barcodestrl demo'); printer.Canvas.Draw(20,100,bmp); printer.EndDoc; //释放资源 bmp.free;end;procedure TForm1.FormCreate(Sender: TObject);begin //产生条码 BarCodeCtrl1.Value := '012345678'; BarCodeCtrl1.Width := 400; BarCodeCtrl1.Height := 100; end;假如用键盘口的条码枪, 只用一个 edit,就可以了, 把 focus 放到 edit 控件上, 然后推断回车.. 你用一个 cmd 窗口, 然后拿条码枪去扫条码, 就知道是怎么回事了.基于 Delphi 的条码打印系统设计与实现2024-10-25 09:15 作者: 王若平 出处: 计算机与信息技术 责任编辑:方舟 摘 要 介绍了如何在 Delphi 开发环境下实现条码打印,并结合示例详细介绍了条码打印系统的 设计思路及主要技术实现代码。下载后可任意编辑 引言 随着社会的不断进展,条形码技术以其可靠性高、输入速度快、采集信息量大、灵活使用等优点为各行业带来了良好的经济效益和管理效益。如今条码仓库管理不只适用于商业商品库...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

在Delphi中条码条码处理方法

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部