各位知不知道如何发送串口命令打开pos机钱箱呀?十万火急呀!

Question

打印机Epson Dir-pos2000说明书上关于开钱箱的说明如下:
ESC p m t1 t2 钱箱命令
格式： ASCII：ESC p m t1 t2
十进制：27 112 m t1 t2
十六进制：1B 70 m t1 t2
说明：
在钱箱连接器上输出由t1,t2决定的钱箱开启脉冲，要求t2≥t1。
m=0,48 在钱箱pin2上输出。
m=1,49 在钱箱pin5上输出。
注意：
开启时间为t1*2ms
关断时间为t2*2ms
如果t2＜t1,打印机处理t2＝t1×2ms；
如果t2＜50,打印机内部将t2设为50。
我不知道该如何写呀，各位前辈帮帮忙呀!

Answer 1

用Mscomm控件。  Mscomm1.Output:=1B 70 m t1 t2

Answer 2

procedure f_OpenMoney(MoneyPort:String);   //开钱葙
var
  PrnFileName: TextFile;
begin
  Assignfile(PrnFileName,MoneyPort);
  Rewrite(PrnFileName);  write(PRNFileName,CHR(27)+Chr(112)+CHR(0)+CHR(60)+CHR(255) );
  CloseFile(PRNFileName);
end;试试看

Answer 3

呵呵，我前几个月刚弄了这样的，也是Epson 的。
只要把这串代码发送到钱箱串口上就行了。
 chr(27)+chr(112) + chr(48) + chr(60) + chr(240)
这是我在我程序里写的，试试看。

Answer 4

winstonbonaparte(捞月猴) 的应该没错!

Answer 5

Mark~
说不定以后要改行抢银行的~