如何控制star sp2000的钱箱开关，十万火急，在线等待！

Question

var
 f:textfile;
procedure TForm11.Button1Click(Sender: TObject);
begin
 assignfile(f,'lpt1');
 rewrite(f);
 writeln(f,chr(27)+'p'+chr(07)); 
end;
这是对star打印机连接钱箱的，不知你是否合用

Answer 1

我以前也做过POS机钱箱的开（机型忘了）
其实方法比较简单
就是向打印口发相应的字符串我的粗略方法如下//可以不用控件
Step.1 把这段字符保存为文件 //c:\OpenTheDoor.dat
Step.2 利用批处理文件 执行DOS命令 如：“type c:\OpenTheDoor.dat > PRN”