|
| 盒子资源分类 |
![]() |
|
|
|
|
| 39条码 EAN13条码 示范程序 |
![]() |
| 关键字：条码 39 EAN13条码 图形 PutImgBrEan PutImgBr39 |
| 来 自：原创 |
| 平 台：Win9x,Win2k/XP/NT,Win2003 |
下载所需：0 火柴 |
| 深浅度：初级 |
完成时间：2005/4/24 |
| 发布者：lanpx |
发布时间：2005/4/24 |
| 编辑器：Kylix |
语 种：简体中文 |
| 分 类：图形 |
下载浏览：3259/15003 |
|
|
|
|
|
条码示范程序 带算法 39条码 EAN13条码
//EAN13效验位计算
function GetEanVerify(InputS: string): string;
//EAN13条码输出
//aC 画板 R 区域 BrStep 步长 BrColor1 前景颜色 BrColor2 背景颜色
function PutImgBrEan(InPtS: string; aC: TCanvas; R: TRect; BrStep: Word; BrColor1: TColor = clBlack; BrColor2: TColor = clWhite): string;
//39 条码识别 ScanC 0 - 输出黑白10序列 1 - 按步长解析成10序列 2 -解析成字符串
function ScanImgBr39(aC: TCanvas; R: TRect; ScanC: byte = 2): string;
//39 条码输出
procedure PutImgBr39(InPtS: string; aC: TCanvas; R: TRect; BrStep: Word ; BrColor1:TColor=clBlack;BrColor2:TColor=clWhite); |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
|
|
|
