bmg.int

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

unit BMG;


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


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

type 

  TBMG = class( TLogConnection )
  public
    LastNakCmd: Byte;
    LastNakError: Word;
  public
    property Version: Word read;
  published
    property Params: TStrings read write;
    property ComDevice: TCommunicationConnection read write;
    property RepeatCount: Integer read write
        default 5;
    property OnRxChar: TRxCharEvent read write;
    property OnRxCommand: TRxCommandEvent read write;
    property OnRxCommandBeforeAcknowledge: TRxCommandBeforeAcknowledgeEvent read write;
  end {TBMG};

  TBMGClient = class( TBMG )
  end {TBMGClient};


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