usbio.dfm

6个用VB和DELPHI编写的FOR USB驱动程序

          Caption = 'Index'
        end
        object setfeature: TButton
          Left = 104
          Top = 160
          Width = 81
          Height = 33
          Caption = 'Set Feature'
          TabOrder = 0
          OnClick = setfeatureClick
        end
        object featurecombo: TComboBox
          Left = 184
          Top = 48
          Width = 145
          Height = 21
          ItemHeight = 13
          TabOrder = 1
          Items.Strings = (
            'Device'
            'Interface'
            'Endpoint'
            'Other')
        end
        object featurefield: TEdit
          Left = 184
          Top = 80
          Width = 145
          Height = 21
          TabOrder = 2
          Text = '0'
        end
        object featureindexfield: TEdit
          Left = 184
          Top = 112
          Width = 145
          Height = 21
          TabOrder = 3
          Text = '0'
        end
        object clearfeature: TButton
          Left = 264
          Top = 160
          Width = 81
          Height = 33
          Caption = 'Clear Feature'
          TabOrder = 4
          OnClick = clearfeatureClick
        end
      end
    end
    object TabSheet7: TTabSheet
      Caption = 'Class or Vendor Request'
      ImageIndex = 7
      object ClassOrVendorRequestBox: TGroupBox
        Left = 8
        Top = 8
        Width = 457
        Height = 281
        Caption = 'Class or Vendor Request'
        TabOrder = 0
        object VendorDirectionLabel: TLabel
          Left = 16
          Top = 32
          Width = 42
          Height = 13
          Caption = 'Direction'
        end
        object VendorTypeLabel: TLabel
          Left = 16
          Top = 72
          Width = 24
          Height = 13
          Caption = 'Type'
        end
        object VendorRecipientLabel: TLabel
          Left = 16
          Top = 112
          Width = 45
          Height = 13
          Caption = 'Recipient'
        end
        object VendorRequestLabel: TLabel
          Left = 248
          Top = 32
          Width = 40
          Height = 13
          Caption = 'Request'
        end
        object VendorValueLabel: TLabel
          Left = 248
          Top = 72
          Width = 27
          Height = 13
          Caption = 'Value'
        end
        object VendorIndexLabel: TLabel
          Left = 248
          Top = 112
          Width = 26
          Height = 13
          Caption = 'Index'
        end
        object VendorBufferSizeLabel: TLabel
          Left = 8
          Top = 176
          Width = 49
          Height = 13
          Caption = 'Buffer size'
        end
        object VendorBufferLabel: TLabel
          Left = 8
          Top = 216
          Width = 28
          Height = 13
          Caption = 'Buffer'
        end
        object VendorDirectionCombo: TComboBox
          Left = 104
          Top = 32
          Width = 113
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          Text = 'VendorDirectionCombo'
          Items.Strings = (
            'Host to Device'
            'Device to Host')
        end
        object VendorTypeCombo: TComboBox
          Left = 104
          Top = 72
          Width = 113
          Height = 21
          ItemHeight = 13
          TabOrder = 1
          Text = 'VendorTypeCombo'
          Items.Strings = (
            'Class'
            'Vendor')
        end
        object VendorRecipientCombo: TComboBox
          Left = 104
          Top = 112
          Width = 113
          Height = 21
          ItemHeight = 13
          TabOrder = 2
          Text = 'VendorRecipientCombo'
          Items.Strings = (
            'Device'
            'Interface'
            'Endpoint'
            'Other')
        end
        object VendorRequest: TEdit
          Left = 312
          Top = 32
          Width = 57
          Height = 21
          TabOrder = 3
          Text = '0'
        end
        object VendorValueText: TEdit
          Left = 312
          Top = 72
          Width = 57
          Height = 21
          TabOrder = 4
          Text = '0'
        end
        object VendorIndexText: TEdit
          Left = 312
          Top = 112
          Width = 57
          Height = 21
          TabOrder = 5
          Text = '0'
        end
        object VendorBufferSizeText: TEdit
          Left = 64
          Top = 176
          Width = 49
          Height = 21
          TabOrder = 6
          Text = '0'
        end
        object VendorBufferText: TEdit
          Left = 64
          Top = 216
          Width = 361
          Height = 21
          TabOrder = 7
          Text = '$00 $00 $00'
        end
        object VendorSendButton: TButton
          Left = 312
          Top = 152
          Width = 89
          Height = 25
          Caption = 'Send Request'
          TabOrder = 8
          OnClick = VendorSendButtonClick
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Other'
      ImageIndex = 5
      object GroupBox8: TGroupBox
        Left = 8
        Top = 8
        Width = 113
        Height = 201
        TabOrder = 0
        object CyclePort: TButton
          Left = 8
          Top = 16
          Width = 97
          Height = 25
          Caption = 'Cycle Port'
          TabOrder = 0
          OnClick = CyclePortClick
        end
        object ResetDevice: TButton
          Left = 8
          Top = 48
          Width = 97
          Height = 25
          Caption = 'Reset Device'
          TabOrder = 1
          OnClick = ResetDeviceClick
        end
        object getframeno: TButton
          Left = 8
          Top = 112
          Width = 97
          Height = 25
          Caption = 'Get Frame Number'
          TabOrder = 2
          OnClick = getframenoClick
        end
        object frmno: TEdit
          Left = 8
          Top = 144
          Width = 97
          Height = 21
          TabOrder = 3
        end
      end
      object GroupBox9: TGroupBox
        Left = 8
        Top = 224
        Width = 457
        Height = 65
        Caption = 'Get Device PathName'
        TabOrder = 1
        object GetDevicePathName: TButton
          Left = 8
          Top = 24
          Width = 73
          Height = 25
          Caption = 'Get Path'
          TabOrder = 0
          OnClick = GetDevicePathNameClick
        end
        object GetDevicePathNamefield: TEdit
          Left = 96
          Top = 24
          Width = 353
          Height = 21
          TabOrder = 1
        end
      end
      object PowerState: TGroupBox
        Left = 136
        Top = 8
        Width = 273
        Height = 89
        Caption = 'Power State'
        TabOrder = 2
        object getpowerstate: TButton
          Left = 16
          Top = 16
          Width = 89
          Height = 25
          Caption = 'Get Power State'
          TabOrder = 0
          OnClick = getpowerstateClick
        end
        object getpowerstatefield: TEdit
          Left = 16
          Top = 48
          Width = 89
          Height = 21
          ReadOnly = True
          TabOrder = 1
        end
        object setpowerstate: TButton
          Left = 120
          Top = 16
          Width = 137
          Height = 25
          Caption = 'Set Power State'
          TabOrder = 2
          OnClick = setpowerstateClick
        end
        object powerstatecombo: TComboBox
          Left = 120
          Top = 48
          Width = 137
          Height = 21
          ItemHeight = 13
          TabOrder = 3
          Items.Strings = (
            'DevicePowerD0'
            'DevicePowerD1'
            'DevicePowerD2'
            'DevicePowerD3')
        end
      end
      object GroupBox10: TGroupBox
        Left = 136
        Top = 104
        Width = 273
        Height = 105
        Caption = 'Status'
        TabOrder = 3
        object Label18: TLabel
          Left = 16
          Top = 16
          Width = 45
          Height = 13
          Caption = 'Recipient'
        end
        object Label19: TLabel
          Left = 16
          Top = 40
          Width = 26
          Height = 13
          Caption = 'Index'
        end
        object getstatus: TButton
          Left = 16
          Top = 64
          Width = 81
          Height = 25
          Caption = 'Get Status'
          TabOrder = 0
          OnClick = getstatusClick
        end
        object statusindex: TEdit
          Left = 120
          Top = 40
          Width = 25
          Height = 21
          TabOrder = 1
          Text = '0'
        end
        object statuscombo: TComboBox
          Left = 120
          Top = 16
          Width = 137
          Height = 21
          ItemHeight = 13
          TabOrder = 2
          Items.Strings = (
            'Device'
            'Interface'
            'Endpoint'
            'Other')
        end
        object statusout: TEdit
          Left = 120
          Top = 64
          Width = 121
          Height = 21
          TabOrder = 3
        end
      end
    end
  end
  object showwindow: TButton
    Left = 88
    Top = 368
    Width = 81
    Height = 25
    Caption = 'Show Output'
    TabOrder = 3
    OnClick = showwindowClick
  end
  object hidewindow: TButton
    Left = 176
    Top = 368
    Width = 81
    Height = 25
    Caption = 'Hide Output'
    TabOrder = 4
    OnClick = hidewindowClick
  end
  object clearoutput: TButton
    Left = 264
    Top = 368
    Width = 97
    Height = 25
    Caption = 'Clear Output'
    TabOrder = 5
    OnClick = clearoutputClick
  end
  object OpenDialog1: TOpenDialog
    Left = 4
    Top = 336
  end
  object SaveDialog1: TSaveDialog
    Left = 36
    Top = 340
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 68
    Top = 340
  end
end