main.~dfm

com和tcpip的转发程序

object FormMain: TFormMain
  Left = 221
  Top = 137
  Width = 715
  Height = 568
  Caption = #36890#35759#36716#21457
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #26032#23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object RzSizePanel1: TRzSizePanel
    Left = 0
    Top = 0
    Width = 185
    Height = 541
    MarginMin = 180
    SizeBarStyle = ssBump
    SizeBarWidth = 3
    TabOrder = 0
    object RzGroupBox1: TRzGroupBox
      Left = 8
      Top = 8
      Width = 169
      Height = 185
      Caption = #20018#21475#35774#32622
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 14
        Width = 24
        Height = 12
        Caption = #31471#21475
      end
      object Label2: TLabel
        Left = 16
        Top = 37
        Width = 36
        Height = 12
        Caption = #27874#29305#29575
      end
      object Label4: TLabel
        Left = 16
        Top = 61
        Width = 36
        Height = 12
        Caption = #25968#25454#20301
      end
      object Label5: TLabel
        Left = 16
        Top = 85
        Width = 36
        Height = 12
        Caption = #26657#39564#20301
      end
      object Label3: TLabel
        Left = 16
        Top = 109
        Width = 36
        Height = 12
        Caption = #20572#27490#20301
      end
      object Label10: TLabel
        Left = 16
        Top = 133
        Width = 24
        Height = 12
        Caption = #36229#26102
      end
      object LEDOpen: TShape
        Left = 31
        Top = 156
        Width = 15
        Height = 15
        Brush.Color = clSilver
        Shape = stCircle
      end
      object RzBtnOpenClose: TRzButton
        Left = 72
        Top = 152
        Caption = #25171#24320
        HotTrack = True
        TabOrder = 0
        OnClick = RzBtnOpenCloseClick
      end
      object RzCbBoxPort: TRzComboBox
        Left = 64
        Top = 8
        Width = 89
        Height = 20
        Style = csDropDownList
        Ctl3D = False
        FlatButtons = True
        FrameHotColor = 1350640
        FrameHotTrack = True
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 1
        OnChange = RzCbBoxPortChange
      end
      object RzCbBoxBand: TRzComboBox
        Left = 64
        Top = 32
        Width = 89
        Height = 20
        Style = csDropDownList
        Ctl3D = False
        FlatButtons = True
        FrameHotColor = 1350640
        FrameHotTrack = True
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 2
        Text = '9600'
        OnChange = RzCbBoxPortChange
        Items.Strings = (
          '110'
          '300'
          '600'
          '1200'
          '4800'
          '9600'
          '19200'
          '38400'
          '56000'
          '57600'
          '115200'
          '128000'
          '256000')
        ItemIndex = 5
      end
      object RzCbBoxData: TRzComboBox
        Left = 64
        Top = 56
        Width = 89
        Height = 20
        Style = csDropDownList
        Ctl3D = False
        FlatButtons = True
        FrameHotColor = 1350640
        FrameHotTrack = True
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 3
        Text = '8'
        OnChange = RzCbBoxPortChange
        Items.Strings = (
          '5'
          '6'
          '7'
          '8')
        ItemIndex = 3
      end
      object RzCbBoxParity: TRzComboBox
        Left = 64
        Top = 80
        Width = 89
        Height = 20
        Style = csDropDownList
        Ctl3D = False
        FlatButtons = True
        FrameHotColor = 1350640
        FrameHotTrack = True
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 4
        Text = #26080
        OnChange = RzCbBoxPortChange
        Items.Strings = (
          #26080
          #22855#26657#39564
          #20598#26657#39564
          'Mark'
          'Space')
        ItemIndex = 0
      end
      object FlatCbBoxStop: TRzComboBox
        Left = 64
        Top = 104
        Width = 89
        Height = 20
        Style = csDropDownList
        Ctl3D = False
        FlatButtons = True
        FrameHotColor = 1350640
        FrameHotTrack = True
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 5
        Text = '1'
        OnChange = RzCbBoxPortChange
        Items.Strings = (
          '1'
          '1.5'
          '2')
        ItemIndex = 0
      end
      object RzSEditTimeOut: TRzSpinEdit
        Left = 64
        Top = 128
        Width = 89
        Height = 20
        AllowKeyEdit = True
        Max = 10000.000000000000000000
        Value = 50.000000000000000000
        FlatButtons = True
        FrameHotColor = 1350640
        FrameHotTrack = True
        FrameVisible = True
        TabOrder = 6
        OnChange = RzCbBoxPortChange
      end
    end
    object RzGroupBox2: TRzGroupBox
      Left = 8
      Top = 200
      Width = 169
      Height = 129
      Caption = #32593#32476#35774#32622
      TabOrder = 1
      object Label6: TLabel
        Left = 16
        Top = 16
        Width = 36
        Height = 12
        Caption = 'IP'#22320#22336
      end
      object Label7: TLabel
        Left = 16
        Top = 68
        Width = 24
        Height = 12
        Caption = #31471#21475
      end
      object LEDConnect: TShape
        Left = 31
        Top = 100
        Width = 15
        Height = 15
        Brush.Color = clSilver
        Shape = stCircle
      end
      object RzBtnConnect: TRzButton
        Left = 72
        Top = 96
        Caption = #36830#25509
        HotTrack = True
        TabOrder = 0
        OnClick = RzBtnConnectClick
      end
      object RzNumEdit: TRzNumericEdit
        Left = 56
        Top = 64
        Width = 81
        Height = 20
        FrameHotColor = 1350640
        FrameHotTrack = True
        FrameVisible = True
        MaxLength = 5
        TabOrder = 1
        Value = 8887.000000000000000000
        DisplayFormat = ',0;(,0)'
      end
      object RzEdit: TRzEdit
        Left = 16
        Top = 32
        Width = 145
        Height = 20
        Text = '127.0.0.1'
        Alignment = taRightJustify
        FrameHotColor = 1350640
        FrameHotTrack = True
        FrameVisible = True
        TabOrder = 2
      end
    end
    object RzGroupBox3: TRzGroupBox
      Left = 8
      Top = 336
      Width = 169
      Height = 81
      Caption = #21442#25968#35774#32622
      TabOrder = 2
      object RzCheckBoxHex: TRzCheckBox
        Left = 96
        Top = 24
        Width = 65
        Height = 17
        Caption = 'Hex'#26041#24335
        Checked = True
        HotTrack = True
        State = cbChecked
        TabOrder = 0
      end
      object RzBtnClear: TRzButton
        Left = 48
        Top = 48
        Caption = #28165#38500#31383#21475
        HotTrack = True
        TabOrder = 1
        OnClick = RzBtnClearClick
      end
      object RzCheckBoxDisplay: TRzCheckBox
        Left = 16
        Top = 24
        Width = 73
        Height = 17
        Caption = #26174#31034#25253#25991
        Checked = True
        HotTrack = True
        State = cbChecked
        TabOrder = 2
      end
    end
    object RzGroupBox4: TRzGroupBox
      Left = 8
      Top = 424
      Width = 169
      Height = 113
      Caption = #32479#35745
      TabOrder = 3
      object Label8: TLabel
        Left = 8
        Top = 24
        Width = 72
        Height = 12
        Caption = #21457#21040'Socket'#65306
      end
      object Label9: TLabel
        Left = 8
        Top = 64
        Width = 60
        Height = 12
        Caption = #21457#21040#20018#21475#65306
      end
      object RzLabelSendSocket: TRzLabel
        Left = 16
        Top = 40
        Width = 145
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'#23383#33410
        Layout = tlCenter
        BorderInner = fsLowered
      end
      object RzLabelSendSerial: TRzLabel
        Left = 16
        Top = 80
        Width = 145
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'#23383#33410
        Layout = tlCenter
        BorderInner = fsLowered
      end
    end
  end
  object RzRichEdit: TRzRichEdit
    Left = 185
    Top = 0
    Width = 522
    Height = 541
    Align = alClient
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #26032#23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 1
    DisabledColor = clInfoBk
    FrameVisible = True
  end
  object ClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = ClientSocketConnect
    OnDisconnect = ClientSocketDisconnect
    OnRead = ClientSocketRead
    OnError = ClientSocketError
    Left = 224
    Top = 16
  end
  object Comm: TComm
    CommName = 'COM1'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = CommReceiveData
    Left = 184
    Top = 16
  end
end