urcollect.pas

来自「Pos Componet Some Pos Utility」· PAS 代码 · 共 75 行

unit URCOLLECT;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, ExtCtrls, Buttons, Spin, Mask, Menus;

type
  TFRCOLLECT = class(TForm)
    PageControl: TPageControl;
    PAGE_A: TTabSheet;
    ED_PORT: TRadioGroup;
    ED_POWERSAVING: TCheckBox;
    Label2: TLabel;
    BTNQUT: TBitBtn;
    TabSheet2: TTabSheet;
    P_TEST_WARM_START: TBitBtn;
    Memo: TMemo;
    Label17: TLabel;
    ED_ADDRESS: TMaskEdit;
    Label11: TLabel;
    ED_TIMEOUT: TSpinEdit;
    ED_BAUDRATE: TRadioGroup;
    ED_DATABIT: TRadioGroup;
    ED_STOPBIT: TRadioGroup;
    ED_PARITY: TRadioGroup;
    ED_LOGFILE: TRadioGroup;
    Label1: TLabel;
    ED_ESCDELAY: TSpinEdit;
    Label3: TLabel;
    ED_NAKDELAY: TSpinEdit;
    BTNESC: TBitBtn;
    Label4: TLabel;
    ED_FORMNAME: TMaskEdit;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ED_SOURCENAME: TMaskEdit;
    Label5: TLabel;
    MainMenu: TMainMenu;
    N5: TMenuItem;
    procedure BTNQUTClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BTNESCClick(Sender: TObject);
    procedure P_TEST_WARM_STARTClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


   // ╰参砞﹚
   PROCEDURE COLLECT_CHANGE_VARIABLE;
   PROCEDURE COLLECT_OPEN_PORT;
   PROCEDURE COLLECT_READ_INI;
   PROCEDURE COLLECT_WRITE_INI;

   PROCEDURE COLLECT_Return_code(RET:INTEGER);
   FUNCTION  COLLECT_WARM_START: BOOLEAN;
   FUNCTION  COLLECT_COLD_START: BOOLEAN;
   FUNCTION  COLLECT_UP_LOAD   : BOOLEAN;


var
  FRCOLLECT: TFRCOLLECT;

  COLLECT_TF            :TEXTFILE;
  COLLECT_PORT          :INTEGER;   // 硈钡梆
  COLLECT_BAUDRATE      :INTEGER;   // 硈钡梆