Ну раз реально такой напряг с поиском в инете, то вот вам рабочий код, использующий WinAPI для работы с USB HID.
Код: Выделить всё
Structure HIDD_ATTRIBUTES
Size.l
VendorID.u
ProductID.u
VersionNumber.u
EndStructure
Structure PSP_DEVICE_INTERFACE_DETAIL_DATA
cbSize.l
CompilerIf #PB_Compiler_Processor = #PB_Processor_x64
DevicePath.l ; Для x64 платформы.
CompilerElse
DevicePath.c ; Для x86 платформы.
CompilerEndIf
EndStructure
Prototype ProtoHidD_GetHidGuid(*HidGuid.GUID)
Prototype ProtoHidD_GetAttributes(*HidDeviceObject, *Attributes.HIDD_ATTRIBUTES)
Prototype ProtoHidD_GetPreparsedData(*HidDeviceObject, *PreparsedData)
Prototype ProtoHidD_GetFeature(HidHandle, *Buffer, Len)
Prototype ProtoHidD_SetFeature(HidHandle, *Buffer, Len)
Prototype ProtoSetupDiEnumDeviceInterfaces(*DeviceInfoSet, DeviceInfoData.l, *InterfaceClassGuid.GUID, MemberIndex.l, *DeviceInterfaceData.SP_DEVICE_INTERFACE_DATA)
Prototype ProtoSetupDiGetDeviceInterfaceDetail(*DeviceInfoSet, *DeviceInterfaceData.SP_DEVICE_INTERFACE_DATA, DeviceInterfaceDetailData.l, DeviceInterfaceDetailDataSize.l, *RequiredSize, *DeviceInfoData)
hid_Lib=OpenLibrary(#PB_Any, "hid.dll")
Setupapi_Lib=OpenLibrary(#PB_Any, "setupapi.dll")
Global HidD_GetHidGuid.ProtoHidD_GetHidGuid=GetFunction(hid_Lib, "HidD_GetHidGuid")
Global HidD_GetAttributes.ProtoHidD_GetAttributes=GetFunction(hid_Lib, "HidD_GetAttributes")
Global HidD_GetPreparsedData.ProtoHidD_GetPreparsedData=GetFunction(hid_Lib, "HidD_GetPreparsedData")
Global HidD_GetFeature.ProtoHidD_GetFeature=GetFunction(hid_Lib, "HidD_GetFeature")
Global HidD_SetFeature.ProtoHidD_SetFeature=GetFunction(hid_Lib, "HidD_SetFeature")
Global SetupDiEnumDeviceInterfaces.ProtoSetupDiEnumDeviceInterfaces=GetFunction(Setupapi_Lib, "SetupDiEnumDeviceInterfaces")
Global SetupDiGetDeviceInterfaceDetail.ProtoSetupDiGetDeviceInterfaceDetail=GetFunction(Setupapi_Lib, "SetupDiGetDeviceInterfaceDetailA")
Procedure HID_OpenDevice(PID.w, VID.w, VersionNumber.w, Index.w) ; Получение доступа к HID устройству
HidGuid.Guid
devInfoData.SP_DEVICE_INTERFACE_DATA
devInfoData\cbSize = SizeOf(SP_DEVICE_INTERFACE_DATA)
Length.l = 0
CurrentIndex.w=0
Attributes.HIDD_ATTRIBUTES
Security.SECURITY_ATTRIBUTES
Security\nLength=SizeOf(SECURITY_ATTRIBUTES)
Security\bInheritHandle=1
Security\lpSecurityDescriptor = 0
HidD_GetHidGuid(@HidGuid)
hDevInfo=SetupDiGetClassDevs_(@HidGuid,0,0, #DIGCF_PRESENT|#DIGCF_DEVICEINTERFACE)
If hDevInfo=0
ProcedureReturn 0
EndIf
LastDevice = #False
For i=0 To 255
MyDeviceDetected=#False
Result=SetupDiEnumDeviceInterfaces(hDevInfo, 0, @HidGuid, i, @devInfoData)
If Result
Result = SetupDiGetDeviceInterfaceDetail(hDevInfo, @devInfoData, 0, 0,@Length, 0)
*detailData.PSP_DEVICE_INTERFACE_DETAIL_DATA=AllocateMemory(Length)
*detailData\cbSize=SizeOf(PSP_DEVICE_INTERFACE_DETAIL_DATA)
Result = SetupDiGetDeviceInterfaceDetail(hDevInfo, @devInfoData, *detailData, Length+1, @Required, 0)
DevicePath.s=PeekS(@*detailData\DevicePath)
FreeMemory(*detailData)
DeviceHandle=CreateFile_(@DevicePath, #GENERIC_READ|#GENERIC_WRITE, #FILE_SHARE_READ|#FILE_SHARE_WRITE, @Security, #OPEN_EXISTING, 0, 0)
If DeviceHandle>0
Attributes\Size = SizeOf(HIDD_ATTRIBUTES)
Result = HidD_GetAttributes(DeviceHandle, @Attributes)
If Attributes\ProductID=PID And Attributes\VendorID=VID And (Attributes\VersionNumber=VersionNumber Or VersionNumber=-1 )
If CurrentIndex=Index
SetupDiDestroyDeviceInfoList_(hDevInfo)
ProcedureReturn DeviceHandle
Else
CurrentIndex+1
CloseHandle_(DeviceHandle)
EndIf
Else
CloseHandle_(DeviceHandle)
EndIf
EndIf
Else
Break
EndIf
Next i
SetupDiDestroyDeviceInfoList_(hDevInfo)
ProcedureReturn 0
EndProcedure
Procedure HID_CloseDevice(DeviceHandle) ; Закрытие HID устройства.
If DeviceHandle
ProcedureReturn CloseHandle_(DeviceHandle)
Else
ProcedureReturn 0
EndIf
EndProcedure
Procedure HID_WriteDevice(DeviceHandle, *buffer, LenBuffer) ; Запись данных в HID устройство
If DeviceHandle=0 Or *buffer=0 Or LenBuffer<=0
ProcedureReturn 0
EndIf
Written.l=0
Result=WriteFile_(DeviceHandle, *buffer, LenBuffer, @Written, 0)
ProcedureReturn Written
EndProcedure
Procedure HID_ReadDevice(DeviceHandle, *buffer, LenBuffer) ; Чтение данных из HID устройства
If DeviceHandle=0 Or *buffer=0 Or LenBuffer<=0
ProcedureReturn 0
EndIf
Written.l=0
Result=ReadFile_(DeviceHandle, *buffer, LenBuffer, @Written, 0)
ProcedureReturn Written
EndProcedure
Procedure HID_GetFeature(DeviceHandle, *buffer, LenBuffer)
If DeviceHandle And *buffer And LenBuffer>0
ProcedureReturn HidD_GetFeature(DeviceHandle, *buffer, LenBuffer)
Else
ProcedureReturn 0
EndIf
EndProcedure
Procedure HID_SetFeature(DeviceHandle, *buffer, LenBuffer)
If DeviceHandle And *buffer And LenBuffer>0
ProcedureReturn HidD_SetFeature(DeviceHandle, *buffer, LenBuffer)
Else
ProcedureReturn 0
EndIf
EndProcedure
Тестирование кода, включение и отключение режима программирования в программаторе PICkit 2, который является USB HID устройством.
Код: Выделить всё
#USB_PID = $33 ; Идентификаторы программатора PicKit 2
#USB_VID = $4D8
#PK_PACKET_SIZE = 65
Procedure VddOn(Handle) ; Включить питание
Dim OutBuffer.b(#PK_PACKET_SIZE+2)
OutBuffer(0)=0
OutBuffer(1)=$A6 ; EXECUTE_SCRIPT
OutBuffer(2)=2
OutBuffer(3)=$FC ; _VDD_GND_OFF
OutBuffer(4)=$FF ; _VDD_ON
ProcedureReturn HID_WriteDevice(Handle, @OutBuffer(), #PK_PACKET_SIZE)
EndProcedure
Procedure VddOff(Handle) ; Выключить питание
Dim OutBuffer.b(#PK_PACKET_SIZE+2)
OutBuffer(0)=0
OutBuffer(1)=$A6 ; EXECUTE_SCRIPT
OutBuffer(2)=2
OutBuffer(3)=$FE ; _VDD_OFF
OutBuffer(4)=$FD ; _VDD_GND_ON
ProcedureReturn HID_WriteDevice(Handle, @OutBuffer(), #PK_PACKET_SIZE)
EndProcedure
Handle=HID_OpenDevice(#USB_PID, #USB_VID, -1, 0) ; Установка связи с PicKit 2
If Handle
VddOn(Handle) ; Включить питание программируемого МК
Delay(1000) ; Пауза, равная 1000 миллисекунд
VddOff(Handle) ; Выключить питание программируемого МК
HID_CloseDevice(Handle) ; Разыв связи с PicKit 2
Else
MessageRequester("PicKit 2 Test", "Нет связи с PicKit2!", 48)
EndIf
которую предоствляет мне интерфейс.
