Jimmie Shahan wrote:

> Does anyone have a demo project using the IdHL7 Componet supplied in 
> Indy 9 that they would be willing to share?  Please send any sample code 
> to ✉jshahan.com.

example:


   object hl7server: TIdHL7
     Port = 2000
     IPRestriction = '0.0.0.0'
     IPMask = '0.0.0.0'
     CommunicationMode = cmSynchronous
     OnConnect = hl7serverConnect
     OnDisconnect = hl7serverDisconnect
     Left = 232
     Top = 24
   end
   object hl7client: TIdHL7
     Address = 'localhost'
     Port = 2000
     IPRestriction = '0.0.0.0'
     IPMask = '0.0.0.0'
     CommunicationMode = cmSynchronous
     IsListener = False
     OnConnect = hl7clientConnect
     OnDisconnect = hl7clientDisconnect
     Left = 270
     Top = 26
   end




unit Unit1;


interface


uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, IdBaseComponent, IdHL7;


type
   TForm1 = class(TForm)
     hl7server: TIdHL7;
     hl7client: TIdHL7;
     Button1: TButton;
     Button2: TButton;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     Label4: TLabel;
     Label5: TLabel;
     Label6: TLabel;
     Memo1: TMemo;
     Memo2: TMemo;
     Memo3: TMemo;
     Memo4: TMemo;
     Button3: TButton;
     procedure Button1Click(Sender: TObject);
     procedure hl7serverConnect(Sender: TObject);
     procedure hl7serverDisconnect(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure hl7clientConnect(Sender: TObject);
     procedure hl7clientDisconnect(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure Button3Click(Sender: TObject);
   private
     { Private declarations }
     FSent : string;
     FReply : string;
     procedure incoming(ASender: TObject; AMsg: String; var VHandled: 
Boolean; var VReply: String);


   public
     { Public declarations }
   end;


var
   Form1: TForm1;


implementation


{$R *.DFM}


procedure TForm1.Button1Click(Sender: TObject);
begin
   if hl7server.Status = isStopped then
     begin
     hl7server.start;
     Button1.caption := 'Stop Server';
     end
   else
     begin
     hl7server.stop;
     Button1.caption := 'Start Server';
     end;
end;


procedure TForm1.hl7serverConnect(Sender: TObject);
begin
   label1.caption := 'Connected';
end;


procedure TForm1.hl7serverDisconnect(Sender: TObject);
begin
   label1.caption := 'Disconnected';
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
   if hl7client.Status = isStopped then
     begin
     hl7client.start;
     Button1.caption := 'Stop Client';
     end
   else
     begin
     hl7client.stop;
     Button1.caption := 'Start Client';
     end;
end;


procedure TForm1.hl7clientConnect(Sender: TObject);
begin
   label2.caption := 'Connected';
end;


procedure TForm1.hl7clientDisconnect(Sender: TObject);
begin
   label2.caption := 'Disconnected';
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
   hl7server.OnReceiveMessage := incoming;
end;


procedure TForm1.incoming(ASender: TObject; AMsg: String; var VHandled: 
Boolean; var VReply: String);
begin
   // can't use the memo's directly - in the wrong thread
   FSent := AMsg;
   VHandled := true;
   VReply := FReply;
end;


procedure TForm1.Button3Click(Sender: TObject);
var
   s : string;
begin
   FReply := Memo2.text;
   FSent := '';
   case hl7client.SynchronousSend(memo1.text, s) of
     srError : raise exception.create('internal error: '+s);
     srNoConnection : raise exception.create('not connected');
     srTimeout : raise exception.create('no response from server');
     srOK : begin
       memo3.text := FSent;
       memo4.text := s;
       end;
     srSent : raise exception.create('can''t happen');
   end;


end;