mainform.dfm

串口通信相关的源码

object frmMain: TfrmMain
  Left = 161
  Top = 107
  Width = 524
  Height = 360
  Caption = #20018#21475#35843#35797
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    000001000200101010000100040028010000260000002020100001000400E802
    00004E0100002800000010000000200000000100040000000000C00000000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00780000000000000078000000000000007880
    00000000000007FFFFFF8000000000777777F8000000000000007F0000000000
    000077700000000000000000000000000000F77700000000007F888870000000
    007F888870000000007F888870000000007F88887000000007F8888887000000
    07FFFFFFFF00000000B3B3B3B3001FFF00001FFF0000007F0000803F0000C01F
    0000FF1F0000FF0F0000FF0F0000FE070000FC030000FC030000FC030000FC03
    0000F8010000F8010000FC030000280000002000000040000000010004000000
    0000800200000000000000000000000000000000000000000000000080000080
    00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF007F887000000000000000
    0000000000007F8870000000000000000000000000007F887000000000000000
    0000000000007F8870000000000000000000000000007F888700000000000000
    0000000000007F88887777777777700000000000000007F88888888888888770
    000000000000007F88888888888888870000000000000007FFFFFFFFFFFF8888
    7000000000000000777777777777F88870000000000000000000000000007F88
    870000000000000000000000000007F8870000000000000000000000000007F8
    870000000000000000000000000007F887000000000000000000000000000777
    7700000000000000000000000000000000000000000000000000000000007777
    77770000000000000000000000F888888887770000000000000000007F888888
    8888777000000000000000007FF888888887877000000000000000007F888888
    8888777000000000000000007FF888888887877000000000000000007F888888
    8878777000000000000000007FF888888787877000000000000000007F887878
    787877700000000000000007F777777777777770000000000000007F88888888
    88888887700000000000007F8888888888888888700000000000007F88888888
    888888887000000000000007FFFFFFFFFFFFFFFF00000000000000008B38B38B
    38B38B3000000000000000008838838838838830000003FFFFFF03FFFFFF03FF
    FFFF03FFFFFF00007FFF00001FFF80000FFFC00007FFE00003FFF00003FFFFFF
    01FFFFFF81FFFFFF81FFFFFF81FFFFFF81FFFFFF00FFFFFC003FFFF8001FFFF0
    000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFE00007FFC0
    0003FFC00003FFC00003FFE00007FFF0000FFFF0000F}
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 516
    Height = 333
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 6
    TabOrder = 0
    object memReceive: TMemo
      Left = 6
      Top = 147
      Width = 504
      Height = 180
      Align = alClient
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 6
      Top = 6
      Width = 504
      Height = 141
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      DesignSize = (
        504
        141)
      object shpComState: TShape
        Left = 238
        Top = 11
        Width = 17
        Height = 17
        Hint = #31471#21475#22788#20110#20851#38381#29366#24577#12290
        Brush.Color = clBlue
        ParentShowHint = False
        Pen.Color = clBlue
        Shape = stCircle
        ShowHint = True
      end
      object Label1: TLabel
        Left = 169
        Top = 43
        Width = 36
        Height = 12
        Caption = #38388#38548#65306
      end
      object Bevel1: TBevel
        Left = 267
        Top = 0
        Width = 8
        Height = 89
        Anchors = [akTop, akRight]
        Shape = bsLeftLine
      end
      object Bevel2: TBevel
        Left = -1
        Top = 35
        Width = 268
        Height = 9
        Anchors = [akLeft, akTop, akRight]
        Shape = bsTopLine
      end
      object Bevel3: TBevel
        Left = -2
        Top = 88
        Width = 505
        Height = 4
        Anchors = [akLeft, akTop, akRight]
        Shape = bsTopLine
      end
      object Bevel4: TBevel
        Left = 1
        Top = 0
        Width = 502
        Height = 9
        Anchors = [akLeft, akTop, akRight]
        Shape = bsTopLine
      end
      object Bevel5: TBevel
        Left = 0
        Top = 0
        Width = 8
        Height = 89
        Shape = bsLeftLine
      end
      object Bevel6: TBevel
        Left = 501
        Top = 0
        Width = 8
        Height = 89
        Anchors = [akTop, akRight]
        Shape = bsLeftLine
      end
      object Label2: TLabel
        Left = 236
        Top = 43
        Width = 24
        Height = 12
        Caption = #27627#31186
      end
      object spbtnEmail: TSpeedButton
        Left = 470
        Top = 8
        Width = 23
        Height = 75
        Anchors = [akTop, akRight]
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F000000FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03
          FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03
          FF03FF03FF03FF03000000000000000000000000000000000000000000000000
          00000000FF03FF03104210421042104210421042104210421042104210421042
          10420000FF03FF03104218631863186318631863186318631863186318631863
          10420000FF03FF03104200421863186318630042004200421863186318630042
          10420000FF03FF031042E07F0042186300420000000000000042186300421863
          10420000FF03FF031042FF7FFF7F00420000FF7FFF7FE07F0000004218631863
          10420000FF03FF031042E07F18630000FF7FE07FFF7FFF7FFF7F000000421863
          10420000FF03FF03104218630000E07FFF7FFF7FFF7FE07FFF7FFF7F00000042
          10420000FF03FF0310420000FF7FFF7FFF7FE07FFF7FFF7FFF7FE07FFF7F0000
          00420000FF03FF031042FF7FFF7FE07FFF7FFF7FFF7FE07FFF7FFF7FFF7FE07F
          00000000FF03FF03104210421042104210421042104210421042104210421042
          10420000FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03
          FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03
          FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03
          FF03FF03FF03}
        Layout = blGlyphTop
        ParentFont = False
        OnClick = spbtnEmailClick
      end
      object Bevel7: TBevel
        Left = 267
        Top = 2
        Width = 8
        Height = 33
        Shape = bsLeftLine
      end
      object Bevel8: TBevel
        Left = 267
        Top = 37
        Width = 8
        Height = 51
        Shape = bsLeftLine
      end
      object Label3: TLabel
        Left = 1
        Top = 98
        Width = 72
        Height = 12
        Caption = #21457#36865#30340#25968#25454#65306
      end
      object Label4: TLabel
        Left = 1
        Top = 120
        Width = 72
        Height = 12
        Caption = #25968#25454#20445#23384#21040#65306
      end
      object edtSendData: TEdit
        Left = 92
        Top = 94
        Width = 410
        Height = 20
        Hint = #22312#27492#22788#20889#20837#35201#21457#36865#30340#25968#25454#65292#22914#26524#26159#21313#20845#36827#21046#21457#36865#65292#21017#27599#20010#21313#20845#36827#21046#25968#25454#20043#38388#29992#31354#26684#38548#24320#12290
        Anchors = [akLeft, akTop, akRight]
        ParentShowHint = False
        ShowHint = True
        TabOrder = 13
      end
      object btnOpen: TButton
        Left = 82
        Top = 8
        Width = 63
        Height = 23
        Caption = #25171#24320#31471#21475
        TabOrder = 1
        OnClick = btnOpenClick
      end
      object btnClose: TButton
        Left = 157
        Top = 8
        Width = 63
        Height = 23
        Caption = #20851#38381#31471#21475
        TabOrder = 2
        OnClick = btnCloseClick
      end
      object btnSend: TButton
        Left = 9
        Top = 41
        Width = 63
        Height = 43
        Caption = #21457#36865
        TabOrder = 3
        OnClick = btnSendClick
      end
      object ckbHexSend: TCheckBox
        Left = 277
        Top = 37
        Width = 97
        Height = 17
        Anchors = [akTop, akRight]
        Caption = #21313#20845#36827#21046#21457#36865
        Checked = True
        State = cbChecked
        TabOrder = 8
      end
      object ckbHexShow: TCheckBox
        Left = 277
        Top = 54
        Width = 97
        Height = 17
        Anchors = [akTop, akRight]
        Caption = #21313#20845#36827#21046#26174#31034
        Checked = True
        State = cbChecked
        TabOrder = 9
        OnClick = ckbHexShowClick
      end
      object btnSetParam: TButton
        Left = 9
        Top = 8
        Width = 63
        Height = 23
        Caption = #35774#32622#31471#21475
        TabOrder = 0
        OnClick = btnSetParamClick
      end
      object chkRepeat: TCheckBox
        Left = 92
        Top = 41
        Width = 71
        Height = 17
        Caption = #36830#32493#21457#36865
        TabOrder = 4
        OnClick = chkRepeatClick
      end
      object edtSleep: TEdit
        Left = 202
        Top = 41
        Width = 32
        Height = 20
        TabOrder = 5
        Text = '200'
      end
      object btnStopView: TButton
        Left = 382
        Top = 8
        Width = 76
        Height = 23
        Anchors = [akTop, akRight]
        Caption = #20572#27490#26174#31034
        TabOrder = 7
        OnClick = btnStopViewClick
      end
      object btnClear: TButton
        Left = 277
        Top = 8
        Width = 76
        Height = 23
        Anchors = [akTop, akRight]
        Caption = #28165#31354#26174#31034#21306
        TabOrder = 6
        OnClick = btnClearClick
      end
      object chbViewFlag: TCheckBox
        Left = 383
        Top = 37
        Width = 74
        Height = 17
        Anchors = [akTop, akRight]
        Caption = #26174#31034#26631#31034
        TabOrder = 11
      end
      object chbAutoClear: TCheckBox
        Left = 277
        Top = 70
        Width = 74
        Height = 17
        Anchors = [akTop, akRight]
        Caption = #33258#21160#28165#31354
        TabOrder = 10
      end
      object chbSaveToFile: TCheckBox
        Left = 383
        Top = 54
        Width = 81
        Height = 17
        Anchors = [akTop, akRight]
        Caption = #20445#23384#21040#25991#20214
        TabOrder = 12
        OnClick = chbSaveToFileClick
      end
      object FileEdit: TEdit
        Left = 92
        Top = 118
        Width = 385
        Height = 20
        Hint = #25226#25509#25910#21040#30340#25968#25454#20445#23384#21040#27492#22788#25351#23450#30340#25991#20214#20013'('#38656#35201#36873#25321'['#20445#23384#21040#25991#20214']'#22797#36873#26694')'#12290
        Anchors = [akLeft, akTop, akRight]
        ParentShowHint = False
        ShowHint = True
        TabOrder = 14
      end
      object btnOpenFile: TBitBtn
        Left = 481
        Top = 118
        Width = 21
        Height = 20
        Anchors = [akTop, akRight]
        TabOrder = 15
        OnClick = btnOpenFileClick
        Glyph.Data = {
          4E000000424D4E000000000000003E000000280000000A000000040000000100
          010000000000100000000000000000000000020000000000000000000000FFFF
          FF00FFE4BF813318BF813300E802FFCAC081}
        Margin = 3
      end
      object chbBinSave: TCheckBox
        Left = 383
        Top = 70
        Width = 81
        Height = 17
        Anchors = [akTop, akRight]
        Caption = #20108#36827#21046#20445#23384
        TabOrder = 16
        OnClick = chbSaveToFileClick
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Title = #36873#25321#20445#23384#25968#25454#30340#25991#20214
    Left = 208
    Top = 144
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 240
    Top = 176
  end
  object Port1: TPort
    OnReceiveData = Port1ReceiveData
    BaudRate = br9600
    Port = 'COM1'
    Parity = prNone
    StopBits = sbOneStopBit
    DataBits = dbEight
    Left = 240
    Top = 144
  end
end