pos2000打印机如何写开钱箱的delphi程序??? ( 积分: 5 )

各位大哥:
我用delphi写的程序开不了钱箱!!!
procedure TForm1.Button_ccClick(Sender: TObject);
var PrnFileName: TextFile;
begin
Assignfile(PrnFileName,'lpt1');
Rewrite(PrnFileName);
write(PRNFileName,CHR(27)+chr(112)+'m'+CHR(0)+CHR(48) );
CloseFile(PRNFileName);
end;
说明书上,开钱箱代码:
ESC p m t1 t2
27 112 m t1 t2 <-- 十进制
其中,t1,t2决定钱箱开启脉冲;
m=0,48 在钱箱png2上输出.
m=1,49 在钱箱png5上输出.
请指教!!!

各位大哥:
我用delphi写的程序开不了钱箱!!!
procedure TForm1.Button_ccClick(Sender: TObject);
var PrnFileName: TextFile;
begin
Assignfile(PrnFileName,'lpt1');
Rewrite(PrnFileName);
write(PRNFileName,CHR(27)+chr(112)+'m'+CHR(0)+CHR(48) );
CloseFile(PRNFileName);
end;
说明书上,开钱箱代码:
ESC p m t1 t2
27 112 m t1 t2 <-- 十进制
其中,t1,t2决定钱箱开启脉冲;
m=0,48 在钱箱png2上输出.
m=1,49 在钱箱png5上输出.
请指教!!!

你应该一个一个写
write(PrnFileName,pchar(#27));
write(PrnFileName,pchar(#112);
write(PrnfileName,pchar(#0);
t1,t2也是这样
......
这样就没问题了
不过用打印机开钱箱的POS机。我不喜欢