XProfan

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 3 -

Paul
Glatz

qui "1995378067" dans hScanner& est un Handle sur cela Gerät et wird sich entre Programme- ou bien Computerneustarts changement.
qui Gerätename (\\?\HID#VID_????&PID_????...) sollte konstant rester.

Mir ist aucun Possibilité bekannt la valeur anzuzeigen. mais qui VID/PID sieht on aussi im Geräte-Manager sous "Hardware-IDs".

XProfan X3

- page 2 -

Paul
Glatz

Hatte J'ai oublié. Habe den Télécharger maintenant hinzugefügt.

XProfan X3

Erasmus.Herold

Sieht ensuite so aus ...

- page 3 -

Erasmus.Herold

Hinweis:

Derzeit ist es so, égal, si je dessus ne...aucune (!) USB Device auswähle, si je qui clavier wähle, ou bien den USB Scanner ....

... si je sur clavier une Eingabe fais, erscheint qui ASCII Code sans dass qui Cursor blinken muss.

qui Erfassung ist alors bien (weil blind), mais es wird encore pas sur un festes USB Device fixiert.

Salut et Dank

rawinput-2019-05-06-12-26-56.mp4

Paul
Glatz

qui RawInput Meldungen habe je avant dem Filtern ausgegeben.

ici nochmal une neue Version, qui chez meinen Tests zuverlässiger sur den Scanner reagiert.

Herunterladen

ici encore un Video, comme marcher soll: Herunterladen

qui neue Version zeigt RawInput Meldungen seulement encore pour cela gewählte Gerät.

rawinput.prf

4 kB

Hochgeladen:

06.05.2019

Downloadcounter:

Herunterladen

7.482 kB

Hochgeladen:

06.05.2019

Downloadcounter:

Herunterladen

Erasmus.Herold

avec Video? entier großes cinéma!!!

mon Ergebnis:
je wähle eh bien meinen USB Scanner.
fais une Eingabe.
Pour dem "Enter" des Scanners venons qui données.
Zuletzt qui gesamte String.

cela sieht déjà la fois très bien aus.
comme nächstes teste je cela la fois avec einem USB (HID) RFID-Reader.

prochain Rückmeldung folgt.

Erasmus.Herold

... et wieder une Schritt plus.

mon Video avec ausgelesenen RFID Tags findest du ici: [...]

Erasmus.Herold

je bastle à deinem Code rum et minimiere mir la fois, quoi il me faut.
cela Ergebnis gibt es ensuite später zurück.

hScanner& nimmt chez mir pour den angeschlossenen USB Scanner den
Wert 1995378067 à. par-dessus peux je cela Gerät fix auslesen.

peux je diesem Wert aussi indépendant de XProfan pour qui Zuweisung
sous Windows trouver ou bien erkennen?

but wäre une feste Vorgabe des USB Ports et pas qui sélection aller

Paul
Glatz

XProfan X3

H.Brill

wow, sieht oui déjà la fois bien aus.
peut-être la fois dans qui Registry Ausschau tenir : [...]

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

Erasmus.Herold

Prima.

1. ensuite werde Je l' Scanner demain la fois sur seinen fest definierten Gerätenamen saisir ...

2. ... et qui EANs dans einer Listbox ramasser.

mon Rückmeldung wird folgen.

merci Euch.

Kompilieren Marque Séparation

Erasmus.Herold

Anbei eh bien la fois mon angepasster Test-Quellcode avec fest vorgegebenem USB Anschluss. cela Lecture via Barcode-Scanner et RFID Reader (siehe Video plus dessus) funktioniert super.

dans qui prochain Stufe folgt eh bien qui Implementierung ins "RFID Management Studio". Weitere Rückmeldung wird folgen. merci !!!

Titre de la fenêtre "RawInput"
Fenêtre 1000, 600
SubClass %HWnd, 1
'=======================================================================================================================================================
'=== VARIABLEN DEKLARIEREN =============================================================================================================================
'=======================================================================================================================================================
Struct RAWINPUTDEVICE = usUsagePage%, usUsage%, dwFlags&, hwndTarget&
Struct RAWINPUTKEYBOARD = dwType&, dwSize&, hDevice&, wParam&, MakeCode%, Flags%, Reserved%, VKey%, Message&, ExtraInformation&
Def RegisterRawInputDevices(3) !"User32", "RegisterRawInputDevices"
Def GetRawInputData(5) !"User32", "GetRawInputData"
Def GetRawInputDeviceList(3) !"User32", "GetRawInputDeviceList"
Def GetRawInputDeviceInfoA(4) !"User32", "GetRawInputDeviceInfoA"
Déclarer hScanner&, CodeStatus%, CodeFocus&, hDev&
Déclarer HID_Geraet_Nr&, HID_Geraet_temporaere_ID&, counter&
// RawInput registrieren
Déclarer rid#
Faible rid#, RAWINPUTDEVICE
rid#.usUsagePage% = 1// RegisterRawInputDevices
rid#.usUsage% = 6// Keyboard
rid#.dwFlags& = 0// $30 /* RIDEV_NOLEGACY */
rid#.hwndTarget& = %hwnd

Si non RegisterRawInputDevices(rid#, 1, SizeOf(rid#))

    MessageBox("RawInput konnte pas registriert volonté " + Hex$(%WinError), », 0)

EndIf

HID_Geraet_Nr& = 1
'=======================================================================================================================================================
'=== PROCEDUREN ANLEGEN ================================================================================================================================
'=======================================================================================================================================================

Proc AddDevices_USB

    Paramètres hList&
    Déclarer numDevices&, devices#, hDevice&
    GetRawInputDeviceList(0, Addr(numDevices&), 8)

    Si numDevices& = 0

        Retour

    EndIf

    Faible devices#, numDevices& * 8
    GetRawInputDeviceList(devices#, Addr(numDevices&), 8)
    counter& = 1

    WhileLoop 0,numDevices& - 1

        Si Long(devices#, (&Boucle * 8) + 4) = 1/* RIM_TYPEKEYBOARD */

            hDevice& = Long(devices#, &Boucle * 8)
            AddStrings(hList&, GetDeviceName_USB(hDevice&) + "|" + Str$(hDevice&))
            // ALLE USB-PORTS ANZEIGEN
            imprimer "benutzte USB-Ports: ", GetDeviceName_USB(hDevice&) + "|" + Str$(hDevice&)

            si (counter& = HID_Geraet_Nr&)

                HID_Geraet_temporaere_ID& = hDevice&

            endif

            counter& = counter& + 1

        EndIf

        // ALLE USB-PORTS ANZEIGEN
        'imprimer "alle USB-Ports: ", GetDeviceName_USB(hDevice&)

    Endwhile

    // GEWÄLTE TEMPORÄRE HID ID ANZEIGEN
    imprimer : imprimer "benutzt wird cet temporäre HID ID [" + str$(HID_Geraet_Nr&) + "]: " + str$(HID_Geraet_temporaere_ID&)

ENDPROC

Proc GetDeviceName_USB

    Paramètres hdev&
    Déclarer buf#, len&
    GetRawInputDeviceInfoA(hdev&, $20000007  0, Addr(len&))/* RIDI_DEVICENAME */

    Si len& = 0

        Retour »

    EndIf

    Faible buf#, len&
    GetRawInputDeviceInfoA(hdev&, $20000007  buf#, Addr(len&))/* RIDI_DEVICENAME */
    'imprimer "hdev: ", hdev&
    'imprimer "Add: ", GetDeviceName_USB(hDevice&)
    Retour String$(buf#, 0)

ENDPROC

SubClassProc

    // qui Procédure, trop qui beim Subclassing alle Messages umgeleitet volonté,
    // pour en la fenêtre bzw, Dialogelement cela Subclassing eingeschaltet ist.

    Si SubClassMessage(%hWnd, $00ff/* WM_INPUT */

        Déclarer raw#
        Faible raw#, RAWINPUTKEYBOARD
        Var size& = SizeOf(raw#)

        Si non GetRawInputData(&sLParam, $10000003  raw#, addr(size&), 16) == -1/* RID_INPUT */

            Si (raw#.hDevice& = HID_Geraet_temporaere_ID&) AND ((raw#.flags% & 1  = 0)/* RI_KEY_BREAK */

                'SetText hLog&, GetText$(hLog&) + "RawInput: Gerät: " + Str$(raw#.hDevice&) + " bouton: " + Str$(raw#.VKey%) + " Flags: " + Str$(raw#.flags%) + "\n"

                Si non GetFocus(hCode&)

                    CodeFocus& = %GetFocus
                    SetFocus(hCode&)
                    SetText hCode&, »

                EndIf

                Si (raw#.VKey% = 13) OU (raw#.VKey% = 9)// scancode 13 = Enter  9 = Tab

                    SetMenuItem 1234

                EndIf

            EndIf

        EndIf

    EndIf

ENDPROC

'=======================================================================================================================================================
'=== HAUPTPROGRAMM =====================================================================================================================================
'=======================================================================================================================================================
'hDev& = Créer("ChoiceBox", %hwnd, 1, 5, 25, Width(%hwnd) - 10, 300)
// USB DEVICES ERMITTELN
AddDevices_USB hDev&
Var hCode& = Créer("Edit", %hwnd, », 2000, 2000, 0, 0)// Verstecktes Textfeld pour Barcodeeingabe
Var hLog& = Créer("MultiEdit", %hwnd, », 5, 120, Width(%hwnd) - 10, Height(%hwnd) - 125)
// Hauptschleife

Tandis que 1

    WaitInput

    Si Clicked(hDev&)

        hScanner& = Val($ Substr(GetText $(hDev&), 2, "|"))

    ElseIf %MenuItem = 1234

        SetFocus(CodeFocus&)
        CodeFocus& = 0
        SetText hLog&, GetText $(hLog&) + "Barcode gelesen: " + GetText $(hCode&) + "\n"

    EndIf

Endwhile

08.05.2019 ▲