unit2.dfm

手机串口通信的源代码

object Form1: TForm1
  Left = 340
  Top = 196
  Width = 449
  Height = 453
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox2: TGroupBox
    Left = 0
    Top = 173
    Width = 441
    Height = 246
    Align = alBottom
    Caption = 'Infomation'
    TabOrder = 0
    object Gauge1: TGauge
      Left = 2
      Top = 229
      Width = 437
      Height = 15
      Align = alBottom
      Progress = 0
    end
    object RichEdit1: TRichEdit
      Left = 2
      Top = 15
      Width = 437
      Height = 214
      Align = alClient
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 441
    Height = 173
    Align = alClient
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 439
      Height = 171
      Align = alClient
      Caption = 'Set:'
      TabOrder = 0
      object Label1: TLabel
        Left = -8
        Top = 63
        Width = 69
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'FileName:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = -10
        Top = 25
        Width = 46
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'COM:'
      end
      object Label3: TLabel
        Left = 121
        Top = 25
        Width = 61
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'BaudRate:'
      end
      object Label4: TLabel
        Left = 248
        Top = 25
        Width = 78
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'FileSize:'
      end
      object sibox: TComComboBox
        Left = 43
        Top = 21
        Width = 72
        Height = 21
        ComPort = CXport
        ComProperty = cpPort
        Text = 'COM1'
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 0
      end
      object Edit1: TEdit
        Left = 64
        Top = 60
        Width = 321
        Height = 21
        TabOrder = 1
      end
      object Open_btn: TButton
        Left = 390
        Top = 59
        Width = 25
        Height = 22
        Caption = '...'
        TabOrder = 2
        OnClick = Open_btnClick
      end
      object Write_btn: TBitBtn
        Left = 94
        Top = 106
        Width = 76
        Height = 31
        Caption = 'Write'
        TabOrder = 3
        OnClick = Write_btnClick
      end
      object ComboBox1: TComboBox
        Left = 185
        Top = 21
        Width = 69
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 4
        Text = '921600'
        Items.Strings = (
          '921600'
          '460800'
          '230400'
          '115200')
      end
      object ComboBox2: TComboBox
        Left = 328
        Top = 21
        Width = 97
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 5
        Text = '0x800000(8M)'
        Items.Strings = (
          '0x800000(8M)'
          '0x1000000(16M)')
      end
      object Stop_btn: TBitBtn
        Left = 209
        Top = 106
        Width = 76
        Height = 31
        Caption = 'Stop'
        TabOrder = 6
      end
    end
  end
  object CXport: TComPort
    BaudRate = br9600
    Port = 'COM1'
    Parity.Bits = prNone
    StopBits = sbOneStopBit
    DataBits = dbEight
    Events = [evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR, evError, evRLSD, evRx80Full]
    Buffer.InputSize = 32768
    Buffer.OutputSize = 32768
    FlowControl.OutCTSFlow = False
    FlowControl.OutDSRFlow = False
    FlowControl.ControlDTR = dtrDisable
    FlowControl.ControlRTS = rtsDisable
    FlowControl.XonXoffOut = False
    FlowControl.XonXoffIn = False
    Left = 208
    Top = 200
  end
  object OpenDialog1: TOpenDialog
    Left = 296
    Top = 200
  end
  object SaveDialog1: TSaveDialog
    Left = 344
    Top = 184
  end
end