S
sefeng1982
Unregistered / Unconfirmed
GUEST, unregistred user!
以前打印机都是用lpt1端口的，可以直接通过对lpt1 写命令来控制钱箱。
公司最近购买的电脑都没有打印机端口了，只能用usb线来连接打印机。
现在出现了问题：打印机平常打印没问题，但控制钱箱的语句不起作用了。
procedure PortOut(APortName,AExpress:string);
var
CustomerDisplay:TextFile;
begin
AssignFile(CustomerDisplay,APortName);
ReWrite(CustomerDisplay);
Write(CustomerDisplay,AExpress);
CloseFile(CustomerDisplay);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PortOut('USB001',#27+#112+#0+#20+#80);
PortOut('USB001',#27+#112+#1+#20+#80);
end;
希望有经验的人给个解答。
公司最近购买的电脑都没有打印机端口了，只能用usb线来连接打印机。
现在出现了问题：打印机平常打印没问题，但控制钱箱的语句不起作用了。
procedure PortOut(APortName,AExpress:string);
var
CustomerDisplay:TextFile;
begin
AssignFile(CustomerDisplay,APortName);
ReWrite(CustomerDisplay);
Write(CustomerDisplay,AExpress);
CloseFile(CustomerDisplay);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PortOut('USB001',#27+#112+#0+#20+#80);
PortOut('USB001',#27+#112+#1+#20+#80);
end;
希望有经验的人给个解答。