utilise une fonction c++Résolu

Question

j'utilise cette fonction dans une DLL pour l'appeler en vb
cette fonction fonctionne correctement en vc.
void liste_adap(char * device_name)
 {
       /* Vars */
   
       pcap_if_t *alldevs;
       pcap_if_t *d;
       char error[PCAP_ERRBUF_SIZE];
       /* Trouve toutes les interfaces */
       pcap_findalldevs(&alldevs, error);
      
         for(d=alldevs;d!=NULL;d=d->next) 
   {
     strcpy(device_name,d->name);
   }
  
 }
le probl&#233;me c'est que visual basic se plante lorsque je fais l'appel &#224; la fonction:


Private Declare Sub liste_adap Lib "d:	est.dll" (ByVal adap_name As String)



Private Sub Command1_Click()
  Dim name_adap As String
  Call liste_adap(name_adap)
End Sub
comment puis r&#233;soudre ce probl&#233;me:
j'ai d'autre fonction qui retourne des types simples int,float mais qui fonctionne correctement
ezzi

cs_casy · Accepted Answer

Exact, j'avais pas vu



en vb il faut faire 

Dim name_adap As String * xxx   'avec xxx = la longueur maxi de ta chaine




ou tu peut faire aussi dans le code avant l'appel de la dll : name_adap = space(xxx)



sinon en C quand tu remplis ta chaine, en fait tu &#233;crase les
autres variables stock&#233; en m&#233;moire apr&#232;s cette chaine, avec en retour,
au mieux des valeurs &#233;rronn&#233;es et au pire un magnifique BSOD




<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

cs_casy · Answer

As-tu essay&#233; :



Private Declare Sub liste_adap Lib "d:	est.dll" (ByRef adap_name As String)



Les chaines de caract&#232;res entre VB et C c'est pas toujours &#233;vidents, j'ai r&#233;guli&#232;rement moi aussi des probl&#232;mes.




<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

Gobillot · Answer

aucune dll ne peut changer la taille d'une cha&#238;ne pass&#233;e par VB

Daniel

cs_amiro · Answer

Merci cassy,votre deuxi&#233;me proposition a r&#233;solu mon probl&#233;me

ezzi

cs_amiro · Answer

mais je ne vois pas l'utilit&#233; de la fonction Space car la programme fonctionne sans cette fonction

ezzi

cs_casy · Answer

Il faut que ta chaine soit dimentionner (en gros que l'espace en m&#233;moire soit r&#233;serv&#233;) avant l'appel de ta fonction dll.



Alors soit tu le fait lors de la d&#233;claration, tel que je te l'ai
indiqu&#233;, soit tu garde ta d&#233;claration comme tu l'avait fait au d&#233;part
et dans ce cas il faut dimentionner ta chaine en cours d'ex&#233;cution.

Dans ce cas la fonction space(xxx) en ecrivant xxx espace dans ta chaine, la dimentionne automatiquement.



Tu utilise une deux solutions, les deux &#224; la fois ce n'est pas utile.



La seconde (avec space) peut &#233;ventuellement etre utile si tu veux donner des tailles diff&#233;rentes &#224; ta chaine.




<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

cs_amiro · Answer

est ce que tu peux me donner un exemple d'une fonction qui retourne une structure et comment peut on l'appeler &#224; partir de vb car je n'arrive pas &#224; le faire

ezzi

cs_casy · Answer

Pour VB :

d&#233;clarations :

Public Type ST_TEST

    Var1 As Long

    Var2 As Single

    Var3 As Single

    Var4 As Long

    Var5 As Long

End Type



Public TaStruc As ST_TEST



Public Declare Sub TaFonctionDll Lib "TaDll.DLL" (ByRef TaStruc As ST_TEST)



Appel :

Call TaFonctionDll(TaStruc)



Pour la Dll :

d&#233;claration :

typedef struct

    {

    int var_1;

    float var_2;

    float var_3;

    int var_4;

    int var_5;

    }ST_C_TEST;



Utilisation :

void TaFonctionDll(ST_C_TEST *pt)

{

    ........

    pt->var_1 = 1;        

    pt->var_2 = 2;        

    ........

}







<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

cs_amiro · Answer

ezzi

cs_amiro · Answer

void  advanced_info(advanced_information_device *test,int *nbre_interface)
c'est le protoype d'une fonction que j'utilise dans une DLL pour l'appeler &#224; partir de vb.
test :est un pointeur vers un tableau de structure
nbr_interface :valeur retourn&#233;e par la fonction pour d&#233;signer le nombre d'interface trouv&#233;s.
elle fonctionne correctement en c++.
lorsque je fais l'appel de la fonction:


Public Declare Sub advanced_info Lib "d:	est.dll" (ByRef struct As advanced_information_device, ByRef nombre_interface As Integer)

 Dim test_interface As advanced_information_device
  Dim interface As Integer
  Call advanced_info(test_interface, interface)
  Text1.Text = test_interface.Description
  MsgBox interface
le r&#233;sultat est:
s'il ya une seule interface il l'affiche sinon il se plante
comment peut on faire passer une r&#233;ference &#224; un tableau de structure en vb
ezzi

cs_casy · Answer

Effectivement &#231;a plante car ce n'est pas un tableau de structure que tu passe mais une structure.

Le plantage viens du fait que lorsque dans la dll tu pointe sur ton
&#233;ventuelle seconde structure, tu &#233;crase en fait d'autres variables,
c'est ce que je t'expliquait plus haut.



Il faut donc en vb d&#233;clarer ton tableau de structure de dimention connue et fix&#233;e :

Dim test_interface(NB_ELEMENT) As advanced_information_device




ensuite tu appelle ta fonction comme &#231;a : 

Call advanced_info(test_interface(0), interface, NB_ELEMENT)




Puis tu reprends ta fonction C, tu ajoute un parametre qui sera le nombre d'&#233;lements de ton tableau :

void  advanced_info(advanced_information_device *test,int *nbre_interface,int nbre)




puis tu g&#232;re chaque structure ainsi



// Structure 1


test--> ##variables de ta structure##


// Structure 2


(test+1)--> ##variables de ta structure##


// Structure X +1


(test+X)--> ##variables de ta structure##


// Derni&#232;re Structure   ATTENTION ne pas aller au del&#224; 



(test+nbre)--> ##variables de ta structure##


En fait tu gere &#231;a comme ta chaine de caract&#232;re, car en C une chaine est en fait un tableau de caract&#232;re.



L'important c'est que ton tableau doit existe et avoir une taille bien
d&#233;fini au moment de l'appel de ta fonction, et dans ta fonction il ne
faut pas d&#233;passer la taille de ton tableau.



Sinon gare le BSOD rode pret &#224; bondir.

















<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

cs_amiro · Answer

j'ai chang&#233; un peu le code des fonctions ,&#231;a fonctionne correctement en vc++ mais c'est le probl&#233;me existe dans ces quelques lignes
Public Declare Sub advanced_info Lib "d:	est.dll" (ByRef struct As advanced_information_device, ByVal nombre As Long)


Dim i As Long
Dim test_interface(5) As advanced_information_device
i = nbre_adap() 'i ne depasse pas la valeur 5
call advanced_info(test_interface(0), i)

ezzi

cs_casy · Answer

Chez moi &#231;a marche avec un petit prog de test et en reprenant ton code VB.



Quel est ton erreur exactement ?



As-tu  penser &#224; d&#233;clarer tes fonstions de la dll en "stdcall" pour
qu'elles soient visible par VB. Et en plus il faut inclure un fichier
.DEF dans ta DLL pour que &#231;a marche en vb.
Mais je pense que c'est fait puisque tu arrivait &#224; lire une structure tout &#224; l'heure.




<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

cs_amiro · Answer

avec vc++,il n'ya pas de probl&#233;me.j'ai inclut le ficj=hier .DEF ainsi que STDCALL
mais le probl&#233;me c'est au niveau vb parceque j'ai test&#233; la fonction en vc et &#231;a marche tr&#233;s bien.
est ce que tu peux m'envoyer au moins l'exemple que tu es entrain de tester. 

ezzi

cs_casy · Answer

Désolé, je n'ai pas l'exemple sous la main pour l'instant (je suis au boulot). Pour la dll, j'ai déclaré la fonction comme ceci : void _stdcall advanced_info(advanced_information_device *pt, int nbre) et je me suis codé la fonction comme l'exemple que je t'avais donné un peu plus haut. for (i=0;ivar_1 = 1; (pt+i)->var_2 = 2; ........ } dans le fichier DEF, j'ai ceci : LIBRARY TEST EXPORTS advanced_info @1 Dans les settings du projet : C/C++ / Général / Warning level : Level 3 C/C++ / Code Generation / Use runtime library : multithreaded (je sais pas si c'est utile, c'est comme ça depuis des années) le reste : valeur par défaut. Pour vb j'ai mis le dernier code que tu as posté As-tu vérifier que ta structure VB et ta structure Dll sont STRICTEMENT indentiques, que les variables sont du même type des 2 cotés.

Si le cerveau était assez simple pour que nous puissions le comprendre, nous serions assez bête pour ne pas le comprendre malgré tout.

Utilise une fonction c++

15 réponses

Discussions similaires