main.dfm

此程序支持多个网关同时部署. 要注意:移动为两个 端口 配置也较简单了

object MainForm: TMainForm
  Left = 187
  Top = 242
  Caption = #30701#20449#20013#24515
  ClientHeight = 362
  ClientWidth = 564
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020000001000800A80800001600000028000000200000004000
    000001000800000000000004000000000000000000000001000000000000FFFF
    FF00CBFEFF0099FEFF0065FEFF0033FEFF0000FDFD00FECBFF00CBCBFF0099CB
    FF0065CBFF0033CCFF0000CBFD00FE99FF00CB99FF009999FF006598FF003398
    FF000098FD00FE65FF00CB65FF009865FF006565FF003365FF000065FD00FE33
    FF00CB33FF009833FF006533FF003333FF000032FD00FD00FD00CB00FD009800
    FD006500FD003200FD000000FD00FFFFCB00CBFFCB0099FFCC0065FFCB0033FF
    CC0000FDCB00FFCBCB00CCCCCC0098CBCB0066CBCC0032CBCB0000CBCC00FF99
    CB00CB98CB009898CB006698CC003298CB000099CC00FF65CB00CB66CC009866
    CC006666CC003265CB000065CC00FF33CB00CB32CB009832CB006532CB003232
    CB000032CC00FD00CB00CB00CC009800CC006500CC003200CC000000CC00FFFF
    9900CBFF990099FF990065FF980033FF990000FD9800FFCC9900CBCB980098CB
    980066CC990032CB980000CC9900FF999900CB98980099999900659898003398
    990000979800FF659800CC66980098659800656598003365990000659800FF33
    9800CB32980098339900653399003333990000329800FD009800CC0098009700
    9800650098003200980000009800FFFF6500CBFF650098FF650065FF650033FF
    660000FD6500FFCB6500CCCC660098CC660066CC660032CB650000CC6600FF98
    6500CC99660098986500659865003399660000986500FF656500CC6666009865
    6500666666003265650000656600FF336500CB32650099336500653265003232
    650000326600FD006500CC00650098006500650066003200660000006600FFFF
    3300CCFF330098FF330066FF330033FF330000FD3200FFCC3300CBCB320098CB
    320065CB320032CB320000CC3300FF993300CB98320099993300659933003399
    330000983200FF663300CB65320099663300656532003265320000663300FF33
    3300CB32320099333300653232003333330000313200FD003200CC0032009800
    3200660032003100320000003200FDFD0000CBFD000098FD000065FD000032FD
    000000FD0000FDCB0000CCCC000099CC000065CC000033CC000000CC0000FD98
    0000CC99000098980000659800003298000000980000FD650000CC6600009865
    0000666600003266000000660000FD320000CC33000098320000663300003232
    000000320000FD000000CC0000009800000066000000320000000000EE000000
    DC000000BA000000AA0000008800000076000000540000004400000022000000
    100000EE000000DC000000BA000000AA00000088000000760000005400000044
    00000022000000100000EE000000DC000000BA000000AA000000880000007600
    000054000000440000002200000010000000EEEEEE00DDDDDD00BBBBBB00AAAA
    AA0088888800777777005555550044444400222222001111110000000000FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFDFDFDFDFDFDFDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFDFDFD2A2A2A2A2A5555FDFDFDFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFDFD2A2A2A2A002A552AF52A555555FDFDFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFD2A002A002A002A002A002A00F52A2A5555FDFFFFFFFFFFFFFFFFFF
    FFFFFFFD2A002A552A002A002A2A2A0000000055F52A55FDFFFFFFFFFFFFFFFF
    FFFFFD2A002A002A002A002A002A002A002A0000002A2A55FDFFFFFFFFFFFFFF
    FFFDF5002A002A002A002A002A552A002A002A0000002A2A55FDFFFFFFFFFFFF
    FD2AF52A002A002A002A002A0055002A002A002A0000002A2A55FDFFFFFFFFFF
    FD00F5002A002A002A002A002A802AF72A002A002A000000F555FDFFFFFFFFFD
    002A552A002A002A002A002A008000F7002A002A002A0000552A55FDFFFFFFFD
    0000F5002A002A002A002A002AA42AF82A002A002A002A00002A55FDFFFFFFFD
    002AF500002A002A002A002A00AB00F8002A002A002A002A00F555FDFFFFFD00
    0000F50000002A002A002A002AAB2AF92A002A002A002A002A002A55FDFFFD2A
    002AF500002A002A002A002AFCFCFCF9002A002A002A002A0000F555FDFFFD00
    0000F50000002A002A002AF9F7F8F8FC2A002A002A002A002A002A2AFDFFFD2A
    552A2A2A0000002A002A00F9F6FDF8FC002A002A002A002A2A2A552AFDFFFC00
    000000F500002A002A002AF9F6F6F7FC2A002A002A002A002A002A2AFDFFFC2A
    002A002A0000002A002A2AABF9F9F92A002A002A002A002A002A002AFDFFFC00
    000000002A0000002A00ABF680F82A002A002A002A002A002A002A2AFDFFFFFB
    002A002A0000002A00ABF680F82A002A002A002A002A002A002A2AFDFFFFFFFB
    000000000000000080F655F72A002A002A002A002A002A002A002AFDFFFFFFFB
    0000552A002A002A0000F72A002A002A002A002A002A002A552A2AFDFFFFFFFF
    FB000000000055002AF700002A002A002A002A002A002A002A00FDFFFFFFFFFF
    FB00002A0055002AF62A000000000000002A002A002A002A002AFDFFFFFFFFFF
    FFFB00002A00000000000000000000000000000000002A002AFDFFFFFFFFFFFF
    FFFFFB00002A002A002A002A002A002A000000000000002AFDFFFFFFFFFFFFFF
    FFFFFFFB0000005500000000002A00000000F655F6002AFDFFFFFFFFFFFFFFFF
    FFFFFFFFFB000000002A002A002A002A002A002A002AFDFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFBFB00000000000055000000000000FDFDFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFBFBFB00000000000000FDFDFDFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFCFCFCFDFDFDFDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFF01FFFFF8003FFFE0000FFFC00007FF800003FF000001FE000000FC000
    0007C00000078000000380000003800000030000000100000001000000010000
    0001000000010000000100000001800000038000000380000003C0000007C000
    0007E000000FF000001FF800003FFC00007FFE0000FFFF8003FFFFF01FFF}
  OldCreateOrder = False
  Position = poDefault
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 8
    Top = 128
    Width = 43
    Height = 13
    Caption = 'Message'
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 564
    Height = 343
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet3: TTabSheet
      Caption = #29366#24577
      ImageIndex = 2
      object Splitter1: TSplitter
        Left = 0
        Top = 161
        Width = 556
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object MonitorMemo: TMemo
        Left = 0
        Top = 0
        Width = 556
        Height = 161
        Align = alTop
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ScrollBars = ssVertical
        TabOrder = 0
        OnChange = MonitorMemoChange
      end
      object MOMemo: TMemo
        Left = 0
        Top = 164
        Width = 556
        Height = 151
        Align = alClient
        ImeName = #20013#25991' ('#31616#20307') - '#37073#30721
        TabOrder = 1
      end
    end
    object TabSheet1: TTabSheet
      Caption = #30417#25511
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 556
        Height = 315
        Align = alClient
        Caption = 'Panel1'
        TabOrder = 0
        object Splitter2: TSplitter
          Left = 1
          Top = 151
          Width = 554
          Height = 3
          Cursor = crVSplit
          Align = alTop
        end
        object OutListView: TListView
          Left = 1
          Top = 1
          Width = 554
          Height = 150
          Align = alTop
          Columns = <
            item
              Caption = #31867#22411
            end
            item
              Caption = #24207#21495
            end
            item
              AutoSize = True
              Caption = #26102#38388
            end>
          RowSelect = True
          PopupMenu = OutPopupMenu
          TabOrder = 0
          ViewStyle = vsReport
          OnAdvancedCustomDrawItem = OutListViewAdvancedCustomDrawItem
          OnDblClick = OutListViewDblClick
        end
        object OutPMemo: TMemo
          Left = 1
          Top = 154
          Width = 554
          Height = 160
          Align = alClient
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ScrollBars = ssBoth
          TabOrder = 1
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 343
    Width = 564
    Height = 19
    Panels = <
      item
        Width = 50
      end>
  end
  object SMGPTCPClient: TIdTCPClient
    OnDisconnected = SMGPTCPClientDisconnected
    ConnectTimeout = 0
    IPVersion = Id_IPv4
    OnConnected = SMGPTCPClientConnected
    Port = 0
    ReadTimeout = 0
    Left = 272
    Top = 136
  end
  object IdAntiFreeze1: TIdAntiFreeze
    Left = 52
    Top = 88
  end
  object ADOConnection: TADOConnection
    Left = 384
    Top = 64
  end
  object ADOQuery: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    Left = 136
    Top = 88
  end
  object OutPopupMenu: TPopupMenu
    Left = 288
    Top = 80
    object OutMonitor: TMenuItem
      AutoCheck = True
      Caption = #30417#25511
    end
    object N11: TMenuItem
      Caption = #28165#31354
      OnClick = N11Click
    end
  end
  object MonitorTimer: TTimer
    Enabled = False
    OnTimer = MonitorTimerTimer
    Left = 420
    Top = 128
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 212
    Top = 80
  end
  object CmppTCPClient: TIdTCPClient
    OnDisconnected = CmppTCPClientDisconnected
    ConnectTimeout = 0
    IPVersion = Id_IPv4
    OnConnected = CmppTCPClientConnected
    Port = 0
    ReadTimeout = 0
    Left = 72
    Top = 136
  end
  object Cmpp0TCPClient: TIdTCPClient
    OnDisconnected = Cmpp0TCPClientDisconnected
    ConnectTimeout = 0
    IPVersion = Id_IPv4
    OnConnected = Cmpp0TCPClientConnected
    Port = 0
    ReadTimeout = 0
    Left = 176
    Top = 136
  end
  object SgipTCPClient: TIdTCPClient
    OnDisconnected = SgipTCPClientDisconnected
    ConnectTimeout = 0
    IPVersion = Id_IPv4
    OnConnected = SgipTCPClientConnected
    Port = 0
    ReadTimeout = 0
    Left = 208
    Top = 240
  end
end