Implements the HL7 minimal Lower Layer protocol.

TIdHL7 = class(TIdBaseComponent)

TIdHL7 is a TIdBaseComponent descendant that represents an implementation of the Minimal Lower Layer Protocol defined in the implementation guide of the Health Level Seven (HL7) Standard for electronic data exchange as described in the standards documents located at www.hl7.org .

HL7 is used in healthcare environments. HL7 is primarily a message format standard, but HL7 messages are often exchanged using the Minimal Lower Layer Protocol which is described in the HL7 Implementation Guide (which does not appear to be available from the web site, but it part of the proper distribution of the standard)

TIdHL7 provides a connection to another system using MLLP. The connection will be monitored and restored as soon as possible if lost. TIdHl7 will act as either client or server depending on it's configuration

property Address: String;

Address

property CommunicationMode: THL7CommunicationMode;

CommunicationMode

property ConnectionLimit: Word;

ConnectionLimit

property IPMask: String;

IPMask

property IPRestriction: String;

IPRestriction

property IsListener: Boolean;

IsListener

property IsServer: Boolean;

IsServer

property ObjTag: TObject;

ObjTag

property OnConnect: TNotifyEvent;

OnConnect

property OnDisconnect: TNotifyEvent;

OnDisconnect

property Port: Word;

Port

property ReceiveTimeout: Cardinal;

ReceiveTimeout

property ReconnectDelay: Cardinal;

ReconnectDelay

property Status: TIdHL7Status;

Status

property StatusDesc: String;

StatusDesc

property TimeOut: Cardinal;

TimeOut

function AsynchronousSend(AMsg: String): TSendResponse;

AsynchronousSend

procedure CheckSynchronousSendResult(AResult: TSendResponse; AMsg: String);

CheckSynchronousSendResult

function Connected: Boolean;

Connected

constructor Create(Component: TComponent); override;

Create

destructor Destroy; override;

Destroy

procedure EnforceWaitReplyTimeout;

EnforceWaitReplyTimeout

function GetMessage(var VMsg: String): pointer;

GetMessage

function GetReply(var VReply: String): TSendResponse;

GetReply

function Going: Boolean;

Going

procedure PreStop;

PreStop

procedure SendMessage(AMsg: String);

SendMessage

procedure SendReply(AMsgHnd: pointer; AReply: String);

SendReply

procedure Start;

Start

procedure Stop;

Stop

function SynchronousSend(AMsg: String; var VReply: String): TSendResponse;

SynchronousSend

procedure WaitForConnection(AMaxLength: Integer);

WaitForConnection

property OnMessageArrive: TMessageArriveEvent;

OnMessageArrive

property OnReceiveError: TReceiveErrorEvent;

OnReceiveError

property OnReceiveMessage: TMessageReceiveEvent;

OnReceiveMessage