DLL C "maison" qui marche pas.Résolu

Question

Bonjour Historique (sans réel intérêt mais si ça vous intéresse voila) : Je fais actuellement une classe (enfin 2, 1 VB6 et 1 VB.NET) qui dois me permettre d'intégrer dans un application VB6 des forms VB.NET (Hé dit comme ça elle à la classe ma classe, lol). Pour cela j'ai mit en place une classe intégrant des WinSock (trouvé dans le fichier "mswsock.dll" dans "Windows\System32"). Mon appli VB6 démarre par shell l'appli VB.NET en lui indiquant en paramètre le port à utilisé pour le WinSock. Grasse à ce dernier le handle de la form VB.NET est retourné à VB6 qui intègre dans un shape la forme VB.NET correspondante (avec les API). Sauf que, plusieurs mégas octets vont passé de VB6 à VB.NET et inversement. Mes tests semble monté que le WinSock est un peut lent pour ce genre de transfert. Je veut donc transmettre une adresse mémoire (par winsock) à lire (par VB6 ou VB.NET suivant le cas). Vue que VB6 ne connais pas les pointeur je veut une DLL qui retourne un long contenant l'adresse de la variable que je lui passe (jusque là tout semble relativement simple). Je précise que je n'ais jamais fait de DLL (j'en utilise tout le temps mais je ne les faits pas). Comme ça vous savez pour cois je veut faire un 'truc' aussi con. Objectif : Je veut une DLL qui me retourne l’adresse mémoire d’une variable que je lui passe, ce quel que soit sa taille ou son type. Mon code : VB

Private Declare Function GetAdresse Lib "C:\Documents and Settings\Vincent\Bureau est.dll" (ByRef Variable As Any) As Long Private Sub Form_Load() Dim TESTE As String TESTE = "Je fait des tests" MsgBox TESTE & " " & GetAdresse(TESTE) End Sub

C (dans le .cpp)

#include long GetAdresse(void* Variable) { return (long)Variable; }

C (dans le .def)

LIBRARY test EXPORTS GetAdresse @1

Voila et dans VB à la ligne "MsgBox TESTE & " " & GetAdresse(TESTE)" le compilo me retourne l'erreur : "Run-time error '49': Bad DLL calling convention". Depuis midi je cherche à faire marche cette $£¤µ* de DLL et ce que je trouve sois ne veut rien dire, sois je ne comprend rien, sois ... bà je suis co_ Au faite à cois sers "@1" dans le .def? Si non pourriez vous m'indiquer un tuto claire sur les DLL car je m'énerve de plus en plus avec ce $£¤%µ de truc (qui me parais d’un niveau moins que débutant)!!! Merci Amicalement Pensez "Réponse acceptée"

cs_casy · Accepted Answer

Il te faut veuillez à ce que les fonctions exportées de ta dll soient exportées selon la convention _stdcall. Par défaut c'est la convention CDecl qui est utilisée et VB ne sais as référencer ce genre de fonction.

Ensuite il faut veiller aussi aux types de variables qui ne sont pas les même entre VB et C

Pour les tutos, tu peux peut-etre te référer à ce document :

http://rp.developpez.com/vb/tutoriels/dll/

Et n'hesite pas à fouiller le site Developpez.com, ils ont de très bons tutos en général, peut-etre en trouveras-tu un pour ton besoin.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

BruNews · Answer

Comme dit plus haut par casy, prob de stack non rétablie.
long __stdcall GetAdresse(void* Variable)
{
    return (long)Variable;
}

Pour config correcte du compilo et linker, utilise ceci pour tes projets.
TEMPLATES C/C++ POUR VS 2005
http://www.cppfrance.com/code.aspx?ID=36940

ciao...
BruNews, MVP VC++

Polack77 · Answer

Merci bien à vous deux (ça marche ),
En faite il me manquais pas grand chose.
Heeee, par contre je ne sais toujours pas à cois corespond "@1".
Amicalement 
Pensez "Réponse acceptée"

BruNews · Answer

Sera l'ordinal possible d'un GetProcAddress().
Voir Richter pour détails:
http://brunews.com/brunews/download/JR4.zip
http://brunews.com/brunews/download/JR4Sources.zip

ciao...
BruNews, MVP VC++

Polack77 · Answer

Heee, en faite ça marche pas En tout cas merci BruNews pour ces deux liens mais je n'ai pas le temps de les lire tout de suite (mais je me les mets sous le coude pour plus tard) J'ai crée une form qui alloue 3 string les affiches avec leur adrs dans des labels Mon code qui ne marche pas : VB :

Private Declare Function GetAdresse Lib "C:\Documents and Settings\Vincent\Bureau est.dll" (ByRef Variable As Any) As Long Dim TESTE As String Dim TESTE2 As String Dim TESTE3 As String Private Sub Form_Load() TESTE = "Je fait des tests et tout et tout" TESTE2 = "Ce n'est pas la même adrs" TESTE3 = "C'est que ca marche" Label1.Caption = TESTE & " " & GetAdresse(TESTE) Label2.Caption = TESTE2 & " " & GetAdresse(TESTE2) Label3.Caption = TESTE3 & " " & GetAdresse(TESTE3) End Sub

Le C (.cpp):

#include long __stdcall GetAdresse(void *Variable) { return (long)Variable; }

Le C (.def)

LIBRARY test EXPORTS GetAdresse

Le résultat : Amicalement Pensez "Réponse acceptée"

BruNews · Answer

Je fais des tests et je te dirai ce qu'il en est.

ciao...
BruNews, MVP VC++

Polack77 · Answer

Etrange...
Si mes variables sont d'un autre type que 'string' ça semble fonctioné???
VB :
[...]
Dim TESTE As String
Dim TESTE2 As Integer
Dim TESTE3 As Long
[...]
    TESTE = "Je fait des tests"
    TESTE2 = 12
    TESTE3 = 13
    Label1.Caption = TESTE & " " & GetAdresse(TESTE)
    Label2.Caption = TESTE2 & " " & GetAdresse(TESTE2)
    Label3.Caption = TESTE3 & " " & GetAdresse(TESTE3)
[...]

Retour :

???????

Amicalement 
Pensez "Réponse acceptée"

cs_casy · Answer

Et oui, c'est la gestion des variable de type string en VB6 qui t'induit en erreur.

Pour la plupart des variables en VB6, quand tu déclare une variable d'un type donné il s'agit bien d'une variable en mémoire.
Par contre, lorsque tu déclare une variable de type String, ce que tu as n'est pas une string mais un pointeur vers une zone mémoire qui contient les caractères composant la string. Cela est totalement transparent en VB6 pour l'uttilisateur car c'est VB qui se charge de gerer tout cela. Par contre les choses se compliques lorsque on sort de VB.

Regarde dans le document dont je t'ai donné le lien dans ma réponse, il y a tout un paragraphe sur la gestion des string entre VB et les api.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

BruNews · Answer

Je teste sur Excel vu que je n'ai pas de VB.
Ben sur Excel (VBA) rien ne va, toujours la même adresse.

Sub Tester2()
  Dim strA As String
  Dim strB As String
  Dim strC As String
  Dim s As String
  Dim v As Long
  s = String(10, "A")
  
  strA = "Je fait des tests et tout et tout"
  strB = "Ce n'est pas la même adrs"
  strC = "C'est que ca marche"
  strA = strA & " " & GetAdresse(strA)
  strB = strB & " " & GetAdresse(strB)
  strC = strC & " " & GetAdresse(strC)
  
  Debug.Print strA
  Debug.Print strB
  Debug.Print strC
  
  strA = strA & vbCrLf & strB & vbCrLf & strC
  Debug.Print strA
  v = GetAdresse(s)
  strA = strA & " " & v
  Debug.Print strA
  Debug.Print v
End Sub


LE DEBUG DONNE:
Je fait des tests et tout et tout 1439168
Ce n'est pas la même adrs 1439168
C'est que ca marche 1439168
Je fait des tests et tout et tout 1439168
Ce n'est pas la même adrs 1439168
C'est que ca marche 1439168
Je fait des tests et tout et tout 1439168
Ce n'est pas la même adrs 1439168
C'est que ca marche 1439168 1439168
1439168

Ce qui tend à montrer que VB fait comme d'hab ce qu'il veut, surement copie dans le même buffer pour envoi à la DLL, on a aucun controle sur cela.

ciao...
BruNews, MVP VC++

jrivet · Answer

Salut,
Simple petite question.
Pourquoi ne pas avoir utiliser Interop Form TollKit 2.0 proposé par M$ qui est supposé te permettre de développé des Formulaires et autres contrôles en VB.NET et utilisables dans VB6

Je n'est pas encore trop creusé mais cela a l'air assez bien.

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Re,
Correction il faut lire  Interop Form ToolKit 2.0

@+: Ju£i?n
Pensez: Réponse acceptée

BruNews · Answer

Exact casy, l'adresse est mise dans le meme buffer de 4 octets avant envoi donc on n'y peut rien.

ciao...
BruNews, MVP VC++

Polack77 · Answer

Ce qui veut dire??? Pas possible de faire ce que je veux???? Heeee, je n'ai pas trop le choix en faite, mes instructions sont de faire ça (en plus j'ai déjà hue une réunion sur ce sujet avec le reste de l'équipe à qui j'ai dit "pas de problème je m'y colle, ça sera vite fait", du coup je vais passer pour un pas doué si je viens dire qu’"en final ce n'est pas possible", je continue de m'acharner au moins jusqu'en fin de semaine). Merci pour le temps que tu à bien voulut m'accordé. PS : casy Oui j'ai effectivement vue (sur le lient que tu m'à transmit) que la gestion des string avais l'aire quelque peut étrange en VB. Je me pencherais sur les string un peut plus tard (et si ce n'est que ça je déclare un tableau de byte que je remplie avec la fonction asc bouclé sur toute ma chaîne, l'objectif final n'est pas de faire passé des strings de toute façon mais des tableau de structure de données) Amicalement Pensez "Réponse acceptée"

Polack77 · Answer

Heeeeee, je n'ai pas utilisé "Interop Form To o lKit 2.0 "car sont existence m'été inconnue, je regarde ça après déjeuné, merci de l'info jrivet. PS : Je ne retire pas "Réponse acceptée" des 2éme et 3éme post de ce topic (houla j'espère que les termes sont bon ) car ces réponses m'on effectivement permit de corrigé mon 1ér problème. En tout cas MERCI à tous ça fait du bien de se sentire soutenue. Amicalement Pensez "Réponse acceptée"

Polack77 · Answer

Je comance mes tests avec un tableau de byte, je ne fait plus rien avec les strings et j'essais de lire les adresses que l'on me renvoie. Voila mon code C pour la DLL (bien sure j'ajoute la def en plus)

void __stdcall SetVar(long AdrsALire, int LngEnOct, void* VariableARemplire) { while (LngEnOct != 0) { LngEnOct --; *((char*)((long)VariableARemplire + LngEnOct)) = *((char*)(AdrsALire + LngEnOct)); } }

Amicalement Pensez "Réponse acceptée"

BruNews · Answer

OUPS et archi OUPS, on reprend depuis le début.
Comme quoi c'est mauvais l'interprété, j'y passe 5 mn et me voila pollué de faux concepts.


Il faut déréférencer l'afresse pour obtenir celle du BSTR (String de VB), donc fonction spéciale pour String:
DWORD __stdcall GetStrAdrData(DWORD *bst)
{
  return (DWORD) *bst;
}

ciao...
BruNews, MVP VC++

Polack77 · Answer

Merci, mais je fait des tests avec des long (mais je me servirais sans doute de ça plus tard, merci). A savoir : J'ai visual studio 2005 sur ma machine ce qui fait que si une erreur survient dans une dll je peut déboger directement sans stoper complétement mon execution, et il semble que ma DLL ne reçois pas les valeurs que je lui transmet. Je m'explique tout de suite. Mon code à été de nouveau modifié (en suivant le tuto que casy à donné, ça : http://rp.developpez.com/vb/tutoriels/dll/) : C (.cpp, pas de .h pour le moment)

#include #define export __declspec (dllexport) export long __stdcall GetAdresse(void*); export void __stdcall SetVar(long,short,void*); long __stdcall GetAdresse(void* Variable) { return (long)Variable; } void __stdcall SetVar(long AdrsALire, short LngEnOct, void* VariableARemplir) { while (LngEnOct != 0) { LngEnOct --; *((char*)((long)VariableARemplir + LngEnOct)) = *((char*)(AdrsALire + LngEnOct)); } }

VB :

Private Declare Function GetAdresse Lib "C:\Documents and Settings\Vincent\Bureau est.dll" (ByRef Variable As Any) As Long Private Declare Function SetVar Lib "C:\Documents and Settings\Vincent\Bureau est.dll" (ByVal Adrs As Long, ByVal Lng As Integer, ByRef Variable As Any) Dim TESTE As String Dim TESTE2 As Integer Dim TESTE3 As Long Private Sub Form_Load() Dim bidule As Long TESTE = "Je fait des tests" TESTE2 = 12 TESTE3 = 13 Label1.Caption = TESTE & " " & GetAdresse(TESTE) Label2.Caption = TESTE2 & " " & GetAdresse(TESTE2) Label3.Caption = TESTE3 & " " & GetAdresse(TESTE3) SetVar GetAdresse(TESTE3), Len(TESTE3), bidule Label4.Caption = bidule End Sub

Mon problème acctuel : A l'execution de SetVar une erreur survient "Visual Basic a rencontré un problème et doit fermer. ..." là je clique sur "Débogage" et déboge à partir de Visual Studio 2005. Dans ce dernier je vois apparaitre mon code C et grande surprise les valeurs contenue dans mes variables n'ont rien à voir avec les valeurs que je veut transmétre. A savoir : AdrsALire => 1308804 LngEnOct => -157 VariableARemplir => 0x00000004 Alors que dans VB GetAdresse(TESTE3) => 1900388 Len(TESTE3) => 4 GetAdresse(bidule) => 1308844 Je convertie en ce momant toute ces valeurs en binaire/octal/hexa pour tenté de comprandre ce qui se passe (dé que je trouve je poste si quelqu'un trouve avant moi pouriez vous en faire de même, merci) PS : µ$£¤^%§ de DLL à la µ£%ù^$ de µ$^ù%^!§ voir même plus... Amicalement Pensez "Réponse acceptée"

Polack77 · Answer

PS : Cette erreur été présente avent que j'ajoute "#define export __declspec (dllexport)" et "export".

Amicalement 
Pensez "Réponse acceptée"

BruNews · Answer

Donne plutot le but de SetVat() en français, je verrai le code à mettre.

ciao...
BruNews, MVP VC++

Polack77 · Answer

Le but de SetVal est décrire dans une variable d'ont on passe l'adresse (ici nomé "VariableARemplir") la valeur se trouvant à l'adresse passé par long (ici nomé "AdrsALire") sur le nombre d'oct passé (ici nomé "LngEnOct").
Ce n'est pas très claire mais je ne sais pas comment le dire autrement.

La finalité :
VB6 passe à VB2005 un message contenant une action à effectué (exemple "trie_tableau_de_long") suivie d'une adresse mêmoire et d'une taille en oct. Ainsi je n'envoie que très peut de données par WinSock (qui semble, d'apré mes testes, un peut lent).
Bien sur je ne fait pas ça pour trié des tableaux (en faite si, je fait tout ça juste pour faire des testes d'egalité dans VB2005 et les utiliser dans VB6,  lol)

Amicalement 
Pensez "Réponse acceptée"

BruNews · Answer

donc l'équivalent d'un CopyMemory, ok ?
Je te rappelle que GetAdresse est invalide pour String, voir ce que j'ai fourni.

ciao...
BruNews, MVP VC++

BruNews · Answer

Declare Sub bnCopyMem Lib "D:\vbAddr\vbTest.dll" (ByVal paddr As Long, ByVal nbytes As Long, pdst As Long)


Sub Tester3()
  Dim b As Long, v As Long
  v = 4
  Debug.Print GetAdresse(b)
  bnCopyMem GetAdresse(b), 4, v
  Debug.Print b
End Sub




void __stdcall bnCopyMem(BYTE *pdst, DWORD n, BYTE *psrc)
{
  if(n) {
    do {
      *pdst++ = *psrc++;
    } while(--n);
  }
}

ciao...
BruNews, MVP VC++

Polack77 · Answer

MERCI !!!!!! En + ça m'aide à comprendre pour cois mon code ne fonctionnais pas (il me semble que cela viens de mes déclaration, pourtant je les avez modifier mais en LPVOID par exemple et non en BYTE *). J'ai fait une petite modif par rapport à ce que tu m'a transmit (je joint à ce post). Mille fois merci de tout ce temps que tu à pue m'accordé (il me semble que ça se conte en heure, je trouve ça énorme, plus que ça même). Après modif : Juste pour la lisibilité du code j'ai renommé les variables.

void __stdcall bnCopyMem(BYTE *Destination, DWORD NbOct, BYTE *Source) { if(NbOct) { do { *Destination++ = *Source++; } while(--NbOct); } }

J'ai modifier le déclaration car j'ai l'adresse de la source et j'écrit dans la variable. Private Declare Sub bnCopyMem Lib "C:\Documents and Settings\Vincent\Bureau est.dll" (Destination As Long, ByVal nbytes As Long, ByVal Source As Long) Sans toi je pense que demain 17H j'y été encor. Si un jours je peut te dépanner (même si vue ton niveau, et le mien, ce n'est pas évidant que je pusse quelque chose pour toi) surtout n'hésite pas. Communauté CodeS-SourceS MERCI!Amicalement Pensez "Réponse acceptée"

Polack77 · Answer

Je n'aime pas ne pas comprendre le pourquoi (surtout quand ça marche pas). Je cherche, je trouve, et là... la frustration s'empare de moi : Ma fonction fonctionnais depuis longtemps!!! En faite le problème été une faute D'Inattention ( et ça me gonfle de faire encor ce genre d'erreur à la co_). Remarque : Deux petites modif quand même dans cette fonction : Le deuxième paramètre reçu (LngEnOct) est maintenant en long et non plus en int. Le test du 'While' et maintenant "LngEnOct > 0" et non plus "LngEnOct != 0". Cette fonction fonctionne (déjà posté le 26/09/2007 à 12:51:53 sans les deux modif ci-dessus)

void __stdcall SetVar(long AdrsALire, long LngEnOct, void* VariableARemplire) { while (LngEnOct > 0) { LngEnOct --; *((char*)((long)VariableARemplire + LngEnOct)) = *((char*)(AdrsALire + LngEnOct)); } }

Mon problème se situais au niveau de la déclaration VB!!! Je déclarais cette fonction comme fonction or il faut la déclarer en SUB étant donné qu'elle ne retourne pas de valeur!!! Ma déclaration qui marche : Private Declare Sub SetVarTest Lib "C:\Documents and Settings\Vincent\Bureau est.dll" (ByVal Source As Long, ByVal nbytes As Long, ByRef Destination As Any) Tout ça pour ça... Bà maintenant je ferais un peut plus attention à mes déclaration!!! Merci encor à tous pour votre aide dans cette journée difficile qu'à été celle d'hier. Amicalement Pensez "Réponse acceptée"

Polack77 · Answer

Bon, dernier post à ce sujet (promis après j'arrête), la vitesse de ce truc m'impressionne énormément et je voulais vous en faire profiter. Mon code (VB) :

Private Declare Function GetAdresse Lib "C:\Documents and Settings\Vincent\Bureau est.dll" (ByRef Variable As Any) As Long Private Declare Sub SetVar Lib "C:\Documents and Settings\Vincent\Bureau est.dll" (ByVal Source As Long, ByVal nbytes As Long, ByRef Destination As Any) Private Type StructTest Moi(0 To 4999) As Long End Type Private bidule As StructTest Private Sub Form_Load() Dim biduledes As StructTest Dim Compteur As Long Dim DateDeb As Date Dim Durée52420Exec As Long For Compteur = 0 To UBound(bidule.Moi) bidule.Moi(Compteur) = Compteur Next DateDeb = Now() For Compteur = 0 To 52420 SetVar GetAdresse(bidule), Len(bidule), biduledes Next Durée52420Exec = DateDiff("s", DateDeb, Now()) MsgBox "La fonction à copié " & Len(bidule) & " Oct en " & Durée52420Exec / 52420 & " s." & vbCrLf & "Sois " & Durée52420Exec & " seconde pour " & Round(CLng(Len(bidule)) * 52420 / (CLng(1024) * CLng(1024)), 4) & "Mo." 'Label4.Caption = bidule End Sub

Le code C n'a pas changé. Le résultat sur mon PC :

La fonction à copié 20000 Oct en 1,33536818008394E-04 s. Sois 7 seconde pour 999,8322Mo.

Soit présque 1Go en 7s!!! Je n'ai jamais vu ça (et ça marche pour du vrai du coup j'ai vérifié) !!! Amicalement Pensez "Réponse acceptée"

BruNews · Answer

Tu restes malgré ça en interprété ?
goto cppfrance illico !!!

ciao...
BruNews, MVP VC++

Polack77 · Answer

Je sais que j'ai dit que je n'écrirais plus rien sur ce topic mais j'ai mentie. Je n'ais hélasse pas le choix du langage. Je savais que le C (ou C++) été plus rapide que le VB (de mémoire, j'avais lut 14 fois plus rapide pour rangé des tableaux). J'ai tanné toute les sociétés que j'ai fréquentés pour faire les développements en C/C++ mais on m'à quasiment toujours répondue "Non c'est trop compliquer"... A bon??? Un langage de prog c'est un langage de prog. Oui c'est vrais que les pointeur c'est pas simple et que la syntaxe est un peut rigide, mais une fois bien compris ça permet de faire des 'truc' génial (j'ai souvenir d'une liste chaîné à 4 dimensions qui fonctionnais du feux de dieux, impossible à faire en VB) Tout ça pour dire : Ouinnnn , je ne peut pas tout passé en C/C++/C#. Amicalement Pensez "Réponse acceptée"

BruNews · Answer

C# est de l'interprété.

ciao...
BruNews, MVP VC++

Polack77 · Answer

Exact (puisque ce language est equivalement au VB.NET, j'ai tapé trop vite), merci de m'avoir corrigé .

Amicalement 
Pensez "Réponse acceptée"

DLL C "maison" qui marche pas.

29 réponses

Votre réponse

Discussions similaires