mandysoft.vcl.emi.int

来自「boomerang library 5.11 internet ed」· INT 代码 · 共 65 行

unit EMI;


{ Listing generated by Opus Documentor 1.2.1.1147 on 6.3.2004 }
{ Parts omitted from listing: protected, private, undocumented }


{==============================================================================}
interface
uses
  Connect, CommConnect, Classes, SysUtils, SyncObjs, Windows;

const 
  mclDisplay = 0;
  mclME = 1;
  mclSIM = 2;
  mclTE = 3;
  mclDefault = 'FF';

type 

  TEMIClient = class( TLogConnection )
  public
    LastNakCmd: Byte;
    LastNakError: Integer;
    LastSendTick: DWord;
  public
    procedure Busy;
    procedure Unbusy;
  public
    property IsBusy: Boolean read;
    property PhoneNumber: string read;
    property CommandBufferCount: Integer read;
  public
    function smTestConnection{}: Boolean;
    function smSubmit( 
        aPhn: string; 
        Msg: string; 
        aBinary: Boolean; 
        aMCLs: Byte; 
        aPID: Byte; 
        aNT: Byte; 
        aRPI: Byte; 
        Validity: TDateTime ): TDateTime;
  published
    property Params: TStrings read write;
    property ComDevice: TCommunicationConnection read write;
    property RepeatCount: Integer read write
        default 5;
    property RecTimeout: LongInt read write
        default 3000;
    property ETXTimeout: LongInt read write
        default 1000;
    property RepeatTimeout: LongInt read write
        default 500;
    property OnBusyChanged: TBusyChanged read write;
    property OnRxChar: TRxCharEvent read write;
    property OnRxCommand: TRxCommandEvent read write;
    property OnRxCommandBeforeAcknowledge: TRxCommandBeforeAcknowledgeEvent read write;
  end {TEMIClient};


{==============================================================================}
implementation