Discussion :

[tigrou2405]

Bonjour,

Je dois interfacer le monnayeur RM5 de Comestero via son interface port COM, à l'aide des 3 DLLs fournies.
Je rencontre un problème avec 2 fonctions qui prennent en paramètre un tableau de Byte.
====================================
Déclaration des fonctions dans la DLL "RM5.DLL"
====================================

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Function Get_enable_word_Ex(Var HCom : Integer;Port as Byte; Offset as Byte;Echo as boolean; Var Abilitation as Array[0..7]Of Byte ):Boolean; StdCall
 
Function Set_enable_word_Ex(Var HCom : Integer;Port as Byte; Offset as Byte;Echo as boolean; Var Abilitazione as Array[0..7]Of Byte ):Boolean; StdCall

================================
Déclaration des fonctions dans le code VB
================================

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Declare Function Set_enable_word_Ex Lib "rm5.dll" (Hcom As Long, Port As Byte, Offset As Byte, Echo As Boolean, Abilitation() As Byte) As Boolean
 
Private Declare Function Get_enable_word_Ex Lib "rm5.dll" (Hcom As Long, Port As Byte, Offset As Byte, Echo As Boolean, Abilitazione() As Byte) As Boolean

================================
Appel des fonctions dans VB
================================

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
'création du tableau de Byte de 0 à 7
Dim tablo(0 to 7) As Byte 
'
MsgBox(Get_enable_word_Ex(HandleCom, PortCom, OffsetCom, EchoCom, tablo()))

Là le code me renvoie toujours false.
Les déclarations sont elles exactes ?
J'ai bien passé le tableau de Byte ?

Merci pour toute aide

[Vld44]

il est remplit ton tableau ?

Après peut-être que les DLL ont un bug, on peut pas savoir :/

[tigrou2405]

La fonction appellée va remplir le tableau.
J'ai quand même essayé de l'initialiser comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim i as integer
'
For i = 0 to 7
    tablo(i) = CByte(0)
Next

Un Byte en VB c bien un octet ??

[Vld44]

hum je ne crois pas, ça peut être n'importe quoi mais en "binaire".

Par exemple un champ BLOB d'une base de données, tu (peux) l'extrait et le stock sous la forme de byte.

Les autres peuvent me corriger ..

[ProgElecT]

Des fois sa dépanne,
provisoirement je declare une variable en variant, je met un espion dessus, un point d'arret pour sa premiere initialisation, l'espion permet de verifier le type renvoyé, je n'ai plus qu'à corriger de variant à type renvoyé.
Donc a essayer Dim tablo() as variant, puis Dim tablo() as (type renvoyé par l'espion)

[OhMonBato]

Sais tu dans quel(s) cas ces fonctions sont sensées renvoyer True ?