Ermittlung der Gerätepfadnamen von USB HIDs klappt nicht.

[Holger]

Klar, denn Drucker sind keine HIDs (Human Interface Device).
Alles, was nicht dem HID Standard entspricht, braucht eigene Treiber und wird nicht als HID erkannt.
Der Name "HID" ist eigentlich irreführend, weil die HID Spezifikation Control- und Interrupttransfers unterstützt und die Übertragungsrate max. 64000 Bytes/sek bei Fullspeed erlaubt. Pro Transfer kann man einen Block von bis zu 64 Bytes senden oder empfangen. Damit braucht es nicht unbedingt ein Eingabegerät zu sein - die Funktion ist völlig egal, Hauptsache, man hält sich an die HID Spezifikation.
Und das Beste - man braucht keine eigenen Treiber, denn die sind schon in Windows integriert.

[ts-soft]

Dann gibts ja Hoffnung, das Du bald mal was im Hardware-Forum postest

[Holger]

Ja, hoffe ich auch, wenn ich die Firmware hinbekommen habe

Aber im Code ist noch ein anderes Problem aufgetaucht.
ReadFile_() und WriteFile_() funktioniert mit HIDs nur, wenn im CreateFile_() die beiden Konstanten #GENERIC_READ / #GENERIC_WRITE definiert werden.
Anscheinend werden aber nur dann USB Mäuse erkannt, wenn #GENERIC_READ NICHT! angegeben wird. Auch bei meiner Maus mußte ich #GENERIC_READ löschen, damit der Code nicht abstürzt.
Mit dem Joystick funktioniert es aber und ich kann mit ReadFile_() die Werte lesen.
Hat jemand eine Ahnung, warum Mäuse nur OHNE #GENERIC_READ erkannt werden ?
Ist ja witzlos, wenn man keine Daten von der Maus empfangen kann, weil #GENERIC_READ gelöscht werden muß, um ein Handle für die Maus zu bekommen ...

[kayfr72]

Habe das Listing von Holger mal ausprobiert. Bei mir beendet das Programm ohne Debuggerausgabe. Nach dem ich mir das Listing angeschaut habe,sah ich das da ein BREAK-Befehl steht und das deshalb das Proggi endete. Nach entfernen des Break bekam ich eine Fehlermeldung beim Befehl DevicePathName.s=PeekS(@DetailDataBuffer(4)) . Für was ist das Break? Und wie bekommt man das Proggi zum Laufen.

[ossy]

Nur zur Info:

diese HID.DLL erkennt nur die USB-HID Geräte.

Z.B.: USB-Maus, USB-Tastatur u.s.w.

Aber keine Drucker und keine Geräte die einen eigenen Treiber besitzen.

[HeX0R]

Du gräbst einen drei Jahre alten Thread hervor, nur um das selbe zu sagen, wie Holger bereits vor vier Jahren (vier Beiträge über dir)?

[ossy]

Hallo,

ich beschäftige mich gerade mit der USB HID.dll um einen Microcontroller
am USB anzuschliesen.
Ohne eine fremde DLL zu benützen.

Deswegen bin ich hier rein geschlittert.

[ossy]

Hallo HeX0R,

habe ich wohl übersehen.

Aber ich war von dem Beispielprogramm von Holger so begeistert, das ich hier was reinschreiben musste.

Das Programm von Holger hat mir sehr geholfen. Mit dem Programm ist es mir zum erstenmal gelungen, die Verbindung zwischen meinem PIC und dem Computer herzustellen.

[Sundance]

Hallo zusammen,

nach fünf Jahren grabe ich diesen Thread auch nochmal aus. Ich denke das ist legitim, da meine Frage auf dem hier geposteten Code beruht.

Also ich möchte eine Liste aller Volumes eines Gerätes ausgeben. Ich habe den hier angegebenen Code in ein Modul gepackt. Wenn ich die Funktion SetupDiGetDeviceInterfaceDetailA aufrufe und mit den Standard Compiler Einstellungen aufurfe, erhalte ich die entsprechende Liste.
Wenn ich jedoch versuche UniCode zu erstellen und dann die Funktion mit SetupDiGetDeviceInterfaceDetailW aufrufe erhalte ich zwar eine Angabe der required size aber der Gerätepfadname ist leer. Ich denke das hängt mit dem RtlMoveMemory und PeekS zusammen. Ist mir aber nicht ganz so klar. Vielleicht kann einer von euch einen kurzen Blick drauf werfen?

Code: Alles auswählen

DeclareModule SetupDiGetVolumeNames
	
	Declare GetVolumeNames(List VolumeNames.s())
	
EndDeclareModule


Module SetupDiGetVolumeNames
	
	Declare String2GUID(Gstring.s, *Identifier.GUID)
	
	Procedure GetVolumeNames(List VolumeNames.s())
		
		ClearList(VolumeNames())
		
		OpenLibrary(1,"setupapi.dll")
		
		StringGuid.s
		
		VolGuid.GUID
		String2GUID("53F5630D-B6BF-11D0-94F2-00A0C91EFB8B", @VolGuid)
		
		*DeviceInfoSet=CallFunction(1,"SetupDiGetClassDevsA",VolGuid,0,0,#DIGCF_PRESENT | #DIGCF_DEVICEINTERFACE)
		
		Structure SP_DEVICE_INTERFACE_DETAIL_DATA
			cbSize.l
			DevicePath.b
		EndStructure
		
		DeviceInterfaceData.SP_DEVICE_INTERFACE_DATA
		DeviceInterfaceDetailData.SP_DEVICE_INTERFACE_DETAIL_DATA
		
		MemberIndex.l=0
		
		Repeat
			
			DeviceInterfaceData\cbSize=SizeOf(SP_DEVICE_INTERFACE_DATA)
			
			If CallFunction(1,"SetupDiEnumDeviceInterfaces",*DeviceInfoSet,0,VolGuid,MemberIndex,DeviceInterfaceData)=0
				Break
			EndIf
			
			RequiredSize.l
			
			CallFunction(1,"SetupDiGetDeviceInterfaceDetailW",*DeviceInfoSet,@DeviceInterfaceData,0,0,@RequiredSize,0)
			; Debug "Erster SetupDiGetDeviceInterfaceDetailA() Aufruf: RequiredSize= "+Str(RequiredSize)
			
			DetailData=RequiredSize
			DeviceInterfaceDetailData\cbSize=SizeOf(SP_DEVICE_INTERFACE_DETAIL_DATA)
			
			Dim DetailDataBuffer.b(RequiredSize)
			
			RtlMoveMemory_(@DetailDataBuffer(0),@DeviceInterfaceDetailData\cbSize,4)
			
			CallFunction(1,"SetupDiGetDeviceInterfaceDetailW",*DeviceInfoSet,@DeviceInterfaceData,@DetailDataBuffer(0),DetailData,@RequiredSize,0)
			
			Debug "Required Size: " + Str(RequiredSize)
			DevicePathName.s=PeekS(@DetailDataBuffer(4))
			Debug "Gerätpfadname: "+DevicePathName
			
			If FindString(UCase(DevicePathName), "VOLUME")
				FirstBracketPos = FindString(DevicePathName,"{")
				SecondBracketPos = FindString(DevicePathName,"}")
				StringGuid = Mid(DevicePathName, FirstBracketPos, SecondBracketPos-FirstBracketPos+1)
				AddElement(VolumeNames())
				VolumeNames() = "\\?\Volume" + StringGuid + "\"
			EndIf
			
			
			
			MemberIndex=MemberIndex+1
		ForEver
		
		CallFunction(1,"SetupDiDestroyDeviceInfoList",*DeviceInfoSet)
		CloseLibrary(1)
		
	EndProcedure
	
	Procedure String2GUID(Gstring.s, *Identifier.GUID)
		
		; 	Protected Bytes.c(32)
		Protected Counter.a
		
		Gstring = ReplaceString(Gstring,"{","")
		Gstring = ReplaceString(Gstring,"}","")
		Gstring = ReplaceString(Gstring,"-","")
		
		If Len(Gstring) <> 32 :	ProcedureReturn #Null : EndIf
		
		*Identifier\Data1 = Val("$" + Mid(Gstring,1,8))
		*Identifier\Data2 = Val("$" + Mid(Gstring,9,4))
		*Identifier\Data3 = Val("$" + Mid(Gstring,13,4))
		*Identifier\Data4[0] = Val("$" + Mid(Gstring,17,2))
		*Identifier\Data4[1] = Val("$" + Mid(Gstring,19,2))
		*Identifier\Data4[2] = Val("$" + Mid(Gstring,21,2))
		*Identifier\Data4[3] = Val("$" + Mid(Gstring,23,2))
		*Identifier\Data4[4] = Val("$" + Mid(Gstring,25,2))
		*Identifier\Data4[5] = Val("$" + Mid(Gstring,27,2))
		*Identifier\Data4[6] = Val("$" + Mid(Gstring,29,2))
		*Identifier\Data4[7] = Val("$" + Mid(Gstring,31,2))
	EndProcedure
	
EndModule


NewList VolNames.s()
SetupDiGetVolumeNames::GetVolumeNames(VolNames())

Debug "Es wurden " + ListSize(VolNames()) + " volumes gefunden."
FirstElement(VolNames())
If ListSize(VolNames()) : Debug VolNames() : EndIf

Vielen Dank
Sundance

[NicTheQuick]

Versuch mal bei 'PeekS()' den letzten Parameter zu nutzen und dort '#PB_Ascii' anzugeben, also 'PeekS(..., -1, #PB_Ascii)'.
Ansonsten kann ich es hier unter Linux eh nicht testen.