usbio.dfm

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

object MainDlg: TMainDlg
  Left = 434
  Top = 115
  BorderStyle = bsSingle
  Caption = 'USBIO COM Interface Delphi Example'
  ClientHeight = 398
  ClientWidth = 496
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000007777777FFFFFFFFFFFF000000
    000000799999977FFFFFFFFFFF000000000007999999991FFFFFFFFFFF000000
    000079999999111FFFFFFFFFFF000000000079999911FFFFFFFFFFFFFF000000
    00007999991FFFFFFFFFFFFFFF00000000007999991FFFFCCCCCCCCCFF000000
    00007999991FFFFCCCCCCCCCCF00000000007999991FFFFFFFFFFFFFCF000000
    00007999991FFFFCCCCCCCCCCF00000000007999991FFFFCCCCCCCCCFF000000
    00007999991FFFFFFFFFFFFFFF00000000007999991FFFFFCCCFFCCCFF000000
    00007999991FFFFCCCCCFCCCCF00000000007999991FFFFCFFFCCFFFCF000000
    00007999991FFFFCCCFFCCCCCF00000000007999991FFFFFCCFFFCCCFF000000
    00007999991FFFFFFFFFFFFFFF00000000007999991FFFFCCCCCCCCCCF000000
    00007999991FFFFCCCCCCCCCCF00000000007999991FFFFCFFFCFFFFCF000000
    00007999991FFFFCCCCCCCCCCF00000000007999991FFFFFCCCFCCCCFF000000
    00007999991FFFFFFFFFFFFFFF00000000007999991FFFFFFFFFFFFFFF000000
    00007999991FFFFFFFFFFFFFFF00007777777999991111111111111FFF000799
    999999999999999999999991FF0000799999999999999999999999991F000007
    9999999999999999999999999100000077777777777777777777777777000000
    0000000000000000000000000000FFE00003FFC00003FF800003FF000003FF00
    0003FF000003FF000003FF000003FF000003FF000003FF000003FF000003FF00
    0003FF000003FF000003FF000003FF000003FF000003FF000003FF000003FF00
    0003FF000003FF000003FF000003FF000003FF000003C000000380000003C000
    0003E0000003F0000003FFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000007777FFFFFF00000
    79999FFFFFF000009991CCCCCCF00000999FFFFFFFC00000999FCCCCCCF00000
    999FFFFFFFF00000999FFCCFCCF00000999FCFFCFFC00000999FFCFFCCF00000
    999FFFFFFFF00000999FCCCCCCC00000999FCFFCFFC00000999FFCCFCCF00777
    999111111FF009999999999999F00077777777777770F8010000F0010000F001
    0000F0010000F0010000F0010000F0010000F0010000F0010000F0010000F001
    0000F0010000F00100008001000080010000C0010000}
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ErrorText: TEdit
    Left = 8
    Top = 336
    Width = 409
    Height = 21
    TabOrder = 0
  end
  object ClearError: TButton
    Left = 424
    Top = 336
    Width = 65
    Height = 25
    Caption = 'Clear Error'
    TabOrder = 1
    OnClick = ClearErrorClick
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 481
    Height = 321
    ActivePage = TabSheet1
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = 'Device'
      object GroupBox1: TGroupBox
        Left = 8
        Top = 0
        Width = 281
        Height = 113
        Caption = 'Device'
        TabOrder = 0
        object Label1: TLabel
          Left = 176
          Top = 24
          Width = 91
          Height = 13
          Caption = 'Number of Devices'
        end
        object Label2: TLabel
          Left = 176
          Top = 56
          Width = 74
          Height = 13
          Caption = 'Device Number'
        end
        object Enumerate: TButton
          Left = 16
          Top = 16
          Width = 81
          Height = 25
          Caption = 'Enumerate'
          TabOrder = 0
          OnClick = EnumerateClick
        end
        object NumberOfDevices: TEdit
          Left = 128
          Top = 16
          Width = 41
          Height = 21
          TabOrder = 1
        end
        object OpenDevice: TButton
          Left = 16
          Top = 48
          Width = 81
          Height = 25
          Caption = 'Open'
          TabOrder = 2
          OnClick = OpenDeviceClick
        end
        object DeviceNumber: TEdit
          Left = 128
          Top = 52
          Width = 41
          Height = 21
          TabOrder = 3
          Text = '0'
        end
        object CloseDevice: TButton
          Left = 16
          Top = 80
          Width = 81
          Height = 25
          Caption = 'Close'
          TabOrder = 4
          OnClick = CloseDeviceClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 124
        Width = 345
        Height = 157
        Caption = 'Driver Info'
        TabOrder = 1
        object Label3: TLabel
          Left = 80
          Top = 24
          Width = 55
          Height = 13
          Caption = 'API Version'
        end
        object Label4: TLabel
          Left = 80
          Top = 72
          Width = 66
          Height = 13
          Caption = 'Driver Version'
        end
        object Label5: TLabel
          Left = 264
          Top = 24
          Width = 61
          Height = 13
          Caption = 'Build Version'
        end
        object Label6: TLabel
          Left = 264
          Top = 72
          Width = 56
          Height = 13
          Caption = 'Driver Flags'
        end
        object DriverInfo: TButton
          Left = 224
          Top = 120
          Width = 81
          Height = 25
          Caption = 'Driver Info'
          TabOrder = 0
          OnClick = DriverInfoClick
        end
        object ApiVersion: TEdit
          Left = 8
          Top = 20
          Width = 65
          Height = 21
          TabOrder = 1
        end
        object DriverVersion: TEdit
          Left = 8
          Top = 68
          Width = 65
          Height = 21
          TabOrder = 2
        end
        object BuildVersion: TEdit
          Left = 192
          Top = 20
          Width = 65
          Height = 21
          TabOrder = 3
        end
        object DriverFlags: TEdit
          Left = 192
          Top = 68
          Width = 65
          Height = 21
          TabOrder = 4
        end
      end
      object PnPNotification: TGroupBox
        Left = 304
        Top = 0
        Width = 161
        Height = 113
        Caption = 'PnP Notification'
        TabOrder = 2
        object EnablePnPNotification: TButton
          Left = 8
          Top = 24
          Width = 137
          Height = 25
          Caption = 'Enable PnP Notification'
          TabOrder = 0
          OnClick = EnablePnPNotificationClick
        end
        object DisablePnPNotification: TButton
          Left = 8
          Top = 72
          Width = 137
          Height = 25
          Caption = 'Disable PnP Notification'
          TabOrder = 1
          OnClick = DisablePnPNotificationClick
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Descriptor'
      ImageIndex = 1
      object GroupBox3: TGroupBox
        Left = 8
        Top = 16
        Width = 185
        Height = 149
        Caption = 'String Descriptor'
        TabOrder = 0
        object Label7: TLabel
          Left = 8
          Top = 24
          Width = 59
          Height = 13
          Caption = 'String Index:'
        end
        object GetStringDesc: TButton
          Left = 8
          Top = 64
          Width = 161
          Height = 25
          Caption = 'Get String Descriptor'
          TabOrder = 0
          OnClick = GetStringDescClick
        end
        object StringDesc: TEdit
          Left = 8
          Top = 104
          Width = 161
          Height = 21
          TabOrder = 1
        end
        object StringIndex: TEdit
          Left = 136
          Top = 24
          Width = 33
          Height = 21
          TabOrder = 2
          Text = '1'
        end
      end
      object Devicedescriptorbox: TGroupBox
        Left = 8
        Top = 176
        Width = 353
        Height = 65
        Caption = 'Device Descriptor'
        TabOrder = 1
        object getdevicedescriptor: TButton
          Left = 16
          Top = 24
          Width = 121
          Height = 25
          Caption = 'Get Device Descriptor'
          TabOrder = 0
          OnClick = getdevicedescriptorClick
        end
      end
      object GroupBox11: TGroupBox
        Left = 208
        Top = 16
        Width = 153
        Height = 149
        Caption = 'Descriptor'
        TabOrder = 2
        object Label23: TLabel
          Left = 8
          Top = 48
          Width = 52
          Height = 13
          Caption = 'Desc Type'
        end
        object Label24: TLabel
          Left = 8
          Top = 80
          Width = 54
          Height = 13
          Caption = 'Desc Index'
        end
        object Label25: TLabel
          Left = 8
          Top = 112
          Width = 48
          Height = 13
          Caption = 'Desc Size'
        end
        object GetDesc: TButton
          Left = 8
          Top = 16
          Width = 121
          Height = 25
          Caption = 'Get Descriptor'
          TabOrder = 0
          OnClick = GetDescClick
        end
        object DescType: TEdit
          Left = 72
          Top = 48
          Width = 57
          Height = 21
          TabOrder = 1
          Text = '1'
        end
        object DescIndex: TEdit
          Left = 72
          Top = 80
          Width = 57
          Height = 21
          TabOrder = 2
          Text = '0'
        end
        object DescSize: TEdit
          Left = 72
          Top = 112
          Width = 57
          Height = 21
          TabOrder = 3
          Text = '4096'
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Interface'
      ImageIndex = 2
      object GroupBox4: TGroupBox
        Left = 8
        Top = 4
        Width = 313
        Height = 93
        Caption = 'Interface'
        TabOrder = 0
        object Label8: TLabel
          Left = 8
          Top = 24
          Width = 74
          Height = 13
          Caption = 'Interface Index:'
        end
        object Label9: TLabel
          Left = 8
          Top = 48
          Width = 81
          Height = 13
          Caption = 'Alternate Setting:'
        end
        object Label10: TLabel
          Left = 8
          Top = 72
          Width = 88
          Height = 13
          Caption = 'Max Transfer Size:'
        end
        object AddInterface: TButton
          Left = 176
          Top = 16
          Width = 81
          Height = 25
          Caption = 'Add Interface'
          TabOrder = 0
          OnClick = AddInterfaceClick
        end
        object DeleteInterface: TButton
          Left = 176
          Top = 48
          Width = 81
          Height = 25
          Caption = 'Del Interface'
          TabOrder = 1
          OnClick = DeleteInterfaceClick
        end
        object InterfaceIndex: TEdit
          Left = 112
          Top = 16
          Width = 41
          Height = 21
          TabOrder = 2
          Text = '0'
        end
        object AlternateSetting: TEdit
          Left = 112