Échange via une liaison USB

Il faut certainement "jouer" avec l'événement OnDeviceData :

Citation:

---

There are two important events that are exposed by the JvHidDeviceController component.

OnEnumerate: This is triggered when a HID device is inserted or removed from the computer. This event provides an opportunity to store a handle to the device we wish to communicate with.

OnDeviceData: Triggered when the device sends data to the PC. When a handle is stored in the Enumerate event, a procedure can be associated with this event.

---

sinon il y a un exemple d'utilisation du composant TJvHidDeviceController ici ( 1 ère réponse)
A noter que dans les commentaires de cette réponse il y a :

Citation:

---

Thanks, But the readfile command make the program freeze, and its still not reaching the device. –
Grant
Nov 24, 2011 at 19:17
Remove the ReadFile line. Add an OnDeviceData method and output size to some text label. Please tell us more about the device and state output data size and input data size. –
LU RD
Nov 24, 2011 at 21:10

---

[EDIT] Voir ici aussi où il y a un exemple d'utilisation de la fonction HidReadWrite mais je crois que dans l'exemple c'est plutôt pour une écriture. Le mieux serait de poser ton problème dans ce forum. DonAlfredo intervient souvent dans ce forum.

Ce matin, je me suis fait la réflexion que si ma station ne me répondait rien, c'était peut-être qu'elle attendait un ordre.

J'ai repris l'application que j'avais jointe dans mon poste "17 et j'y ai ajouté une instrruction "Write" :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var Device: PHidDevice; I, J, NumW, NumR: Integer; Buffer: array[0..31] of Byte;   begin ... Memo1.Append('device is open, now going to read data from it'); ... NumW:= Device.Write(Buffer, SizeOf(Buffer)); NumR := Device.ReadTimeout(Buffer, SizeOf(Buffer), 5000); Memo1.Append('closing device'); Device.Close; end;

---

Ne sachant pas quoi écrire, j'ai envoyé le buffer vide et j'ai eu pour réponse : NumW = 9 et toujours NumR = 0. Or, cette valeur de 9, je la retrouve dans le rapport de l'application "FpsUsbHidConsole" :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

INFO: Devices change !! New device that has not been checked out. Device arrival. VID: 6465. PID: 32801. I1: Chicony I2: USB Keyboard I3: I4: Input length: 9 Output length: 9 S/N of board #1 : 6465_32801_1

---

Dans un document (dont je ne retrouve pas l'origine), on voit quelles sont les commandes d'écriture et lecture, mais je ne sais pas trop comment les interpréter. Je vais faire des essais.
Pièce jointe 644889
Cordialement.

Pierre.

Bonjour,

Citation:

---

Envoyé par ChPr

Mais donc, apparemment avec cette application, je peux me connecter à ma station. Maintenant, c'est que faire pour en tirer des informations !

---

Le fichier README.md du projet HIDAPI sur Github comporte un exemple de test des fonctions de la bibliothèque. Il donne aussi un lien vers le programme hidapitester, qui permet, comme son nom l'indique, de tester ces fonctions.

Dans votre cas, il faut lire les données brutes dans le buffer (facile) et les "décoder" en les rapprochant des valeurs qu'affiche la station. En particulier, il vous faut identifier les informations d'horodatage entre lesquelles se trouvent vraisemblablement les données météos correspondant à cet instant. Bon courage...

Une fois que vous aurez compris comment sont arrangées les données et à quoi elles correspondre, vous pourrez revenir à votre programme, écrire l'algorithme qui va bien pour interpréter chaque paquet de données correspondant à une date donnée et en faire ce que vous souhaitez.

bb

Hello,

Citation:

---

Envoyé par ChPr

Le problème est qu'il n'y a pas de retour. Le programme se bloque sur cette instruction.

j'ai changé d'instruction, j'ai mis celle avec le Time out :

Code:

---

Num := Device.ReadTimeout(Buffer, SizeOf(Buffer), 5000);

---

J'ai aussi diminué la taille du buffer, je l'ai ramené à 32.

au retour des 5 secondes, Num vaut 0.

---

Si cela bloque c'est que tu dois être en mode bloquant, il faut se mettre en mode non bloquant mais si il n'y a pas de données dans le buffer cela ne fonctionnera pas :
voir dans le fichier test.c comme cela est fait (ligne 217).
L'instruction pour se mettre en mode non bloquant :

Code:

---

Device.SetNonBlocking(1);

---

Ami calmant, J.P

Citation:

---

Envoyé par jurassic pork

... Si cela bloque c'est que tu dois être en mode bloquant, il faut se mettre en mode non bloquant mais si il n'y a pas de données dans le buffer cela ne fonctionnera pas :
voir dans le fichier test.c comme cela est fait (ligne 217).
L'instruction pour se mettre en mode non bloquant :

Code:

---

Device.SetNonBlocking(1);

---

...

---

Merci "jurassic pork" pour cette information. J'avais vu cette instruction et je l'avais utilisée. Effectivement, ça ne bloquait plus, mais la lecture ne rapportais rien ! J'ai fait une boucle pour lire aux adresses de $100 à $FFFF (espace des données de la station météo) : toujours rien.

En lisant le fichier "test.c" que tu me montres, j'y note, à partir de la ligne 217 :

Code:

---

1 2 3 4 5 6

// Set the hid_read() function to be non-blocking. hid_set_nonblocking(handle, 1); // Try to read from the device. There should be no // data here, but execution should not block. res = hid_read(handle, buf, 17);

---

Ah !!!

J'ai téléchargé un code en "C" lisant cette station météo. Dans le fichier "fowsr.c", de la ligne 236 à 265 se trouve une procédure de lecture que je vais essayer, malgré mes faibles connaissances en C, de décrypter.

Cordialement.

Pierre.

comme il est indiqué aux lignes 241 et 242 il faut envoyer quelque chose au périphérique pour recevoir des données :

Citation:

---

After sending the read command, the device will send back 32 bytes data wihtin 100ms.
If not, then it means the command has not been received correctly.

---

lignes 244 à 259

c'est la ligne 257 qu'il faut que je décrypte.

Cordialement.

Pierre.

A noter que le programme python dont je parle dans un de mes précédents messages à quelque chose d''équivalent :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

least_significant_bit = offset & 0xFF most_significant_bit = offset >> 8 & 0xFF # Construct a binary message tbuf = struct.pack('BBBBBBBB', 0xA1, most_significant_bit, least_significant_bit, 32, 0xA1, most_significant_bit, least_significant_bit, 32) timeout = 1000 # Milliseconds retval = dev.ctrl_transfer(0x21, # USB Requesttype 0x09, # USB Request 0x200, # Value 0, # Index tbuf, # Message timeout)     return dev.read(0x81, 32, timeout)

---

Hello,
je pense que dans le paquet hidapi il n'y a pas la fonction de contrôle de transfert USB, elle se situe dans libusb. FPC contient un paquet "wrapper" de libusb (uses libusb).

Code:

---

1 2 3 4 5 6 7 8 9 10

{ sync I/O } function libusb_control_transfer( dev_handle:plibusb_device_handle; request_type:uint8_t; bRequest:uint8_t; wValue:uint16_t; wIndex:uint16_t; data:puint8_t; wLength:uint16_t; timeout:cardinal):integer;LIBUSB_CALL;external libusb1;

---

[EDIT] voici un petit programme pour tester la libusb, comme il y a au moins une erreur dans le fichier libusb.pp de la fpc en pièce jointe une version corrigée à mettre dans le répertoire de son projet.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

program testUsb; uses sysutils,libusb; var ctx:Plibusb_context; list: pplibusb_device; dev: plibusb_device; Ha : Plibusb_device_handle; listdev : Plibusb_device; desc : libusb_device_descriptor; nbDevices,i,res : integer; begin res := libusb_init(ctx); nbDevices := libusb_get_device_list(ctx, list); for i := 0 to nbDevices - 1 do begin libusb_get_device_descriptor(list[i], desc); writeln(intToHex(desc.idVendor),' : ', IntToHex(desc.idProduct)); end; readln; end.

---

Si le périphérique que l'on veut commander apparaît dans la liste affichée c'est bon signe !


Ami calmant, J.P

Citation:

---

Envoyé par jurassic pork

Hello,
...

---

Je te remercie "jurassis pork" pour ton implication dans mon projet ...

J'ai essayé de compiler ton programme

Sous Windows, apparaît une erreur dans libusb.pp :

Code:

---

libusb.pp(1044,81) Fatal: Syntax error, "=" expected but ";" found

---

Sous Ubuntu, à la ligne 5 de ton programme, je suppose qu'il faut remplacer "pplibusb_device" par "plibusb_device". Ce faisant, arrivé à la ligne 16 j'ai une erreur du type :

Code:

---

project1.lpr(16,43) Error: Incompatible type for arg no. 1: Got "libusb_device", expected "plibusb_device"

---

Cordialement.

Pierre.

hello,
pour windows , moi je n'ai pas d'erreur mais cela est peut-être du au fait que j'utilise une version plus récente de fpc que toi. Tu peux mettre la ligne en erreur en commentaire car la procédure ne sera pas utilisée.
pour linux, il faut aussi mettre le fichier libusb.pp dans le répertoire du projet et ne pas faire de modif dans le projet
Ami calmant, J.P

Citation:

---

Envoyé par jurassic pork

hello,
pour windows , moi je n'ai pas d'erreur mais cela est peut-être du au fait que j'utilise une version plus récente de fpc que toi. Tu peux mettre la ligne en erreur en commentaire car la procédure ne sera pas utilisée.
pour linux, il faut aussi mettre le fichier libusb.pp dans le répertoire du projet et ne pas faire de modif dans le projet
Ami calmant, J.P

---

C'est OK sous Ubuntu. Par contre, sous Windows, si je mets la ligne 1044 en commentaire, cela entraîne de mettre en commentaire tout un tas de lignes : 1086 , 104, 1134, ...

Cordialement.

Pierre.

Citation:

---

Envoyé par ChPr

C'est OK sous Ubuntu. Par contre, sous Windows, si je mets la ligne 1044 en commentaire, cela entraîne de mettre en commentaire tout un tas de lignes : 1086 , 104, 1134, ...

---

Si quelqu'un peut dire comment corriger cette ligne sous un ancien fpc :

Code:

---

libusb_transfer_cb_fn = procedure (transfer:plibusb_transfer);LIBUSB_CALL;

---

pas d'erreur en fpc 3.2.2

Citation:

---

Envoyé par jurassic pork

Hello,
je pense que dans le paquet hidapi il n'y a pas la fonction de contrôle de transfert USB, elle se situe dans libusb. FPC contient un paquet "wrapper" de libusb (uses libusb).

Code:

---

1 2 3

{ sync I/O } function libusb_control_transfer( ...

---

[EDIT] voici un petit programme pour tester la libusb, comme il y a au moins une erreur dans le fichier libusb.pp de la fpc en pièce jointe une version corrigée à mettre dans le répertoire de son projet.

Code:

---

1 2	program testUsb; ...end.

---

Si le périphérique que l'on veut commander apparaît dans la liste affichée c'est bon signe ! ...

---

J'ai finalement installé Lazarus 2.2.6 sous Windows et j'ai pu compiler et exécuter ton petit programme : mon périphérique apparaît :D.

J'ai ajouté la ligne suivante à ton programme :

Code:

---

Ha:= libusb_open_device_with_vid_pid(ctx, $1941, $8021);

---

Ça s'exécute, mais ça ne renvoie rien pour Ha !

Par ailleurs, si la librairie libusb possède bien une fonction de contrôle de transfert USB, elle ne possède pas de fonction read ...

Donc, je suis un peu (voire beaucoup) paumé !

Cordialement.

Pierre.

Citation:

---

Envoyé par ChPr

Code:

---

Ha:= libusb_open_device_with_vid_pid(ctx, $1941, $8021);

---

Ça s'exécute, mais ça ne renvoie rien pour Ha !

---

rien c'est quoi ? nil ? 0 ? vide ?

Sinon, j'ai trouvé ça

Code:

---

1 2 3

libusb_device_handle * libusb_open_device_with_vid_pid(libusb_context *ctx, uint16_t vid, uint16_t pid) A convenience function to open a device by vendor and product IDs vid and pid. Returns NULL on error.

---

là.
HTH,

Hello,
voici un code à tester (moi je ne peux pas je n'ai pas de périphérique HID USB) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

program testUsb; uses sysutils,libusb; var ctx:Plibusb_context; list, dev, listdev : pplibusb_device; Ha : Plibusb_device_handle; desc : libusb_device_descriptor; nbDevices,i,res : integer; fixedBlock: array of Byte; begin fixedBlock := [$A1,0,0,$20,$A1,0,0,$20]; res := libusb_init(ctx); nbDevices := libusb_get_device_list(ctx, list); for i := 0 to nbDevices - 1 do begin libusb_get_device_descriptor(list[i], desc); writeln(intToHex(desc.idVendor),' : ', IntToHex(desc.idProduct)); end;   Ha := libusb_open_device_with_vid_pid( ctx, 6465, 32801); if Ha <> nil then begin libusb_control_transfer(Ha, $21, $09, $0200, $00, @fixedBlock, $8, 1000); end; readln; end.

---

est-ce que le périphérique est énuméré ?

Ami calmant, J.P (sans T)

Merci "jurassic pork" pour ce complément de programme.

Mon périphérique est bien reconnu : à la ligne 6

Code:

---

1 2 3 4 5 6 7 8 9

045E : 07F8 1022 : 43D5 04E8 : 6860 05E3 : 070E 067B : 2303 1941 : 8021 // là, c'est ma station météo 1022 : 15E0 0A12 : 0001 1022 : 15E1

---

Comme je l'ai dit et comme le demande "Jipété", la fonction "libusb_open_device_with_vid_pid" ne renvoie rien. Rien veut dire que lorsque je mets un point d'arrêt sur la ligne suivante et que je passe la souris sur la variable Ha", rien ne s'affiche, voilà ce que j'obtiens dans un beau rectangle jaune :

Code:

---

1 2 3 4

Ha = var Ha: Plibusb_device_handle = ^libusb_device_handle; E:\Mes téléchargements\libusb\Test_libusb.lpr(9,4)

---

La suite du programme ne s'exécute pas (lignes 21 à 27). "Rien" doit être assimilé à "nil".

Cordialement.

Pierre.

hello,
bon pour essayer de comprendre ce qui ne va pas il faut essayer le programme que j'avais indiqué en python.
Même si tu ne connais pas ce langage, voici comme faire le test :
1 - Télécharger et Installer Thonny (python for beginner)
Cet IDE est léger contient un python 3.10 intégré et est facile à utiliser.
2 - Il faut installer le module pyusb : outils/gérer les paquets - Dans la zone de recherche taper pyusb. Installer le premier module trouvé de la liste.
3 - Récupérer le fichier Weather.py et l'ouvrir dans Thonny. Modifier le chemin du fichier csv où les données provenant de la station météo sont écrites (filename =)
4 - L'exécuter ( Exécuter/Exécuter du script courant). Voir ce qui se passe. Si cela se passe bien, interrompre le programme par appui sur une touche et regarder dans le fichier csv.


Dans mon programme de test Lazarus, j'ai essayé de reproduire ce que fait ce programme. Si le programme en python fonctionne c'est sans doute une des instructions que je n'ai pas mis dans le programme Lazarus qui le permet.
Ami calmant, J.P

J'ai fait tout ce que tu m'as dit.

A l'exécution du programme, il m'est dit que l'import de pause n'est pas trouvé. Je l'ai mis en commentaire.

Reprenant l'exécution, ma station n'est pas découverte avec l'erreur suivante :

Citation:

---

>>> %Run weather.py
Traceback (most recent call last):
File "E:\Mes téléchargements\Dream-Link-WH1080-Weather-Station-master\Dream-Link-WH1080-Weather-Station-master\weather.py", line 164, in <module>
dev = open_ws()
File "E:\Mes téléchargements\Dream-Link-WH1080-Weather-Station-master\Dream-Link-WH1080-Weather-Station-master\weather.py", line 55, in open_ws
raise ValueError('Device not found')
ValueError: Device not found
>>>

---

Est-ce lié au fait que l'import pause ait été commenté ?

Pourtant, dans des applications commerciales, elle est reconnue et fonctionne. Dans nos précédents essais, elle est reconnue ...

Cordialement.

Pierre.

Si la ligne :

Code:

---

usb_device = usb.core.find(idVendor=VENDOR, idProduct=PRODUCT)

---

ne fonctionne pas c'est équivalent au Ha qui reste à Nil dans Lazarus .
1 - y - a - t - il un programme installé qui gère la station météo qui a installé un Driver ?
2 - La libUsb installée est bien une 1.0 ?
3 - Dans les programmes qui gèrent la station y a t il une demande d'élévation de privilèges au lancement.
4 - Sinon essayer de lancer Lazarus ou Thonny en mode administrateur.