globalpara1.pas

短信二次开发控件SMSComm

unit GlobalPara1;

interface

uses Classes, Messages, Types,  SyncObjs;

const
  MAXTASKQUEUE = 5;
  PWM_SENDMESSAGE      = WM_USER + 1;
  PWM_SENDMESSAGEOK    = WM_USER + 2;
  PWM_SENDMESSAGEERROR = WM_USER + 3;

type

  Byte2 = array[0..1] of byte;
  Byte4 = array[0..3] of byte;
  Byte6 = array[0..5] of byte;
  Tarray256Byte = array[0..255] of byte;

  //任务类型     报警} {设置短信格式} {读短信}
  TypeOfTask = (stCMGF, stCMGR, stCMGS,
                stCSCA, stCMGD, stCNMI,
                stTask, stAlarm, stStartGSM,
                stCloseGSM, stCMGL, stATW,
                stNone);

  TypeOfCurrentStation = (csInitialize, csInspect, csOffLine, csCommand);

  TypeOfPortStation = (psIdle, psCommandTask, psInspectTask);

  TypeOfCommandTask = (ctCommand, ctDeleteMessage, ctReadMessage, ctEmptyMessage, ctNone);

var

  gpMainFrmStatusbarText: string = '';
  gpCurrentStation: TypeOfCurrentStation = csOffLine;
  gpPortStation: TypeOfPortStation = psIdle; //指示当前串口占用状态
  gpCommandTask: TypeOfCommandTask = ctNone; //指示读操作的任务类型

implementation

end.