• Delphi下POS机


    procedure tform1.OpenSerialPort;
    var
    cc:TCommConfig;
    Temp:string;

    begin
    Temp:='Com'+inttostr(RadioGroup1.ItemIndex+1);
    hSerialPort:=CreateFile(PChar(Temp),GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,0,0);
    if (hSerialPort=invalid_handle_value) then
    begin
    MessageBox(0,'打开串口失败','',MB_OK);
    Exit;
    end;
    GetCommState(hSerialPort,cc.dcb);
    cc.dcb.BaudRate:=CBR_9600;
    cc.dcb.ByteSize:=8;
    cc.dcb.Parity:=NOPARITY;
    cc.dcb.StopBits:=ONESTOPBIT;
    if not SetCommState(hSerialPort,cc.dcb) then
    begin
    ShowMessage('不能设置串口');
    CloseHandle(hSerialPort);
    Exit;
    end
    else
    ShowMessage('打开,并设置成功!');
    end;

     

    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.AddPrintStrings(Strings: TStrings);
    var
    Prn: TextFile;
    i: word;
    begin
    Assignfile(Prn,'lpt1');
        printer.Canvas.Font.Name:='宋体';
        printer.Canvas.Font.Size:=9;
        printer.Canvas.Font.Charset:=GB2312_CHARSET;
    try
        Rewrite(Prn);
        try
          for i := 0 to Strings.Count - 1 do
            writeln(Prn, Strings.Strings[i]);
        finally
          CloseFile(Prn);
        end;
    except
        on EInOutError do
          MessageBox(Handle,PChar('文本打印出错!'),'警告',MB_ICONEXCLAMATION or MB_OK);
    end;
    end;

    3、走纸换页的打印

    procedure TFrmMain.PrintStrings(Strings: TStrings);
    var
    Prn: TextFile;
    i: word;
    begin
    AssignPrn(Prn);
    try
        Rewrite(Prn);
        printer.Canvas.Font.Name:='宋体';
        printer.Canvas.Font.Size:=9;
        printer.Canvas.Font.Charset:=GB2312_CHARSET;
        try
          for i := 0 to Strings.Count - 1 do
            writeln(Prn, Strings.Strings[i]);
        finally
          CloseFile(Prn);
        end;
    except
        on EInOutError do
          MessageBox(Handle,PChar('文本打印出错!'),'警告',MB_ICONEXCLAMATION or MB_OK);
    end;
    end;

    4、打开钱箱

    procedure TFrmMain.OpenMoneyBox;
    Var F:TextFile;
        PDStr:string;
    begin
    //弹出钱箱功能
    PDStr:= Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255);
    AssignFile(F, 'LPT1');
    Rewrite(F);
    Write(F, PDStr);
    CloseFile(F);
    end;

  • 相关阅读:
    Learning_the_bash_Shell_Third_Edition 15/n
    Learning_the_bash_Shell_Third_Edition 14/n
    Learning_the_bash_Shell_Third_Edition 13/n
    cvb源码分析,resful规范,drf,drf序列化组件,95
    rest_framework登录组件,权限组件
    forms组件
    分页器
    基于ajax提交数据
    回顾django内容
    多表操作
  • 原文地址:https://www.cnblogs.com/Values/p/5015929.html
Copyright © 2020-2023  润新知