Indy/Lib/examples/idhl7/fmain.lfm

object Form1: TForm1
  Left = 229
  Height = 837
  Top = 324
  Width = 1022
  Caption = 'idHL7 Sample Client and Server'
  ClientHeight = 837
  ClientWidth = 1022
  DesignTimePPI = 120
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  LCLVersion = '2.2.4.0'
  object Panel1: TPanel
    Left = 0
    Height = 112
    Top = 0
    Width = 1022
    Align = alTop
    ClientHeight = 112
    ClientWidth = 1022
    TabOrder = 0
    object btnStart: TButton
      Left = 208
      Height = 31
      Top = 56
      Width = 94
      Caption = 'Send'
      OnClick = btnStartClick
      TabOrder = 0
    end
    object Label2: TLabel
      Left = 88
      Height = 20
      Top = 16
      Width = 12
      Caption = 'IP'
      ParentColor = False
    end
    object edtServer: TEdit
      Left = 112
      Height = 28
      Top = 16
      Width = 128
      TabOrder = 1
      Text = '127.0.0.1'
    end
    object Label3: TLabel
      Left = 262
      Height = 20
      Top = 16
      Width = 26
      Caption = 'Port'
      ParentColor = False
    end
    object edtPort: TEdit
      Left = 310
      Height = 28
      Top = 16
      Width = 100
      TabOrder = 2
      Text = '1234'
    end
    object Panel5: TPanel
      Left = 512
      Height = 110
      Top = 1
      Width = 509
      Align = alRight
      BorderStyle = bsSingle
      ClientHeight = 106
      ClientWidth = 505
      TabOrder = 3
      object Label1: TLabel
        Left = 120
        Height = 20
        Top = 21
        Width = 26
        Caption = 'Port'
        ParentColor = False
      end
      object edtServerPort: TEdit
        Left = 175
        Height = 28
        Top = 21
        Width = 100
        TabOrder = 0
        Text = '1234'
      end
      object btnListen: TButton
        Left = 178
        Height = 31
        Top = 55
        Width = 94
        Caption = 'Listen'
        OnClick = btnListenClick
        TabOrder = 1
      end
      object Label4: TLabel
        Left = 8
        Height = 20
        Top = 80
        Width = 41
        Caption = 'Server'
        ParentColor = False
      end
    end
    object Label5: TLabel
      Left = 19
      Height = 20
      Top = 80
      Width = 38
      Caption = 'Client'
      ParentColor = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Height = 524
    Top = 112
    Width = 1022
    Align = alClient
    ClientHeight = 524
    ClientWidth = 1022
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Height = 522
      Top = 1
      Width = 511
      Align = alLeft
      ClientHeight = 522
      ClientWidth = 511
      TabOrder = 0
      OnClick = Panel3Click
      object memClient: TMemo
        Left = 1
        Height = 281
        Top = 1
        Width = 509
        Align = alTop
        Lines.Strings = (
          'MSH|^~\&|Radiology|IDHL7|HL7ID|Radiology|20140616051341||ORU^R01|30081|IW|2.3.1|||1|1|ZAF|'
          'PID|||1234567890012|QP-201389|WILCO^ROGER^R^^MR||1994803030300|M||041170-20140616-104412-9415-253||||||||SQ1507337|1234567890012|'
          'PV1||O|PH|||||^^^^^||||||||0||||||||||||||||||||||||||||201406160600|'
          'OBR|1|2014061600054^PHL|SQ1507337^PHL|12310^X-RAY ORBITS LESS THAN 3 VIEWS||201406160600|201406160600||||||X-RAY ORBITS LESS THAN 3 VIEWS|||SPIKE^PET^^S^^DR||SQ1507337|KRK^PHEELBUB RADIOLOGY PHEELBUB|||189912301200||PHL|F|||^||||FBD^KIEKIE ORBETAL||NA|^189912301200|201406160600|'
          'OBX|0|TX|||Accession Number : SQ1507337||||||F||||'
          'OBX|1|TX|||||||||F||||'
          'OBX|2|TX|||CT ORBITS||||||F||||'
          'OBX|3|TX|||Facial trauma? Blowout fracture.||||||F||||'
          'OBX|4|TX|||||||||F||||'
          'OBX|5|TX|||There is a blowout fracture of the posterior aspect of the lamina papyracea (posteromedial orbital wall). Extraconal fat and medial rectus muscle protrudes into ethmoid nasal cavity and there is likely muscle entrapment.||||||F||||'
          'OBX|6|TX|||There is orbital emphysema also extending to the maxillary subcutaneous tissue and the preseptal eyelids.||||||F||||'
          'OBX|7|TX|||The globe appear intact. There is no swelling of the orbital optic nerve.||||||F||||'
          'OBX|8|TX|||||||||F||||'
          'OBX|9|TX|||COMMENT||||||F||||'
          'OBX|10|TX|||There is a blowout fracture involving the posteromedial wall of the right orbit (lamina papyracea) with protruding medial rectus muscle.||||||F||||'
          'OBX|11|TX|||||||||F||||'
          'OBX|12|TX|||||||||F||||'
          'OBX|13|TX|||VERIFIED BY: KIEKIE ORBETAL on 2254/02/14 5:13 PM||||||F||||'
        )
        TabOrder = 0
        WordWrap = False
      end
      object Panel7: TPanel
        Left = 1
        Height = 23
        Top = 282
        Width = 509
        Align = alTop
        Caption = 'Client Reply'
        TabOrder = 1
      end
      object memClientReplyText: TMemo
        Left = 1
        Height = 216
        Top = 305
        Width = 509
        Align = alClient
        TabOrder = 2
        WordWrap = False
      end
    end
    object Panel4: TPanel
      Left = 512
      Height = 522
      Top = 1
      Width = 509
      Align = alClient
      BorderStyle = bsSingle
      ClientHeight = 518
      ClientWidth = 505
      TabOrder = 1
      object memServer: TMemo
        Left = 1
        Height = 279
        Top = 1
        Width = 503
        Align = alTop
        TabOrder = 0
        WordWrap = False
      end
      object Panel6: TPanel
        Left = 1
        Height = 23
        Top = 280
        Width = 503
        Align = alTop
        Caption = 'Server Reply Text (to Send)'
        TabOrder = 1
      end
      object memServerReply: TMemo
        Left = 1
        Height = 214
        Top = 303
        Width = 503
        Align = alClient
        Lines.Strings = (
          'MSH|^~\&|IDHl7|HL7ID|||||ORU^R01|22540214051541|T|2.3'
          'MSA|AA|30081||||'
        )
        TabOrder = 2
        WordWrap = False
      end
    end
  end
  object Panel8: TPanel
    Left = 0
    Height = 201
    Top = 636
    Width = 1022
    Align = alBottom
    Caption = 'Panel8'
    ClientHeight = 201
    ClientWidth = 1022
    TabOrder = 2
    object memGeneral: TMemo
      Left = 1
      Height = 199
      Top = 1
      Width = 1020
      Align = alClient
      TabOrder = 0
      WordWrap = False
    end
  end
  object idHl7Client: TIdHL7
    KeepAlive.UseKeepAlive = False
    KeepAlive.IdleTimeMS = 0
    KeepAlive.IntervalMS = 0
    IPRestriction = '0.0.0.0'
    IPMask = '0.0.0.0'
    CommunicationMode = cmSynchronous
    OnConnect = idHl7ClientConnect
    OnDisconnect = idHl7ClientDisconnect
    OnConnCountChange = idHl7ClientConnCountChange
    OnReceiveError = idHl7ClientReceiveError
    Left = 328
    Top = 72
  end
  object idHl7Server: TIdHL7
    Port = 1234
    KeepAlive.UseKeepAlive = False
    KeepAlive.IdleTimeMS = 0
    KeepAlive.IntervalMS = 0
    ConnectionLimit = 10
    IPRestriction = '0.0.0.0'
    IPMask = '0.0.0.0'
    CommunicationMode = cmSynchronous
    OnConnect = idHl7ServerConnect
    OnDisconnect = idHl7ServerDisconnect
    OnConnCountChange = idHl7ServerConnCountChange
    OnReceiveError = idHl7ServerReceiveError
    Left = 840
    Top = 40
  end
end