ucommtest.dfm

DELPHI串口通讯程序

        Height = 20
        Caption = #20840#37096#28165#38500
        TabOrder = 0
        OnClick = BTNClearRightClick
      end
      object BTNSaveRight: TBitBtn
        Left = 98
        Top = 0
        Width = 72
        Height = 20
        Action = SaveFileAction
        Caption = #20445#23384#20869#23481
        TabOrder = 1
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 33
    Width = 534
    Height = 26
    Align = alTop
    BevelOuter = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    object Label1: TLabel
      Left = 16
      Top = 7
      Width = 48
      Height = 12
      Alignment = taCenter
      Caption = #27979#35797#20869#23481
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 326
      Top = 7
      Width = 180
      Height = 12
      Alignment = taRightJustify
      Caption = #35745#31639#26426#20018#21475#36890#20449'232'#27979#35797#31995#32479'V1.10'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Layout = tlCenter
    end
    object EditAck1: TEdit
      Left = 85
      Top = 3
      Width = 20
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      MaxLength = 2
      TabOrder = 0
      Text = 'F0'
    end
    object EditAck2: TEdit
      Left = 111
      Top = 3
      Width = 20
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      MaxLength = 2
      TabOrder = 1
      Text = '01'
    end
    object EditAck3: TEdit
      Left = 137
      Top = 3
      Width = 20
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      MaxLength = 2
      TabOrder = 2
      Text = 'FF'
    end
    object EditAck4: TEdit
      Left = 163
      Top = 3
      Width = 20
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      MaxLength = 2
      TabOrder = 3
      Text = 'FF'
    end
    object EditAck5: TEdit
      Left = 189
      Top = 3
      Width = 20
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      MaxLength = 2
      TabOrder = 4
      Text = '01'
    end
    object EditAck6: TEdit
      Left = 215
      Top = 3
      Width = 20
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      MaxLength = 2
      TabOrder = 5
      Text = 'F0'
    end
    object BTNSaveAck: TBitBtn
      Left = 245
      Top = 2
      Width = 48
      Height = 19
      Caption = #20445#23384#35774#32622
      TabOrder = 6
      OnClick = BTNSaveAckClick
    end
  end
  object Comm1: 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 = Comm1ReceiveData
    OnSendDataEmpty = Comm1SendDataEmpty
    Left = 136
    Top = 104
  end
  object Comm2: TComm
    CommName = 'COM2'
    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 = Comm2ReceiveData
    OnRequestHangup = Comm2RequestHangup
    Left = 360
    Top = 104
  end
  object OpenDialog1: TOpenDialog
    Filter = #25991#26412#25991#20214'(*.txt;*.dat)|*.txt;*.dat|'#25152#26377#25991#20214'|*.*'
    Left = 184
    Top = 104
  end
  object SaveDialog1: TSaveDialog
    Filter = #25991#26412#25991#20214'(*.txt)|*.txt|'#25991#26412#25991#20214'(*.dat)|*.dat'
    Left = 400
    Top = 104
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 217
    Top = 201
    object FileMenu: TMenuItem
      Caption = #25991#20214'(&F)'
      object OpenFileMenu: TMenuItem
        Action = OpenFileAction
        Caption = #25171#24320'(&O)...'
      end
      object SaveFileMenu: TMenuItem
        Action = SaveFileAction
        Caption = #20445#23384'(&A)...'
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object ExitMenu: TMenuItem
        Action = ExitAction
      end
    end
    object ViewMenu: TMenuItem
      Caption = #35270#22270'(&V)'
      object SendWinMenu: TMenuItem
        AutoCheck = True
        Caption = #21457#36865#20869#23481#31383#21475
        Checked = True
        OnClick = SendWinMenuClick
      end
      object RecvWinMenu: TMenuItem
        AutoCheck = True
        Caption = #25509#25910#20869#23481#31383#21475
        Checked = True
        OnClick = RecvWinMenuClick
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object CommSetMenu: TMenuItem
        AutoCheck = True
        Caption = #20018#21475#35774#32622#31383#21475
        Checked = True
        OnClick = CommSetMenuClick
      end
      object N18: TMenuItem
        Caption = '-'
      end
      object ToolBarMenu: TMenuItem
        AutoCheck = True
        Caption = #24037#20855#26639
        Checked = True
        OnClick = ToolBarMenuClick
      end
    end
    object Test: TMenuItem
      Caption = #27979#35797
      object TestComMenu: TMenuItem
        Action = TestCommAction
      end
    end
    object SendMenu: TMenuItem
      Caption = #20256#36865
      object StartSendMenu: TMenuItem
        Action = StartSendAction
        Caption = #24320#22987'(&S)'
      end
      object StopSendMenu: TMenuItem
        Action = StopSendAction
        Caption = #20572#27490'(&T)'
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object F1: TMenuItem
        Caption = #21508#31181#25991#20214'(&F)...'
      end
    end
    object RecvMenu: TMenuItem
      Caption = #25509#25910
      object StartRecvMenu: TMenuItem
        Action = StartReciveAction
        Caption = #24320#22987'(&B)'
      end
      object StopRecvMenu: TMenuItem
        Action = StopReciveAction
        Caption = #20572#27490'(&E)'
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object F2: TMenuItem
        Caption = #21508#31181#25991#20214'(&F)...'
      end
    end
    object HelpMenu: TMenuItem
      Caption = #24110#21161
      object HelpWinMenu: TMenuItem
        Action = HelpAction
        Caption = #24110#21161'(&H)...'
      end
      object AboutMenu: TMenuItem
        Action = AboutAction
        Caption = #20851#20110'(&A)...'
      end
    end
  end
  object ActionList1: TActionList
    Left = 169
    Top = 201
    object OpenFileAction: TAction
      Caption = #25171#24320
      OnExecute = OpenFileActionExecute
    end
    object SaveFileAction: TAction
      Caption = #20445#23384
      OnExecute = SaveFileActionExecute
    end
    object SetACKAction: TAction
      Caption = #35774#32622#25569#25163#20449#21495
    end
    object TestCommAction: TAction
      Caption = #27979#35797#36890#20449#21475
      OnExecute = TestCommActionExecute
    end
    object StartSendAction: TAction
      Caption = #24320#22987#20256#36865
      OnExecute = StartSendActionExecute
    end
    object StopSendAction: TAction
      Caption = #20572#27490#20256#36865
      OnExecute = StopSendActionExecute
    end
    object StartReciveAction: TAction
      Caption = #24320#22987#25509#25910
      OnExecute = StartReciveActionExecute
    end
    object StopReciveAction: TAction
      Caption = #20572#27490#25509#25910
      OnExecute = StopReciveActionExecute
    end
    object HelpAction: TAction
      Caption = #24110#21161
      OnExecute = HelpActionExecute
    end
    object AboutAction: TAction
      Caption = #20851#20110
      OnExecute = AboutActionExecute
    end
    object ExitAction: TAction
      Caption = #36864#20986
      OnExecute = ExitActionExecute
    end
  end
end