umain.~dfm

利用ymodem协议通过串口传输数据或文件

object Fmain: TFmain
  Left = 173
  Top = 202
  Width = 802
  Height = 468
  Caption = 'YModem'#20256#36755
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 794
    Height = 441
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'SendData'
      object Panel2: TPanel
        Left = 0
        Top = 29
        Width = 786
        Height = 382
        Align = alClient
        Caption = 'Panel2'
        TabOrder = 0
        object Memo1: TMemo
          Left = 1
          Top = 1
          Width = 784
          Height = 380
          Align = alClient
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          Lines.Strings = (
            
              '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0' +
              '0 00 00 00 00 00 00 00 00 00 00')
          ParentFont = False
          PopupMenu = PopupMenu1
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 786
        Height = 29
        Align = alTop
        TabOrder = 1
        object SpeedButton1: TSpeedButton
          Left = 380
          Top = 4
          Width = 31
          Height = 23
          Caption = '...'
          OnClick = SpeedButton1Click
        end
        object Edit1: TEdit
          Left = 4
          Top = 4
          Width = 377
          Height = 23
          TabOrder = 0
        end
        object BitBtn1: TBitBtn
          Left = 414
          Top = 4
          Width = 45
          Height = 22
          Caption = 'Send'
          TabOrder = 1
          OnClick = BitBtn1Click
        end
        object ProgressBar1: TProgressBar
          Left = 484
          Top = 1
          Width = 301
          Height = 27
          Align = alRight
          Min = 0
          Max = 100
          Step = 5
          TabOrder = 2
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'COM'
      ImageIndex = 1
      object Label1: TLabel
        Left = 36
        Top = 16
        Width = 45
        Height = 15
        Caption = #20018#21475#21495
      end
      object Label2: TLabel
        Left = 36
        Top = 44
        Width = 45
        Height = 15
        Caption = #27874#29305#29575
      end
      object Label3: TLabel
        Left = 36
        Top = 68
        Width = 45
        Height = 15
        Caption = #25968#25454#20301
      end
      object Label4: TLabel
        Left = 36
        Top = 95
        Width = 45
        Height = 15
        Caption = #20572#27490#20301
      end
      object Label5: TLabel
        Left = 36
        Top = 123
        Width = 45
        Height = 15
        Caption = #26657#39564#20301
      end
      object Label6: TLabel
        Left = 36
        Top = 149
        Width = 45
        Height = 15
        Caption = #27969#25511#21046
      end
      object Shape1: TShape
        Left = 212
        Top = 92
        Width = 53
        Height = 41
        Shape = stEllipse
      end
      object ComboBox1: TComboBox
        Left = 72
        Top = 12
        Width = 77
        Height = 23
        ItemHeight = 15
        ItemIndex = 0
        TabOrder = 0
        Text = 'COM1'
        Items.Strings = (
          'COM1'
          'COM2'
          'COM3'
          'COM4')
      end
      object ComboBox2: TComboBox
        Left = 72
        Top = 40
        Width = 77
        Height = 23
        ItemHeight = 15
        ItemIndex = 2
        TabOrder = 1
        Text = '9600'
        Items.Strings = (
          '2400'
          '4800'
          '9600'
          '14400'
          '19200'
          '38400'
          '56000'
          '57600')
      end
      object ComboBox3: TComboBox
        Left = 72
        Top = 66
        Width = 77
        Height = 23
        ItemHeight = 15
        ItemIndex = 3
        TabOrder = 2
        Text = '8'
        Items.Strings = (
          '5'
          '6'
          '7'
          '8')
      end
      object ComboBox4: TComboBox
        Left = 72
        Top = 92
        Width = 77
        Height = 23
        ItemHeight = 15
        ItemIndex = 0
        TabOrder = 3
        Text = '1'
        Items.Strings = (
          '1'
          '1.5'
          '2')
      end
      object ComboBox5: TComboBox
        Left = 72
        Top = 119
        Width = 77
        Height = 23
        ItemHeight = 15
        ItemIndex = 0
        TabOrder = 4
        Text = 'none'
        Items.Strings = (
          'none')
      end
      object ComboBox6: TComboBox
        Left = 72
        Top = 146
        Width = 77
        Height = 23
        ItemHeight = 15
        ItemIndex = 0
        TabOrder = 5
        Text = 'none'
        Items.Strings = (
          'none')
      end
      object BitBtn2: TBitBtn
        Left = 160
        Top = 144
        Width = 75
        Height = 25
        Caption = 'Open'
        TabOrder = 6
        OnClick = BitBtn2Click
      end
      object BitBtn3: TBitBtn
        Left = 244
        Top = 144
        Width = 75
        Height = 25
        Caption = 'Close'
        TabOrder = 7
        OnClick = BitBtn3Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = #25152#26377#25991#20214'(*.*)|*.*'
    Left = 352
  end
  object Comm1: TComm
    CommName = 'COM1'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = False
    Inx_XonXoffFlow = False
    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
    Left = 236
    Top = 16
  end
  object PopupMenu1: TPopupMenu
    Left = 256
    Top = 72
    object copy1: TMenuItem
      Caption = 'copy'
      OnClick = copy1Click
    end
    object cut1: TMenuItem
      Caption = 'cut'
      OnClick = cut1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object exit1: TMenuItem
      Caption = 'exit'
      OnClick = exit1Click
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 224
    Top = 80
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = Timer2Timer
    Left = 192
    Top = 76
  end
end