unit1.~dfm

关于USB驱动查询 并进行上下行传输数据的源码

object Form1: TForm1
  Left = 152
  Top = 270
  Width = 1031
  Height = 567
  Caption = #27979#35797#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 48
    Top = 40
    Width = 112
    Height = 22
    Caption = #38452#26497#20559#21387#35774#23450#20540
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 48
    Top = 72
    Width = 112
    Height = 22
    Caption = #38451#26497#24341#29123#35774#23450#20540
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 48
    Top = 104
    Width = 90
    Height = 22
    Caption = #30005#27969#35774#23450#20540'1'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 48
    Top = 136
    Width = 90
    Height = 22
    Caption = #30005#27969#35774#23450#20540'2'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 360
    Top = 104
    Width = 122
    Height = 22
    Caption = #35843#27969'1'#30005#27969#37319#26679#20540
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 360
    Top = 136
    Width = 122
    Height = 22
    Caption = #35843#27969'2'#30005#27969#37319#26679#20540
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 360
    Top = 40
    Width = 112
    Height = 22
    Caption = #38452#26497#30005#21387#37319#26679#20540
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label8: TLabel
    Left = 360
    Top = 72
    Width = 112
    Height = 22
    Caption = #38451#26497#30005#21387#37319#26679#20540
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label9: TLabel
    Left = 296
    Top = 136
    Width = 28
    Height = 22
    Caption = 'mA'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label10: TLabel
    Left = 296
    Top = 104
    Width = 28
    Height = 22
    Caption = 'mA'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label11: TLabel
    Left = 624
    Top = 136
    Width = 28
    Height = 22
    Caption = 'mA'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label12: TLabel
    Left = 624
    Top = 104
    Width = 28
    Height = 22
    Caption = 'mA'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label13: TLabel
    Left = 296
    Top = 72
    Width = 11
    Height = 22
    Caption = 'V'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label14: TLabel
    Left = 624
    Top = 72
    Width = 11
    Height = 22
    Caption = 'V'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label15: TLabel
    Left = 624
    Top = 40
    Width = 11
    Height = 22
    Caption = 'V'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label16: TLabel
    Left = 296
    Top = 40
    Width = 11
    Height = 22
    Caption = 'V'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label17: TLabel
    Left = 48
    Top = 8
    Width = 64
    Height = 22
    Caption = #35774#22791#21495#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label18: TLabel
    Left = 120
    Top = 8
    Width = 5
    Height = 22
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label19: TLabel
    Left = 648
    Top = 32
    Width = 6
    Height = 26
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label21: TLabel
    Left = 688
    Top = 104
    Width = 122
    Height = 22
    Caption = #35843#27969'1'#30005#21387#37319#26679#20540
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label22: TLabel
    Left = 688
    Top = 136
    Width = 122
    Height = 22
    Caption = #35843#27969'2'#30005#27969#37319#21387#20540
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label23: TLabel
    Left = 952
    Top = 104
    Width = 11
    Height = 22
    Caption = 'V'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label24: TLabel
    Left = 952
    Top = 136
    Width = 11
    Height = 22
    Caption = 'V'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label20: TLabel
    Left = 360
    Top = 8
    Width = 64
    Height = 22
    Caption = #29366#24577#23383#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label25: TLabel
    Left = 168
    Top = 8
    Width = 64
    Height = 22
    Caption = #26426#22120#21495#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label26: TLabel
    Left = 240
    Top = 8
    Width = 5
    Height = 22
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label27: TLabel
    Left = 432
    Top = 8
    Width = 5
    Height = 22
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label28: TLabel
    Left = 496
    Top = 8
    Width = 64
    Height = 22
    Caption = #25511#21046#23383#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label29: TLabel
    Left = 568
    Top = 8
    Width = 5
    Height = 22
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label30: TLabel
    Left = 648
    Top = 64
    Width = 6
    Height = 26
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 168
    Top = 40
    Width = 121
    Height = 30
    BevelKind = bkFlat
    BiDiMode = bdLeftToRight
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ImeMode = imDisable
    ParentBiDiMode = False
    ParentFont = False
    TabOrder = 0
    Text = '800'
    OnChange = Edit1Change
  end
  object Button1: TButton
    Left = 144
    Top = 384
    Width = 75
    Height = 25
    Caption = #22238#35835#25968#25454
    Default = True
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object Edit2: TEdit
    Left = 168
    Top = 72
    Width = 121
    Height = 30
    BevelKind = bkFlat
    BiDiMode = bdLeftToRight
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ImeMode = imDisable
    ParentBiDiMode = False
    ParentFont = False
    TabOrder = 2
    Text = '2800'
    OnChange = Edit2Change
  end
  object Edit3: TEdit
    Left = 168
    Top = 104
    Width = 121
    Height = 30
    BevelKind = bkFlat
    BiDiMode = bdLeftToRight
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ImeMode = imDisable
    ParentBiDiMode = False
    ParentFont = False
    TabOrder = 3
    Text = '1'
  end
  object Edit4: TEdit