unallego.pas

Pos Componet Some Pos Utility

unit UNALLEGO;

interface

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

type
  TFMALLEGO = class(TForm)
    PageControl: TPageControl;
    PAGE_A: TTabSheet;
    ED_PORT: TRadioGroup;
    ED_CUTTER: TCheckBox;
    BitBtn1: TBitBtn;
    TabSheet2: TTabSheet;
    P_TEST_TEXT: TBitBtn;
    Label5: TLabel;
    ED_DENSITY: TSpinEdit;
    Comm1: TComm;
    Label6: TLabel;
    ED_DIR: TRadioGroup;
    Label7: TLabel;
    P_TEXT: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    P_BARCODE: TEdit;
    P_TEST_BARCODE: TBitBtn;
    Label10: TLabel;
    ED_DELAY: TSpinEdit;
    ED_CODE: TComboBox;
    Label16: TLabel;
    Memo: TMemo;
    Label17: TLabel;
    Label1: TLabel;
    ED_DOT: TSpinEdit;
    ED_REF1: TMaskEdit;
    ED_REF2: TMaskEdit;
    Label2: TLabel;
    P_CTEXT: TEdit;
    P_TEST_CTEXT: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure P_TEST_TEXTClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure P_TEST_BARCODEClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ED_REF2Exit(Sender: TObject);
    procedure P_TEST_CTEXTClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   FILENAME      :STRING;

   C_SPEED       :STRING;
   C_DOT         :STRING;
   C_DENSITY     :STRING;
   C_DIR         :STRING;
   C_REF1        :STRING;
   C_REF2        :STRING;
   C_CUTTER      :STRING;
   C_PORT        :STRING;
   C_DELAY       :STRING;
   C_CODE        :STRING;

   TF :TEXTFILE;
   OUT_PORT :STRING;

   PROCEDURE OPEN_PORT;
   PROCEDURE READ_INI;
   PROCEDURE WRITE_INI;
   PROCEDURE CHANGE_INI;

   PROCEDURE PRINT_TITLE;
   PROCEDURE PRINT_END(CNT:INTEGER);
   PROCEDURE PRINT_CLS;
   PROCEDURE PRINT_ENTER_LABEL_FORMATTING_MODE;

   PROCEDURE PRINT_BARCODE(X,Y,WIDTH,HEIGHT:INTEGER;EXPRESSION:STRING;SHOW_TEXT:BOOLEAN);
   PROCEDURE PRINT_TEXT(FONT:STRING;X,Y:INTEGER;EXPRESSION:STRING);
   PROCEDURE PRINT_TEXT_POINT(FONT:STRING;X,Y:INTEGER;EXPRESSION:STRING);
   PROCEDURE PRINT_CUSTTEXT(EXPRESSION:STRING);

   PROCEDURE PRINT_SAVE_CTEXT(CNAME:STRING;T_FONTSIZE:INTEGER;T_FONTNAME,EXPRESSION:STRING);
   PROCEDURE PRINT_CTEXT(CNAME:STRING;X,Y:INTEGER);

   FUNCTION  TEXT_ENCODE_HEX(T_FONTSIZE:INTEGER;T_FONTNAME, T_STR:STRING):STRING;
  end;




var
  FMALLEGO: TFMALLEGO;

implementation

USES UN_UTL;

{$R *.DFM}


PROCEDURE TFMALLEGO.OPEN_PORT;
BEGIN

IF C_PORT = '0' THEN OUT_PORT := 'COM1';
IF C_PORT = '1' THEN OUT_PORT := 'COM2';
IF C_PORT = '2' THEN OUT_PORT := 'COM3';
IF C_PORT = '3' THEN OUT_PORT := 'COM4';

Comm1.CommName := OUT_PORT;
Comm1.StartComm;
Comm1.StopComm;

END;

PROCEDURE TFMALLEGO.READ_INI;
BEGIN

IF FileExists(FILENAME) = TRUE  THEN
   BEGIN
   C_SPEED  := FILE_READLN_REC(FILENAME,'LB_SPEED');
   C_DOT    := FILE_READLN_REC(FILENAME,'LB_DOT');
   C_DENSITY:= FILE_READLN_REC(FILENAME,'LB_DENSITY');
   C_DIR    := FILE_READLN_REC(FILENAME,'LB_DIR');
   C_REF1   := FILE_READLN_REC(FILENAME,'LB_REF1');
   C_REF2   := FILE_READLN_REC(FILENAME,'LB_REF2');
   C_CUTTER := FILE_READLN_REC(FILENAME,'LB_CUTTER');
   C_PORT   := FILE_READLN_REC(FILENAME,'LB_PORT');
   C_DELAY  := FILE_READLN_REC(FILENAME,'LB_DELAY');
   C_CODE   := FILE_READLN_REC(FILENAME,'LB_CODE');
   END;

END;

PROCEDURE TFMALLEGO.WRITE_INI;
BEGIN

FILENAME := 'ALLEGRO.INI';
IF FileExists(FILENAME) = TRUE  THEN
   BEGIN
   FILE_REWRITE(FILENAME);
//   FILE_APPEND_LOG(FILENAME,'LB_SPEED'  ,ED_SPEED.Text);
   FILE_APPEND_LOG(FILENAME,'LB_DOT'    ,ED_DOT.Text);
   FILE_APPEND_LOG(FILENAME,'LB_DENSITY',ED_DENSITY.Text);
   FILE_APPEND_LOG(FILENAME,'LB_DIR'    ,INTTOSTR(ED_DIR.ItemIndex));
   FILE_APPEND_LOG(FILENAME,'LB_REF1'   ,ED_REF1.Text);
   FILE_APPEND_LOG(FILENAME,'LB_REF2'   ,ED_REF2.Text);
   IF ED_CUTTER.CHECKED = FALSE THEN FILE_APPEND_LOG(FILENAME,'LB_CUTTER','0');
   IF ED_CUTTER.CHECKED = TRUE  THEN FILE_APPEND_LOG(FILENAME,'LB_CUTTER','1');
   FILE_APPEND_LOG(FILENAME,'LB_PORT'  ,INTTOSTR(ED_PORT.ItemIndex));
   FILE_APPEND_LOG(FILENAME,'LB_DELAY',ED_DELAY.Text);
   FILE_APPEND_LOG(FILENAME,'LB_CODE',INTTOSTR(ED_CODE.ItemIndex) );
   END;


END;

PROCEDURE TFMALLEGO.CHANGE_INI;
BEGIN

//   C_SPEED   := ED_SPEED.Text;
   C_DOT     := ED_DOT.Text;
   C_DENSITY := ED_DENSITY.Text;
   C_DIR     := INTTOSTR(ED_DIR.ItemIndex);
   C_REF1    := ED_REF1.Text;
   C_REF2    := ED_REF2.Text;
   IF ED_CUTTER.Checked = FALSE THEN C_CUTTER := '0';
   IF ED_CUTTER.Checked = TRUE  THEN C_CUTTER := '1';
   C_PORT  := INTTOSTR(ED_PORT.ItemIndex);
   C_DELAY   := ED_DELAY.Text;
   C_CODE    := INTTOSTR(ED_CODE.ItemIndex);

END;


PROCEDURE TFMALLEGO.PRINT_TITLE;
VAR T_LIST : TSTRINGS;
BEGIN
T_LIST := TSTRINGLIST.Create;

CHANGE_INI;
OPEN_PORT;

T_LIST.Add(CHR(2)+'qA');

T_LIST.Add(CHR(2)+'e');
T_LIST.Add(CHR(2)+'f214');   //SET FORM STOP POSITION , BACKFEED
T_LIST.Add(CHR(2)+'V0');    //掉