通过delphi USB控件读写数据
源代码在线查看: devreader.dfm
object MainForm: TMainForm
Left = 192
Top = 116
AutoScroll = False
Caption = 'HID Reader'
ClientHeight = 484
ClientWidth = 444
Color = clBtnFace
Constraints.MinHeight = 500
Constraints.MinWidth = 450
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnActivate = FormActivate
DesignSize = (
444
484)
PixelsPerInch = 96
TextHeight = 16
object ReadBtn: TSpeedButton
Left = 72
Top = 451
Width = 81
Height = 22
AllowAllUp = True
Anchors = [akLeft, akBottom]
GroupIndex = 1
Caption = 'Read'
OnClick = ReadBtnClick
end
object WriteBtn: TSpeedButton
Left = 160
Top = 451
Width = 81
Height = 22
AllowAllUp = True
Anchors = [akLeft, akBottom]
Caption = 'Write'
OnClick = WriteBtnClick
end
object SaveBtn: TSpeedButton
Left = 248
Top = 451
Width = 81
Height = 22
AllowAllUp = True
Anchors = [akLeft, akBottom]
Caption = 'Save'
OnClick = SaveBtnClick
end
object Label1: TLabel
Left = 41
Top = 300
Width = 64
Height = 16
Anchors = [akLeft, akRight, akBottom]
AutoSize = False
Caption = 'ReportID'
end
object InfoBtn: TSpeedButton
Left = 8
Top = 451
Width = 57
Height = 22
Caption = 'Info'
OnClick = InfoBtnClick
end
object DevListBox: TListBox
Left = -1
Top = 0
Width = 444
Height = 81
Anchors = [akLeft, akTop, akRight]
ItemHeight = 16
TabOrder = 0
OnClick = DevListBoxClick
end
object HistoryListBox: TListBox
Left = 0
Top = 84
Width = 444
Height = 205
Anchors = [akLeft, akTop, akRight, akBottom]
ItemHeight = 16
TabOrder = 1
end
object ReportID: TEdit
Left = 8
Top = 296
Width = 25
Height = 24
Anchors = [akLeft, akBottom]
TabOrder = 2
end
object Edit1: TEdit
Left = 8
Top = 328
Width = 25
Height = 24
Anchors = [akLeft, akBottom]
TabOrder = 3
end
object SaveDialog: TSaveDialog
DefaultExt = 'txt'
Filter = 'Text Files *.txt|*.txt|All Files *.*|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing, ofDontAddToRecent]
Title = 'Save History'
Left = 312
end
object HidCtl: TJvHidDeviceController
OnEnumerate = HidCtlEnumerate
OnDeviceChange = HidCtlDeviceChange
OnDeviceDataError = HidCtlDeviceDataError
Left = 368
end
end