Code128条码生成打印Delphi7

CODE128码在PB中的实现 http://blog.csdn.net/leedee/article/details/4980755 分类： PowerBuilder 2009-12-10 17:08 232人阅读 评论(0) 收藏 举报 在信息系统开发时通常有用户要求能够打印条码，如CODE128码，使用专门的条码打印程序固然可能，但难以与你的信息系统接轨，虽然也有支持数据源为数据的条码打印程序。通常有几种方法实现条码的打印：一、直接向打印机发送控制命令，二、使用条码字体，三、印刷。各有优劣，使用条码字体的方法无疑是最简单、经济的做法，如果对条码识别精确度不高（比如使用下面我提供的方法由最大分辨率为200dpi的条码打印机打印出来的条码在条码检测仪上被评为F级即最低级），建议试试条码字体的方法。 以下代码可实现在PB中将源字符串转为可打印的CODE128码字符串。为了能正确显示条码并能打印，你必须先安装CODE128码字体并将显示为CODE128码的对象的字体设置为CODE128码。例如，在PB数据窗口对象中创建一个表达式类似“f_getcode128(要显示成CODE128码的栏位)”的计算列，字体设置为CODE128码。 F_getcode128实现的是CODE128B版本，你可以根据CODE128的编码原理实现A版本和C版本。要注意的是，由于CODE128码字符串包含不可正常显示的字符，你必须使用支持Unicode码的PB版本，如PB10以上。 附CODE128码在PB中的实现源代码。 /******************************************************************* 函数名称：f_getcode128() 参数: as_sourcetext string 源字符串 返回值： string 转成code128码后可打印的字符串 功能描述：取code128码字符串 创建人： 康剑民 创建日期：2008-12-10 版本号： V1.0 备注：要在PB中正常打印code128码字符串，必须使用PB10以上（支持Unicode码） *******************************************************************/ //CODE128条码基础知识 //CODE128有三个版本 //CODE128A: 标准数字和字母, 控制符, 特殊字符 //CODE128B: 标准数字和字母, 小写字母, 特殊字符 //CODE128C: [00]-[99]的数字对集合, 共100个 //本函数采用CODE128B版本 //条码由开始位、数据位、校验位、停止位组成 //计算过程： //1.取各字符ASC码乘以字符序号之和（以ASC=32为分界点，大于32减32，小于32加64） //2.计算校验码 //3.组合条码：开始位+数据位+校验位+停止位 int li_asc_total = 104 int li_asc_tmp,i char lc_start=char(204)//采用CODE128B版本 char lc_stop=char(206) int li_check_digit string ls_check_digit //1.取各字符ASC码乘以字符序号之和（以ASC=32为分界点，大于32减32，小于32加64） For i = 1 To len(as_sourcetext) li_asc_tmp = Asc(mid(as_sourcetext,i, 1)) If li_asc_tmp >= 32 Then li_asc_total = li_asc_total + (li_asc_tmp - 32) * i Else li_asc_total = li_asc_total + (li_asc_tmp + 64) * i End If Next //2.计算校验码 li_check_digit = mod(li_asc_total,103) If li_check_digit >= 95 Then//特殊字符 li_check_digit = li_check_digit + 100 Else li_check_digit = li_check_digit + 32 end if ls_check_digit = char(li_check_digit) //3.组合条码：开始位+数据位+校验位+停止位 Return lc_start + as_sourcetext + ls_check_digit + lc_stop