delphi控制POS打印机

RPrinter为TextFile类型；

SContent为TStringList类型。

// 建立打印连接并打印数据

Assignfile(RPrinter,'lpt1'); // 设置打印机

Rewrite(RPrinter); // 准备写文件

Writeln(RPrinter,chr($b)+chr(27)+'K'+chr(40)); // 向后倒纸！

...

for i := 0 to SContent.Count - 1 do

Writeln(RPrinter,SContent.strings[i]);

Writeln(RPrinter,chr($b)+chr(27)+'J'+chr(140)); // 向前进纸

CloseFile(RPrinter); // 关闭打印机，结束打印

SContent.Free; // 释放字符串列表

Assignfile(RPrinter,'lpt1'); // 设置打印机

Rewrite(RPrinter); // 准备写文件

Writeln(RPrinter,chr(27)+'p'+'m'+(后面两个看起来像是参数) t1 t2); // 开钱箱

CloseFile(RPrinter); // 关闭打印机，结束打印

开 钱 箱控制命令(该命令可同时开启两个钱箱，实际操作只需开启一个）

1、PK模式驱动钱箱指令

　 ESC | r F9 M n1 n2

　 M =0 代表一个钱箱 n代表脉冲宽度 n1 =40--50 之间

　 M =1 代表两个钱箱 n2 =120--150之间

　 QBASIC下编程

　 LPRINT CHR$（27）；"｜"；"r"；ＣHR$(249)；CHR$(0)； CHR$(50)；CHR$(150)

2、POS模式驱动钱箱指令

　 ESC r p M n1 n2

　 M =0 代表一个钱箱 n代表脉冲宽度 n1 =40--50 之间

　 M =1 代表两个钱箱 n2 =120--150之间

　 QBASIC下编程 　 LPRINT CHR$(27)；CHR$(112)；ＣHR$ (0)；ＣHR$ (50)；CHR$(200)

3、BS300K可同时打开两个钱箱，当接 2、4 时钱箱1打开，接4、5时钱箱2打开

4、设定在windows下自动开钱箱功能

　 　LPRINT CHR$（27）；"｜w"；CHR$（45）；CHR$(n)；

　 　n=0 FF走纸命令时钱箱无效

　 　n=1 钱箱1打开

　 　n=2 钱箱2打开