请教--关于斑马打印机的操作(200分)

作为条码打印机，斑马打印机有许多不容易操作的地方
原来是直接写端口，使用特定的脚本描述，特别烦，必须特定格式
所以我想用printers,可是效果不好，
所以请大家赐教
[!]

up
up

斑马打印机好象有一个打印软件专门打印条形码的，还可以赋不同的值给条形码（通过数据库）
，自己做条形码打印我就不知道了。一般买斑马打印机都会送一个这样的打印软件吧。如果你没有我可以帮你找找
你在程序里把该软件调出了就可以了

找到winpplb.dll
function Set_Darkness(darkness: integer): integer;
stdcall;
external 'WINPPLB.DLL';
function CreatePrn(selection: integer;
FileName: pchar): integer;
stdcall;
external 'WINPPLB.DLL';
function Print_Out(copypiece: integer): integer;
stdcall;
external 'WINPPLB.DLL';
function Prn_Text(x, y, ori, font, hor_factor, ver_factor: integer;
mode: char;
data: pchar): integer;
stdcall;
external 'WINPPLB.DLL';
function Prn_Barcode(x, y, ori: integer;
typee: pchar;
narrow, width, height: integer;
human: char;
data: pchar): integer;
stdcall;
external 'WINPPLB.DLL';
function Prn_Text_TrueType(x, y, FSize: integer;
FType: pchar;
Fspin, FWeight, FItalic, FUnline, FStrikeOut: integer;
id_name, data: pchar): integer;
stdcall;
external 'WINPPLB.DLL';
function Get_Pcx(x, y: integer;
filename: pchar): integer;
stdcall;
external 'WINPPLB.DLL';
procedure ClosePrn();
stdcall;
external 'WINPPLB.DLL';

procedure printbar(matname, bar, matunit: string;
price:do
uble;
printnum: integer);
var
i: integer;
s: string;
begin
for i := 1 to printnumdo
begin
Prn_Text_TrueType(curcolumn * argox_dotper + 30, //x方向间隔是2mm
paperindex * 20 + 15, 20, pchar('宋体'), 1, 400, 0, 0, 0, pchar('A' + inttostr(curcolumn)), pchar(matname));
Prn_Barcode(curcolumn * argox_dotper + 40,
paperindex * 20 + 40, 0, pchar(bartype), 2, 2, 50, 'b', pchar(bar));
if printprice then
s := format('单价:%.2f元', [price]) else
s := '';
if printmatunit then
s := s + ' 单位:' + matunit;
Prn_Text_TrueType(curcolumn * argox_dotper + 40,
paperindex * 20 + 110, 20, pchar('宋体'), 1, 400, 0, 0, 0, pchar('B' + inttostr(curcolumn)), pchar(s));
inc(curcolumn);
curcolumn := curcolumn mod columnnum;
if curcolumn = 0 then
Print_Out(1);
end;
end;

楼上的，winpplb.dll不是Argox机的动态链接库么？斑马机也有？
mykai,斑马机打印条码可以使用assignfile(),rewrite(),write(),closefile() 将斑马
语言发送至打印端口即可

楼上的对

最好采用zpl代码直接往端口发送文本，常用的命令比较简单的，但是打印汉字需要转换点阵，
可以由销售公司提高动态连接库，我这里有，若你需要的化，发给你。

谢谢
结账

to Headchen
不好意思，打印汉字的时候才发现好麻烦啊
可不可以把连接库发给我呢
谢谢
mykai@sina.com
可另给分：）

已经发出！别忘了给分，哥们可是困难户！

to Headchen
不好意思，我以为你每天都逛呢
快去这里拉
http://www.delphibbs.com/delphibbs/dispq.asp?lid=896362

能不能把动态库发给我一个，给你150分
1979mylove@163.com