TIdHL7

type TIdHL7 = class(TIdBaseComponent)

protected

  FLock: TIdCriticalSection;

  FStatus: TIdHL7Status;

  FStatusDesc: string;

  FMsgQueue: TInterfaceList;

  FHndMsgQueue: TInterfaceList;

  FAddress: string;

  FCommunicationMode: THL7CommunicationMode;

  FConnectionLimit: Word;

  FIPMask: string;

  FIPRestriction: string;

  FIPMaskVal: UInt32;

  FIPRestrictionVal: UInt32;

  FIsListener: Boolean;

  FObject: TObject;

  FPreStopped: Boolean;

  FPort: Word;

  FReconnectDelay: LongWord;

  FTimeOut: UInt32;

  FReceiveTimeout: LongWord;

  FServerConnections: TObjectList;

  FOnConnect: TNotifyEvent;

  FOnDisconnect: TNotifyEvent;

  FOnConnCountChange: TIdHL7ConnCountEvent;

  FOnMessageArrive: TMessageArriveEvent;

  FOnReceiveMessage: TMessageReceiveEvent;

  FOnReceiveError: TReceiveErrorEvent;

  FIsServer: Boolean;

  FServer: TIdTCPServer;

  FServerConn: TIdTCPConnection;

  FIsServerExecuting: Boolean;

  FClientThread: TIdHL7ClientThread;

  FClient: TIdTCPClient;

  FWaitingForAnswer: Boolean;

  FWaitStart: TIdTicks;

  FMsgReply: string;

  FReplyResponse: TSendResponse;

  FWaitEvent: TIdLocalEvent;

  FKeepAlive: TIdHL7KeepAlive;

  FConnectionTimeout: UInt32;

  FDefStringEncoding: IIdTextEncoding;

  FDefAnsiEncoding: IIdTextEncoding;

  procedure SetAddress();

  procedure SetKeepAlive();

  procedure SetConnectionLimit();

  procedure SetIPMask();

  procedure SetIPRestriction();

  procedure SetPort();

  procedure SetReconnectDelay();

  procedure SetConnectionTimeout();

  procedure SetTimeOut();

  procedure SetCommunicationMode();

  procedure SetIsListener();

  procedure SetDefStringEncoding();

  procedure SetDefAnsiEncoding();

  function GetStatus;

  function GetStatusDesc;

  procedure InternalSetStatus();

  procedure CheckServerParameters;

  procedure StartServer;

  procedure StopServer;

  procedure DropServerConnection;

  procedure ServerConnect();

  procedure ServerExecute();

  procedure ServerDisconnect();

  procedure CheckClientParameters;

  procedure StartClient;

  procedure StopClient;

  procedure DropClientConnection;

  procedure ReConnectFromTimeout;

  procedure HandleIncoming();

  function HandleMessage();

  procedure InitComponent; override;

public

  destructor Destroy; override;

  procedure EnforceWaitReplyTimeout;

  function Going;

  property ObjTag: TObject; [rw]

  property Status: TIdHL7Status; [r]

  property StatusDesc: string; [r]

  function Connected;

  property IsServer: Boolean; [r]

  procedure Start;

  procedure PreStop;

  procedure Stop;

  procedure WaitForConnection();

  function AsynchronousSend();

  property OnMessageArrive: TMessageArriveEvent; [rw]

  function SynchronousSend();

  property OnReceiveMessage: TMessageReceiveEvent; [rw]

  procedure CheckSynchronousSendResult();

  procedure SendMessage();

  function GetReply();

  function GetMessage();

  procedure SendReply();

  function HasClientConnection;

  procedure Disconnect;

  property DefStringEncoding: IIdTextEncoding; [rw]

  property DefAnsiEncoding: IIdTextEncoding; [rw]

  property IsServerExecuting: Boolean; [r]

published

  property Address: string; [rw]

  property Port: Word; [rw]

  property KeepAlive: TIdHL7KeepAlive; [rw]

  property TimeOut: UInt32; [rw]

  property ReceiveTimeout: LongWord; [rw]

  property ConnectionLimit: Word; [rw]

  property IPRestriction: string; [rw]

  property IPMask: string; [rw]

  property ReconnectDelay: LongWord; [rw]

  property ConnectionTimeout: UInt32; [rw]

  property CommunicationMode: THL7CommunicationMode; [rw]

  property IsListener: Boolean; [rw]

  property OnConnect: TNotifyEvent; [rw]

  property OnDisconnect: TNotifyEvent; [rw]

  property OnConnCountChange: TIdHL7ConnCountEvent; [rw]

  property OnReceiveError: TReceiveErrorEvent; [rw]

end;

TIdHL7

TIdBaseComponent

TIdInitializerComponent

TObject