Z zqssoft Unregistered / Unconfirmed GUEST, unregistred user! 2009-03-23 #1 用delphi命令，如何开钱箱。我注意到，有的钱箱的脉冲宽度是100ms-200ms,有的是50ms-200ms，还有80ms-200ms的，针对这三种不同脉冲宽度的钱箱，用delphi如何通过pos58打印机开启他们？命令一样么？
用delphi命令，如何开钱箱。我注意到，有的钱箱的脉冲宽度是100ms-200ms,有的是50ms-200ms，还有80ms-200ms的，针对这三种不同脉冲宽度的钱箱，用delphi如何通过pos58打印机开启他们？命令一样么？
C Corn3 Unregistered / Unconfirmed GUEST, unregistred user! 2009-03-23 #2 一般是通过LPT1口控制。 可用如下方法：procedure TFrmMain.OpenBox;var Prn: TextFile;Begin AssignFile(Prn, 'LPT1'); Rewrite(Prn); Write(Prn, CHAR(27)+CHAR(112)+CHAR(0)+CHAR(60)+CHAR(255)); CloseFile(Prn);end;
一般是通过LPT1口控制。 可用如下方法：procedure TFrmMain.OpenBox;var Prn: TextFile;Begin AssignFile(Prn, 'LPT1'); Rewrite(Prn); Write(Prn, CHAR(27)+CHAR(112)+CHAR(0)+CHAR(60)+CHAR(255)); CloseFile(Prn);end;
D de410 Unregistered / Unconfirmed GUEST, unregistred user! 2009-03-23 #3 procedure TFrmMain.OpenMoneyBox;Var F:TextFile; PDStr:string;begin//弹出钱箱功能PDStr:= Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255);AssignFile(F, 'LPT1');Rewrite(F);Write(F, PDStr);CloseFile(F);end;
procedure TFrmMain.OpenMoneyBox;Var F:TextFile; PDStr:string;begin//弹出钱箱功能PDStr:= Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255);AssignFile(F, 'LPT1');Rewrite(F);Write(F, PDStr);CloseFile(F);end;
Z zqssoft Unregistered / Unconfirmed GUEST, unregistred user! 2009-03-23 #4 上面的代码，针对不同脉冲宽度(100ms-200ms/50ms-200ms/80ms-200ms)的钱箱，都适用吗？
Z zqssoft Unregistered / Unconfirmed GUEST, unregistred user! 2009-03-24 #8 我没有那么多种类的钱箱，只是在网上看到有不同脉冲宽度的钱箱？
S sxlangzi Unregistered / Unconfirmed GUEST, unregistred user! 2009-03-24 #9 开钱箱是要通过打印机的，一般都是超市打印机给一个接口，你要参考相应的打印机指令集，别听他们乱说，
D de410 Unregistered / Unconfirmed GUEST, unregistred user! 2009-03-24 #10 这有个例子，你参考一下了 代码: http://topic.csdn.net/t/20050315/15/3852796.html
