Delphi 调用Codesoft打印条码

最新推荐文章于 2021-09-29 13:06:18 发布

爱水心寒

最新推荐文章于 2021-09-29 13:06:18 发布

阅读量3.6k

点赞数

分类专栏： Delphi 文章标签： delphi Codesoft

本文链接：https://blog.csdn.net/qq_19784269/article/details/50570239

版权

本文介绍了如何在Delphi应用中利用OLE控件调用Codesoft进行条码打印。内容包括设置变量值，如'TEXT'和'BARCODE'，以及打印标签页的方法。注意， Codesoft的绿色版无法正常工作，必须使用正式安装版，因为它需要写入注册表。

摘要由CSDN通过智能技术生成

使用Delphi调用CodeSoft打印条码，使用OLE控件的方法。但需要注意的Codesoft是正式的安装版，使用绿色版不行，绿色版没有写注册表。

下面是测试通过的列子：(需要引用ComObj.Pas文件)

function DoPrint:Boolean;
var
barApp: Variant;
BarDoc,BarVars: Variant;
vPath: string;
begin
Result := False;
try
vPath := ExtractFilePath(Forms.Application.ExeName);
// 打印第一页
if not FileExists(vPath+'TEST.Lab') then
begin
showMessage('打印标签不存在,请检查!');
Exit;
end;

BarApp := CreateOleObject('lppx.Application');
BarApp.Visible:=False;
BarDoc:=BarApp.ActiveDocument;
BarVars:=BarDoc.Variables;
BarDoc.Open(vDSNFile);

// 'TEXT'、'BARCODE'均为TEST.Lab标签纸上的控件名称
BarDoc.Variables.Item('TEXT').Value := 'TEXTValue';
BarDoc.Variables.Item('