Delphi下POS机控制钱箱,客显,打印机,小票打印.docVIP

Delphi下POS机控制钱箱,客显,打印机,小票打印 1、控制POS机的客户显示屏 procedure TFrmMain.ShowMoney(Money_Port:?? String;Money_String:String);//Moneey_Port???? 顾显接口Com1?? or?? Com2???? Money_String???? 顾显显示的内容var??? PrnFileName:TextFile;begin??? Assignfile(PrnFileName,Money_Port);??? printer.Canvas.Font.Name:=宋体;??? printer.Canvas.Font.Size:=8;??? printer.Canvas.Font.Charset:=GB2312_CHARSET;??? Rewrite(PrnFileName);??? write(PRNFileName,chr(12));???????? //清除顾显??? write(PRNFileName,chr(27)+chr(81)+chr(65)+Money_String+chR(13));?????? //显示信息??? CloseFile(PRNFileName);end; 2、不换页走纸的打印 procedure TFrmMain.AddPri