unit1.~dfm

前几年写的一个可以通过传输线对moto V66

object Form1: TForm1
  Left = 203
  Top = 149
  Width = 227
  Height = 231
  BorderIcons = [biSystemMenu]
  Caption = #25705#25176#32599#25289'P2K'#31995#21015#35299#38145#36719#20214' '
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 36
    Top = 172
    Width = 52
    Height = 13
    Cursor = crHandPoint
    Caption = #32852#31995#20316#32773
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = [fsUnderline]
    ParentFont = False
    OnClick = Label1Click
  end
  object Button1: TButton
    Left = 20
    Top = 92
    Width = 173
    Height = 25
    Caption = #22797#20301#35299#38145#30721#20026'1234'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 20
    Top = 124
    Width = 173
    Height = 25
    Caption = #22797#20301#20445#23494#30721#20026'000000'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button2Click
  end
  object Memo1: TMemo
    Left = 24
    Top = 8
    Width = 165
    Height = 77
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Lines.Strings = (
      '------'#19996#26041#40857#20316#21697'------'
      #36866#29992#20110'MOT P2K'#31995#21015#25163#26426#35299#38145
      '    (V70 V66 V60)'
      ' '#26412#36719#20214#20316#32773#29992'V60'#35797#36807
      '   100%'#21487#20197#27491#24120#24037#20316)
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
  end
  object Button3: TButton
    Left = 164
    Top = 160
    Width = 41
    Height = 33
    Caption = #36864#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Button3Click
  end
  object ComPort1: TComPort
    Connected = True
    BaudRate = br19200
    Port = 'COM1'
    Parity.Bits = prNone
    StopBits = sbOneStopBit
    DataBits = dbEight
    Events = [evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR, evError, evRLSD, evRx80Full]
    FlowControl.OutCTSFlow = False
    FlowControl.OutDSRFlow = False
    FlowControl.ControlDTR = dtrDisable
    FlowControl.ControlRTS = rtsDisable
    FlowControl.XonXoffOut = False
    FlowControl.XonXoffIn = False
    Left = 340
    Top = 200
  end
end