POS开发----钱箱源码。

wylton

Pos的开发中，开钱箱的部分的程序不是重要的，但是必须的。这里举几个列子。
第一，这个列子是群里的朋友告诉我的。优点是可以开连接在任意接口连接到电脑(USB，lpt1, comX等)的大部分小发票打印机的钱箱。缺点是每用一次，都会溜出一段小纸，浪费纸张。
begin
  try
  printer.BeginDoc;
  printer.Canvas.Font.Name:='Control';
  printer.Canvas.Font.Size:=9;
  printer.Canvas.TextOut(0,0,'A');
  printer.EndDoc;
  finally
  end;
end;            

第二，这个是模仿delphi的，但不支持usb接口，linux下的性能不怎么如意。
var
   Gav : TextFile;
begin
try
      try
         AssignFile(Gav,'lpt1');
         {$I-}
         REWRITE(Gav);
         {$I+}
         if IOResult = 0 then
         begin
           WriteLn(Gav,chr(027),chr(112),chr(000),chr(060),chr(240));
         end;
      except
         raise Exception.Create(' Error al abrir gaveta ');
      end;
   finally
      CloseFile(Gav);
   end;
end;   
第三，这是类似于delphi的RawPrint. RawPrint在lazarus已经包括在内。
a.定义方法
procedure ImprimirCodigoEsc(S:String);
   var Written: Integer;
   begin
     Written:=0;
     Printer.Write(S[1], Length(S), Written);
   end;
b.调用
begin
  try
  Printer.RawMode := True;
  printer.BeginDoc;
  ImprimirCodigoEsc(Chr(27)+Chr(112)+Chr(48)+Chr(55)+Chr(121));
  printer.EndDoc;
  Printer.RawMode := false;
  finally
  end;
end;  

luckmyking

第一种方法中，你可以在打印机驱动程序中设置,这样开钱箱后就不会溜出纸头来了

wylton

好人做到底。

Marca品牌 Modelo型号 codigos命令码
Axionhm  A715,A756,A794  27,112,0,48,251
Bixolon  SRP-275  27,112,48,55,121
Epson  All  27,121,48,55,121
Epson  M51PD  27,112,48,55,121
Epson  TM-T60  27,112,32,25
Epson  TM-L60II  27,70,0,50,50
Epson  TM-T70  27,112,48,55,121
Epson  T88iii TM-U200D  27,112,0,25,250
Epson  T88iiiP TM-U200D  27,112,0,64,240
Epson  TM-88IV  27,112,48,55,121
Epson  TM-88V  27,112,48,55,121
Epson  M188D  27,112,48,55,121
Epson  M192C  27,112,48,55,121
Epson  TM-U200  27,112,0,25,250
Epson  TM-U200B  27,112,48,25,250
Epson  TM-U200D  27,112,0,64,240
Epson  TM-U210PD, TM-U210-D  27,112,0,25,250
Epson  TM-U220A, TM-U220PD  27,112,0,25,250
Epson  TM-U295  27,112,48,55,121
Epson  ADP 300  27,112,0,25,250
Epson  TM-300D  27,112,0,25,250
Epson  TM-U950P  27,112,0,25,250
Epson  TM-U300PD  27,112,0,25,250
Epson  TM-U325D  27,112,0,25,250
Epson  TM-U375  27,112,0,25,250
Epson  M665A  27,112,0,50,250
Epson  TM-T883P  27,112,0,50,250
Epson  TM-U950P  27,112,0,50,250
Epson  TM-H500II  27,113,0,25,250
Epson  TM-H6000  27,112,48,55,121
IBM  4610  7
IBM  4610  27,112,0,50,250
Ithaca  PcOS 51  27,112,0,25,250
Ithaca  PcOS 52  27,112,0,25,250
Ithaca  PcOSjet  27,112,0,25,250
Ithaca  80 PLUS  27,120,1
Ithaca  SERIES 90  27,120,1
Ithaca  150  27,120,1
Ithaca  POSjet 1000  27,120,1
NCR  7167  27,120,1
Oliveti  PRT-100  27,112,0,25,250
Pos-X  XR-200  27,112,0,25,250
Pos-X  XR-500  27,112,0,25,250
Posiflex CR 4200  27,112,80,25,250
Posiflex  AURA 5600  27,112,0,25,250
Posiflex  PP6000/7000  27,112,0,25,250
Samsung  SRP 131  27,112,0,48,50
Samsung  SRP 270  27,112,0,25,250
Samsung  SRP 270A  27,112,0,64,240
Samsung  SRP 270  27,112,48,55,121
Samsung  SRP 350  27,110,0,25,250
Star  All  27,7,11,55,7
Star  TSP 100  7
Star  SP212  27,7,11,55,7
Star  TSP200  27,7,11,55,7
Star  SP500  27,122,49,7
Star  TSP-600  27,7,10,50,7
Star  TSP-700  27,07,11,55,07
Star  SP2000  27,122,49,7
Tec  RKP300  27,112,0,100,250
Tec  TRST-53  27,112,0,100,250
Toshiba  SX2100  27,112,32,55,255
Toshiba Tec  DRJST-51  27,112,0,100,250
Unisys  EF4272  27,112,0,100,250
Wasp  WTP-100  27,112,49,48,48
Wastrex  4200  7