如果你还在为打印条码而烦脑,那么金锐条码控件将是你的最佳选择,它可能是目前最实用, 价格最适宜的条码解决方案了。它有“控件”和“标准DLL调用”两种方式,可满足不同的应用需求。 http://www.kw128.com/down/KwBarCode.rar 条码: Code39 长度任意,可为:数字、字母、+ - . % $ / I25 双数长度,只能为数字。如为奇数长度则自动在前面补'0' 128c 双数长度,只能为数字。如为奇数长度则自动在前面补'0' Codabar 长度任意,只可为:数字 和 + - . % $ / ENA13 定长,13位,末位为检查码,不足位则自动在后面面补'0',检查码可自动成生。 ENA8 定长, 8位,末位为检查码,不足位则自动在后面面补'0',检查码可自动成生。 UPC-A 定长,12位,首位自动加'0',变13位长,末位为检查码,检查码可自动成生。 1. 属性:(控件) BarImage 用于显示条码的Image图像控件 BarStr 条码值,如:12345678 BarId 条码类型(1-7)分别为上述条码 BarColor 条码线条的颜色 为Tcolor类型值,默认为黑色 BarWidth 条码粗细度(1--5) 一般为2或3 BarHeight 条码高度,一般要大于20 BarNo 是否显示条码值 为 (true 或 false) 或 (1 或 0) 方法:(控件) DrawBarcode 当设了BarImage,调用此方法可生成条码。 DrawToCanvas 在指定的画布Canvas的x,y位置上生成条码 DrawToBimap 在指定的位图上生成条码,成生后位图大小为条码图形的大小 SaveToBmp 将条码存到指定的bmp文件中 2. 方法:(DLL调用) DrawToCanvas 在指定的画布的x,y上生成条码 DrawToBimap 在指定的位图上生成条码,成生后位图大小为条码图形的大小 SaveToBmp 将条码存到指定的bmp文件中 SetBarStr 设 条码值 SetBarID 设 条码类型(1-7)分别为上述条码 SetBarcor 设 条码线条的颜色(0-17)。 0为黑色,9为红色,12为蓝色..默认为黑色 SetBarWid 设 条码粗细度(1--5) 一般为2或3 SetBarHei 设 条码高度,一般要大于20 SetBarNo 设 是否显示条码值 为 (true 或 false) 或 (1 或 0) 调用:(先定义DLL方法,然后才可以调用) procedure DrawToCanvas(Cav: Tcanvas;x,y:integer);Stdcall;external 'KwBarDll.dll'; procedure DrawToBimap(bm: Tbitmap);Stdcall; external'KwBarDll.dll'; procedure SaveToBmp(Bmpfile:string);Stdcall; external'KwBarDll.dll'; procedure SetBarStr(Value: string);Stdcall; external'KwBarDll.dll'; procedure SetBarID(Value: byte);Stdcall; external'KwBarDll.dll'; procedure SetBarcor(Value: byte);Stdcall; external'KwBarDll.dll'; procedure SetBarWid(Value: byte);Stdcall; external'KwBarDll.dll'; procedure SetBarHei(Value: integer);Stdcall; external'KwBarDll.dll'; procedure SetBarNo(Value: boolean);Stdcall; external'KwBarDll.dll'; ---------------------------------------------------------------------------------- "金锐软件 让您的打印更方便" 软件制作:钟上志 于广东英德市 2006.07.1 ---------------------------------------------------------------------------------- 有缘可联系,QQ:394641110 电话:13360920277,0763-2285088 网址:http://www.kw128.com