通过delphi USB控件读写数据

源代码在线查看: devreader.dfm

软件大小: 2040 K
上传用户: wentianliang
关键词: delphi USB 控件 读写
下载地址: 免注册下载 普通下载 VIP

相关代码

				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
							

相关资源