如何使用Delphi与Usb设备进行通讯.docVIP

下面是访问 USB 设备的类单元文件： { Usb通讯操作助手 Date: 2008-7-10 Version: 1.0 Author: zlz (47953@163.com) } unit TUsbUtil_U; interface uses Windows, Messages, SysUtils, Variants, Classes, StdCtrls,Dialogs,SetupApi; const MAX_PATH = 260; //文件名最大长度 MAX_DATA_BUFFER = 1024; //缓冲区大小 Type //数据缓存 TDataBuffer = record DataBuffer:array[0..MAX_DATA_BUFFER] of byte; //缓存数据 DataSize :Integer; //缓存数据长度 end; //串口操作助手 TUsbUtil = class(TObject) public function Open(usbguid:String) :boolean; //打开USB设备 procedure Close(); //关闭USB设备 procedure WriteBytes(bs:TDataBuffer); //向USB设备发送字节数组 function ReadBytes():TDataBuffer; //从USB设备读取数据 private hUsbHandle : THandle; //打开一个设备 function OpenOneDevice(hDvcInfo:HDEVINFO; DvcInfoData:PSPDeviceInterfaceData ; sDevNameBuf:pchar) :THandle; //打开指定的USB设备 function OpenUsbDevice(pGuid :TGUID; sDevNameBuf :pchar):THandle; end; implementation { TUsbUtil } procedure TUsbUtil.Close; begin CloseHandle(hUsbHandle); end; function TUsbUtil.Open(usbguid: String): boolean; var DeviceName: array[0..MAX_PATH] of char; USB_GUID : TGUID; begin Result := false; USB_GUID := StringToGuid({ + usbguid + }); hUsbHandle := OpenUsbDevice(USB_GUID, DeviceName); if (hUsbHandle = INVALID_HANDLE_VALUE) then begin raise Exception.Create(无法打开指定的USB设备); end; Result := True; end; function TUsbUtil.OpenOneDevice(hDvcInfo: HDEVINFO; DvcInfoData: PSPDeviceInterfaceData; sDevNameBuf: pchar): THandle; var iReqLen :pdword; iDevDataLen : DWord; pDevData : PSPDeviceInterfaceDetailDataA ; hOut: THandle; begin hOut := INVALID_HANDLE_VALUE; iReqLen := pdword(integer(0)); SetupDiGetDeviceInterfaceDetail(hDvcInfo,DvcInfoData, nil, 0, @iReqLen, ni