Ich habe mehrere Microcontroller mit einem einfachen HID-Protokoll ausgestattet um zum Beispiel Konfigurationen oder Bios-Updates darüber zu machen. Seit der letzten Windows 10 Version 1809 funktioniert leider die JVCL HID-Komponente nicht mehr: "Device cannot be opened". Ich nehme an, dass es von der JVCL-Library keine Updates mehr geben wird. Gibt es denn eventuell einen Workaround oder Patch, damit diese Lib unter dem neuen Windows läuft? Oder hat Windows 1809 einen Bug in der hidclass.sys? Leider gibt es im Netz keine konkreten Aussagen hierzu.

Kann jemand helfen?
E.R.

Kann das Problem bestätigen. Ich hab sogar noch ein altes Testprojekt von mir gefunden, das diese Klasse verwendet.
Unter 1809 bekomme ich auch die EControllerError-Exception mit 'Device cannot be opened', sobald OnDeviceChange aufgerufen wird.
Ausgelöst wird das in TJvHidDevice.CtlCreate, weil die CreateFile-Aufrufe fehlschlagen.
Vielleicht wurden da Rechte in Windows verschärft? Die Version meiner JvHidControllerClass-Unit entspricht diesem Stand:
https://github.com/project-jedi/jvcl...ollerClass.pas

Anbei noch das Testprojekt zum nachvollziehen.
Wäre interessant, wenn jemand das auf älteren Windows 10 Versionen gegentesten könnte:

Auf 1803 läuft das einwandfrei.

Hier wurde das auch schon diskutiert:
https://stackoverflow.com/questions/...windows-10-180

Nur wie kann man das auf die JvHidControllerClass übertragen?

Ah, der Workaround lässt sich einfach umsetzen.

Füge die Unit JvHidControllerClass zu deinen Projekt hinzu und ersetze die ursprüngliche TJvHidDevice.CtlCreate mit folgenden Workaround:

zusammenfalten · markieren

Delphi-Quellcode:

constructor TJvHidDevice.CtlCreate(const APnPInfo: TJvHidPnPInfo; const Controller: TJvHidDeviceController);
var
  LDevicePath: string; // für Workaround
begin
  inherited Create;

  // initialize private data
  FMyController := Controller;
  FIsPluggedIn := True;
  FIsCheckedOut := False;
  FIsEnumerated := False;
  FHidOverlappedRead := INVALID_HANDLE_VALUE;
  FHidOverlappedWrite := INVALID_HANDLE_VALUE;
  FVendorName := '';
  FProductName := '';
  FPreparsedData := nil;
  SetLength(FPhysicalDescriptor, 0);
  FSerialNumber := '';
  FLanguageStrings := TStringList.Create;
  FNumInputBuffers := 0;
  FNumOverlappedBuffers := 0;
  SetLength(FLinkCollection, 0);
  FMaxDataListLength := 0;
  FMaxUsageListLength := 0;
  FMaxButtonListLength := 0;
  FReportTypeParam := HIDP_Input;
  FPollingDelayTime := Controller.DevPollingDelayTime;
  FThreadSleepTime := Controller.DevThreadSleepTime;
  FUsagePageParam := 0;
  FLinkCollectionParam := 0;
  FUsageParam := 0;
  FDataThread := nil;
  OnData := Controller.OnDeviceData;
  OnUnplug := Controller.OnDeviceUnplug;

  // https://stackoverflow.com/questions/53761417/createfile-over-usb-hid-device-fails-with-access-denied-5-since-windows-10-180
  // Beginn des Workarounds
  if APnPInfo.DevicePath.EndsWith('\kbd') then
  begin
    LDevicePath := APnPInfo.DevicePath.Remove(APnPInfo.DevicePath.IndexOf('\kbd'));
  end else
    LDevicePath := APnPInfo.DevicePath;
  // Ende des Workarounds

  FHidFileHandle := CreateFile(PChar(LDevicePath), GENERIC_READ or GENERIC_WRITE,
    FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
  FHasReadWriteAccess := HidFileHandle <> INVALID_HANDLE_VALUE;
  // Win2000 hack
  if not HasReadWriteAccess then
    FHidFileHandle := CreateFile(PChar(LDevicePath), 0,
      FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
  if HidFileHandle <> INVALID_HANDLE_VALUE then
  begin
    FAttributes.Size := SizeOf(THIDDAttributes);
    if not HidD_GetAttributes(HidFileHandle, FAttributes) then
      raise EControllerError.CreateRes(@RsEDeviceCannotBeIdentified);
  end
  else
    raise EControllerError.CreateRes(@RsEDeviceCannotBeOpened);
  FPnPInfo := APnPInfo;
  // the file is closed to stop using up resources
  CloseFile;
end;

Mit der Änderung könntest du natürlich auch die JCL und JVCL neu bauen. Dann spart man sich das Hinzufügen zum Projekt.

Das war es leider nicht. Aber nach längerem Debuggen habe ich nun die Ursache gefunden.

Es ist genau diese Zeile, die den Fehler verursacht:

markieren

Code:

if not HidD_GetAttributes(HidFileHandle, FAttributes) then
      raise EControllerError.CreateRes(@RsEDeviceCannotBeIdentified);

Die Funktion "HidD_GetAttributes" liefert unter 1809 anscheinend immer einen Wert = 0. Wenn man den Rückgabewert einfach ignoriert, funktioniert das Ganze.

markieren

Code:

HidD_GetAttributes(HidFileHandle, FAttributes);

Grüße aus Berlin,
Erwin

Welchen Wert hat denn das Handle, wenn die if-Abfrage fehlschlägt?